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

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

; u [4 X6 O& I+ \& I7 }! [* U$ t. H
Dim E As AcadEntity, L As AcadLine, P As Variant {: ?/ |! }) _" {8 d2 H- a
On Error Resume Next
& {! x' N/ X4 o: Z
With ThisDrawing. M; |! D. Y, S+ u- l
Do% {5 P* z9 S. e& i0 \
.Utility.GetEntity E, P, vbCrLf & "选择直线:"
- Q+ y9 R: X- j( H, m( u# _$ @) c
If Err Then% F% s! e. g$ b" X' U
Exit Sub) d) h+ Z, D0 ~+ w5 S g0 t
ElseIf E.ObjectName = "AcDbLine" Then
$ {/ N5 M6 ]" n
Exit Do. L% v: M; t& g9 Q4 S3 l) e+ @
End If
! U; Z4 ^: ^5 k: O4 C
Loop( u' ?5 S) P% L* i I( K
Set L = E
& v l- P4 k" B, r
For Each E In .ModelSpace8 B. B( F2 \) W
P = L.IntersectWith(E, acExtendNone)
0 H' z, E) H- [/ s& h: l) t) ]
If UBound(P) >= 2 Then E.Delete+ x! k0 X4 G; e, X2 N: H
Next
, j2 `0 R- u2 t. p6 g/ a
End With7 r2 S. w' X- G+ s# B

复制代码

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
& k$ Y- w3 |0 e/ y;;; No error check( E3 }0 z6 ]1 {- u5 g3 }4 H
;;; for test only3 m$ A: b2 r( N
(defun C:Test (); M. L) l0 z) s" K" n
(setq ee (entsel)
) E/ K% G; C! p$ `) a$ V       ee (car ee)# J$ a$ A5 ]# G  l
      dat (entget ee) , H' `. ^5 N. m
      pa (cdr (assoc 10 dat))
- w* o2 z. n" {5 _- @" ^       pb (cdr (assoc 11 dat))
  J. ]# S3 z9 z2 W ...

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

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

就是个栏选呗，没什么

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

通知

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

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

浏览过的版块