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

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

1 z" k4 N$ g% h! p- m( C
Dim E As AcadEntity, L As AcadLine, P As Variant# Q' R; v4 S/ ^
On Error Resume Next2 V/ _! ^: L; w6 f
With ThisDrawing! P3 E h8 q7 ]. u
Do
& r- S0 S) q' W- L2 `! ~
.Utility.GetEntity E, P, vbCrLf & "选择直线:"4 D0 i" L; d! y2 P
If Err Then
6 Z3 ]4 r d) i9 D; ^' U: Z
Exit Sub
5 F; y$ [: k2 i# _3 h4 x- P
ElseIf E.ObjectName = "AcDbLine" Then
5 |/ o' F* W W
Exit Do5 _1 Z6 J) X9 V9 D2 q
End If3 }* H4 Y& p" _. U. s
Loop
& d" ^+ S: z) k
Set L = E
4 S7 m! y5 }9 I9 b' }8 P, h) `5 e
For Each E In .ModelSpace
2 X% J6 Q/ F; r+ N) h9 j" L2 j
P = L.IntersectWith(E, acExtendNone)
" }& ]5 X. o9 l; s# ~
If UBound(P) >= 2 Then E.Delete, c4 f6 u8 Z! p/ \& b0 G
Next8 h# H* C/ M) `5 d/ u" D: ~2 I, r
End With
% {, E& }1 Q& U2 q, M; F$ w- `

复制代码

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
( y: L: w* B- i;;; No error check6 c3 \6 {9 _) Q) W) F* `6 _5 h. e6 ^% N
;;; for test only2 P) {9 W- m+ R/ S% t
(defun C:Test ()4 w6 p/ f3 J% N! N2 r9 D
(setq ee (entsel)
7 ^6 n# y2 G! [. m0 B+ x# M       ee (car ee)
1 k% }+ T6 y2 s       dat (entget ee)
) [: [9 v& h% }6 Q* H       pa (cdr (assoc 10 dat)) 2 E1 o! o+ k+ Z$ b
      pb (cdr (assoc 11 dat))
3 {2 f9 c7 C6 ? ...

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

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

就是个栏选呗，没什么

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

通知

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

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

浏览过的版块