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

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

3 U" Q( @# m& g! I
Dim E As AcadEntity, L As AcadLine, P As Variant
6 [! K- [" ~) G+ P0 Z- y+ i3 g5 m
On Error Resume Next
* f8 B" H9 T4 i% w" A( |' b
With ThisDrawing# ~1 B5 U) ^5 U/ d4 }9 Y: J. Z
Do
! }$ Z7 {7 N9 ?# X2 c
.Utility.GetEntity E, P, vbCrLf & "选择直线:"
" _1 w; ~0 M8 B! [; l5 K
If Err Then2 o4 e0 x4 T( }8 b) F; f( m
Exit Sub2 @$ Q" V. P) ^# Z
ElseIf E.ObjectName = "AcDbLine" Then& R! J! c- X9 r: O& k/ @ i
Exit Do
( Z c3 Q5 x5 L- S7 T. G
End If4 V9 _8 E* D: P5 Q+ a& D6 b
Loop) q. ?1 v) A2 H: ~$ Z6 F* r
Set L = E
. S3 B2 `( ?( Q7 w+ R
For Each E In .ModelSpace
# Q5 y+ E) U7 w8 A8 E; c( X
P = L.IntersectWith(E, acExtendNone)2 f3 d2 j1 [$ P$ s( l
If UBound(P) >= 2 Then E.Delete/ z3 m2 Q0 b* S; ` y) J) D, ]
Next5 ]2 _" n& _- l, @
End With5 z! U8 O3 i% b) ^. O$ G

复制代码

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
6 S6 s7 i- F1 e' a4 i: L" x;;; No error check& }: q1 J5 r! g& G. @/ Z' R: L
;;; for test only4 B/ h$ x+ D) h
(defun C:Test ()( G* `, D9 h) y, H6 s
(setq ee (entsel)# w1 a$ o! N# p5 j8 m/ V( |
      ee (car ee). K% h& |3 a6 ^5 j
      dat (entget ee) 9 I' b7 A3 X( g: J2 E/ K1 w
      pa (cdr (assoc 10 dat))
$ m& S, W, I4 v1 T5 _       pb (cdr (assoc 11 dat))
; _! [( a6 m' d" H) I. M ...

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

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

就是个栏选呗，没什么

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

通知

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

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

浏览过的版块