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

taqqug

请大家帮忙看看这个功能能否实现.我想要的效果是在图中我画一条直线,当我点一个删除按钮然后提示让我选择一条直线,之后与这条直线相交的所有对象都删除了,不与之相交的对象保留.谢谢了

taqqug

我只能实现与直线相交的都删除但不能指定一条直线,要是有很多条直线我就搞不定了,大家帮我想想办法

SunVei

;;; No error check
5 _# j3 @) F8 [7 ]) Y;;; for test only
(defun C:Test ()
( x0 m' {; W. g* w: `6 @   (setq ee (entsel)
6 c8 }- x) Y8 d9 ?         ee (car ee)
        dat (entget ee)
  P3 |% s' n2 O# b* g         pa (cdr (assoc 10 dat))
! {  l% ]3 \# `! Y/ B         pb (cdr (assoc 11 dat))
( q: S8 V6 k- b  L( t   )
   (command "Erase" "f" pa pb "" "r" ee "")
( ?1 }* a" s1 z; t, v* T! O' z)

taqqug

我用的是VBA呀,能不能给VBA代码,详细点的,谢谢了!

woaishuijia

1. 
   ' U4 n  o9 }' h/ Y8 i$ n
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   " }% n1 k$ O# J5 e' P& j* ~
3.     On Error Resume Next
   ( ~! y, v& c$ a- Q/ e5 R1 p
4.     With ThisDrawing
   
5.         Do
   
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   
7.             If Err Then
   2 {5 t" k$ J" o- @& `; ^
8.                 Exit Sub
   / b# c& E% t5 E2 Q/ z( X
9.             ElseIf E.ObjectName = "AcDbLine" Then
   - A+ y0 x1 g, O+ I  \
10.                 Exit Do
    ; c) ^, A2 @& g  X. g$ `7 u0 K
11.             End If
    ( Z: _* K2 j0 j0 d
12.         Loop
    1 e- h6 v0 r0 w* Z1 v" z" j3 N* Y
13.         Set L = E
    ) H$ V2 X4 o% c* K; ~
14.         For Each E In .ModelSpace
    7 [! E! \, T8 J' f! M
15.             P = L.IntersectWith(E, acExtendNone)
    * J" f' I3 P/ d* Z6 x1 D
16.             If UBound(P) >= 2 Then E.Delete
    6 r' M8 D; j" I- K' B' J
17.         Next
    # }, x( v; U/ k; p, f1 A
18.     End With
    6 t' ^4 b- V' ?% I) g' V, C

复制代码

taqqug

版主你太厉害了,能推荐点资料吗?你是怎么学这VBA的?
非常感谢

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
/ u; }1 z0 t4 e$ X$ Y  s& i2 |;;; No error check
;;; for test only
(defun C:Test ()
+ s% y% I$ r& W! G2 q- H   (setq ee (entsel)
         ee (car ee)
        dat (entget ee)
         pa (cdr (assoc 10 dat))
+ ?7 L0 n) h$ a% q" y         pb (cdr (assoc 11 dat))
- x1 R* p% ^/ J' M  |) }    ...

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

SunVei

代码是跟着需求在走的
5 r0 L% ?+ }4 L% }1 s* b为自己量身定做最顺手 .....

kjava

以直线两个端点为对角点的长方形为cross方式选择实体，然后在选择集判断每个实体是否跟直线相交，相交的就删除

1619357946

版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
0 J6 \  o4 Q" [% K, \* g谢谢

xhq1954425

就是个栏选呗，没什么