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

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

' @, p) |" O; }5 n0 @. {9 x+ u
Dim E As AcadEntity, L As AcadLine, P As Variant
1 K; l% C) d$ p* N, k+ O* i
On Error Resume Next; I0 q. `7 a. ]" z
With ThisDrawing& v4 k m' s, C+ ?8 Y+ O1 p
Do
: i9 c4 N; ]4 @3 r: U8 \. } o/ g
.Utility.GetEntity E, P, vbCrLf & "选择直线:"
' T9 V+ C) J) c8 f# q3 g! ^: C2 Z
If Err Then: r* X' ^' z7 s
Exit Sub" Z7 C: o( X% h- C0 B
ElseIf E.ObjectName = "AcDbLine" Then; B5 x& \* @$ l/ V
Exit Do# M% t7 n) |( O% w7 Y+ _; o: R
End If
" m; u* K9 V, A4 r# c9 T Z1 D
Loop3 L3 z2 O, G5 l. }3 G* [% c) c
Set L = E
; m! N5 _* C4 o3 r* L
For Each E In .ModelSpace" M" D' c9 S- j- w. v( @6 `
P = L.IntersectWith(E, acExtendNone) U% y8 a$ r; |7 k* T R
If UBound(P) >= 2 Then E.Delete
$ t8 N4 _7 j& V. o' Q
Next1 e3 w' u; X7 ?* d# G1 _& Q
End With, H3 }: k' t! F' P$ _+ _

复制代码

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, R7 O6 ^- |7 d; ]1 T0 Y& B
;;; No error check  y0 Q% u, \# L
;;; for test only" f3 ]0 T$ I$ p( t$ d9 j- ~9 [1 k- k. @
(defun C:Test ()% N3 P1 G/ Q+ J
(setq ee (entsel)$ a+ A5 d6 V: i( z! a" i  C
      ee (car ee)3 a  R# M! f( c$ \+ P
      dat (entget ee) 9 J6 t# g4 Z# G
      pa (cdr (assoc 10 dat))
- u" `4 A/ p: B! A. N5 l       pb (cdr (assoc 11 dat))
: C- p7 Y5 J& @& ~- e ...

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

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

就是个栏选呗，没什么

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

通知

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

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

浏览过的版块