如何实现删除我与所选直线相交的对象?

taqqug · 发表于 2009-5-27 19:36:13

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

请大家帮忙看看这个功能能否实现.我想要的效果是在图中我画一条直线,当我点一个删除按钮然后提示让我选择一条直线,之后与这条直线相交的所有对象都删除了,不与之相交的对象保留.谢谢了

taqqug · 发表于 2009-5-27 19:39:39

我只能实现与直线相交的都删除但不能指定一条直线,要是有很多条直线我就搞不定了,大家帮我想想办法

SunVei · 发表于 2009-5-27 21:40:54

;;; No error check
;;; for test only
(defun C:Test ()
(setq ee (entsel)
      ee (car ee)
      dat (entget ee)
      pa (cdr (assoc 10 dat))
      pb (cdr (assoc 11 dat))
)
(command "Erase" "f" pa pb "" "r" ee "")
)

taqqug · 发表于 2009-5-30 18:34:08

我用的是VBA呀,能不能给VBA代码,详细点的,谢谢了!

woaishuijia · 发表于 2009-5-30 21:12:01

# E$ {6 u; g. t
Dim E As AcadEntity, L As AcadLine, P As Variant) Z/ o$ }/ K$ T
On Error Resume Next3 X' {- y+ X* _2 P6 ~
With ThisDrawing
) l: V! ~4 t7 K4 U4 x+ b7 P# w1 Z1 x
Do
H ?) o, V, T/ ]" x+ h6 o+ ?
.Utility.GetEntity E, P, vbCrLf & "选择直线:": Y3 E% S5 i( f+ F. P
If Err Then
/ l0 ]/ d( u. z6 c3 h* W! g
Exit Sub( V! c! ~$ f" S% T3 {
ElseIf E.ObjectName = "AcDbLine" Then
3 A( c$ c9 i* t/ X# f& j
Exit Do6 K* e: G! W& H5 k
End If
# Z+ C7 j1 b+ L
Loop) K; l/ }6 L1 c# c8 `) G( i
Set L = E o* B0 ^4 S5 |) h
For Each E In .ModelSpace2 }5 v \. a, U( C- `2 _
P = L.IntersectWith(E, acExtendNone)
; c7 \, F9 V! o( X6 x* n: |4 W. N
If UBound(P) >= 2 Then E.Delete
# g" X8 M, W7 \/ ~, i8 e" t
Next+ Y- \0 s+ }$ D
End With7 M* e8 ?! A" ^: Q

复制代码

taqqug · 发表于 2009-5-31 19:18:21

版主你太厉害了,能推荐点资料吗?你是怎么学这VBA的?
非常感谢

www1974 · 发表于 2009-6-4 16:01:02

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif( Q$ h. |9 [+ _: i+ \
;;; No error check
! m" L" r% m3 \: |  W" \6 t& H9 s;;; for test only* ]1 v& _+ K) f$ y& B
(defun C:Test ()
. \$ W0 P5 j. K; `- W& B$ E' F8 N (setq ee (entsel)
- i9 z! O8 q6 |3 r       ee (car ee)
% f. N6 e) e: n* X) z. V       dat (entget ee) - z: g( c& c9 D- L% A& f2 ?" x
      pa (cdr (assoc 10 dat)) ! P, U* @& M9 x2 c* ~9 e& b
      pb (cdr (assoc 11 dat)) 1 J' ]1 ]  d) D/ Z) ~
...

不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei · 发表于 2009-6-5 15:07:26

代码是跟着需求在走的
为自己量身定做最顺手 .....

kjava · 发表于 2009-7-8 10:37:41

以直线两个端点为对角点的长方形为cross方式选择实体，然后在选择集判断每个实体是否跟直线相交，相交的就删除

1619357946 · 发表于 2015-1-9 09:55:09

版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
谢谢

xhq1954425 · 发表于 2015-1-9 15:12:41

就是个栏选呗，没什么

		自动登录	找回密码
密码			注册

通知

[讨论] 如何实现删除我与所选直线相交的对象?

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块