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

taqqug

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

taqqug

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

SunVei

;;; No error check
;;; for test only
2 u" b& c: v0 ^' i7 Z) h* j5 r1 x* u(defun C:Test ()
   (setq ee (entsel)
         ee (car ee)
        dat (entget ee)
         pa (cdr (assoc 10 dat))
  |$ f& R* y6 Z9 Z         pb (cdr (assoc 11 dat))
   )
# S5 r4 Y  R7 [/ \& a, x; a: Y7 t  R   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
   
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   ( ?, ?. Z" n% h" ]2 w
3.     On Error Resume Next
   
4.     With ThisDrawing
   5 g* a- q; E% Q, B
5.         Do
   
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   
7.             If Err Then
   
8.                 Exit Sub
   & e- G; a$ D! T4 `4 x9 _
9.             ElseIf E.ObjectName = "AcDbLine" Then
   * Z+ m# }) }3 N- d  q- @& W- q5 I6 p* B
10.                 Exit Do
    . S  |, q; i) u
11.             End If
    
12.         Loop
    & X2 z  u- c* R1 L( t- i
13.         Set L = E
    1 j+ ~" t$ N1 c1 b
14.         For Each E In .ModelSpace
    
15.             P = L.IntersectWith(E, acExtendNone)
    % V1 ~5 D7 r+ ^2 ]1 ^: T& E0 g
16.             If UBound(P) >= 2 Then E.Delete
    3 U$ b" Y5 U0 l
17.         Next
    , M4 L. O6 F  P8 }8 w
18.     End With
    

复制代码

taqqug

版主你太厉害了,能推荐点资料吗?你是怎么学这VBA的?
( Q& I( p% ?  }% d4 r0 a- s非常感谢

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
;;; No error check
;;; for test only
7 g! T* I8 f. j( c$ t) r9 P8 x0 e(defun C:Test ()
- U8 x1 ?4 t# i   (setq ee (entsel)
         ee (car ee)
8 t$ W8 h; f2 X% [1 v8 A. M  H        dat (entget ee)
7 Y; P, R! h# f  v0 a( r         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
4 R& c0 f, Y8 ^, ?    ...

* E- O/ C# P& ~: i* ?8 O) W! W不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei

代码是跟着需求在走的
为自己量身定做最顺手 .....

kjava

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

1619357946

0 k0 V1 U% R6 S/ b9 t- A* X版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
: C; F* J" p3 ^7 a% \谢谢

xhq1954425

就是个栏选呗，没什么