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

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

- E9 B3 J; A7 A. J+ b
Dim E As AcadEntity, L As AcadLine, P As Variant
) {$ l" x7 ~3 ~ g% _+ z+ g1 f: I
On Error Resume Next; ~7 I7 ^' f' Y. j: ]
With ThisDrawing
7 \$ Y3 l, C$ C0 e" l( e! \
Do6 d( D6 i3 W }* Z7 _% n6 v
.Utility.GetEntity E, P, vbCrLf & "选择直线:"9 G' \1 r" O. O6 X ]
If Err Then
$ V: g; d H ]5 ]
Exit Sub
! }' {" _& d& E4 b" ^! S
ElseIf E.ObjectName = "AcDbLine" Then
0 b: I0 Y" I. t6 u# V
Exit Do; u# }1 a; v' R/ S- F
End If
5 j8 D9 L1 V# w* l9 C8 A
Loop' d+ b9 V ~" Z& `2 m
Set L = E
/ m J- a+ |$ \) X6 S
For Each E In .ModelSpace
* h% P; U! Q' L* s2 [7 ^% f9 Y
P = L.IntersectWith(E, acExtendNone)1 Y8 M# i, p4 O$ Z# n* r
If UBound(P) >= 2 Then E.Delete3 W- _7 X! \6 g( e0 I& Z* T
Next
7 @; D9 q) \8 t/ [! R- k
End With6 o* w& R- i& T2 u+ 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
" B+ u; X  n; E! d;;; No error check# T1 V7 w1 r6 R) j; \7 Z; v8 t4 r
;;; for test only
' S" X$ J3 u4 \5 O: D) p(defun C:Test ()# L5 Y; d! F# d. G
(setq ee (entsel)% V$ B( b1 p" ^  o
      ee (car ee)
& u0 u5 b: F6 C; M9 b! _       dat (entget ee) . S% u) b" U9 s2 H6 g% y' _- q
      pa (cdr (assoc 10 dat))
6 q8 M& e  V9 [8 T, E       pb (cdr (assoc 11 dat))
8 E- H3 \3 m% t( n7 D# V ...

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

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

就是个栏选呗，没什么

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

通知

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

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

浏览过的版块