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

taqqug

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

taqqug

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

SunVei

;;; No error check
2 \% o- S/ M% v;;; for test only
(defun C:Test ()
   (setq ee (entsel)
         ee (car ee)
. e6 C& z% t: Z8 ^* M        dat (entget ee)
         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
- ?3 x5 i; @/ Q8 i! ^0 |- |   )
8 S3 H3 V0 G7 F2 s   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
     `1 I2 R$ v4 s
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   
3.     On Error Resume Next
   % H/ R1 t* D2 D1 z6 N0 }6 \, m
4.     With ThisDrawing
   0 N0 n  l/ h- ~3 F# s0 h& @
5.         Do
   ; \9 C* U* Z0 a8 q
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   3 w# [7 h9 Q) R+ F; I; I  j
7.             If Err Then
   
8.                 Exit Sub
   6 }" Z1 t! Q( M% }
9.             ElseIf E.ObjectName = "AcDbLine" Then
   
10.                 Exit Do
    3 i# l; U# A' t2 s2 p0 Y, p: A/ h
11.             End If
    
12.         Loop
    
13.         Set L = E
    1 \4 D9 z1 R4 O7 x& t1 S" Q
14.         For Each E In .ModelSpace
    ' L1 }8 c  R' ~' U) G
15.             P = L.IntersectWith(E, acExtendNone)
    
16.             If UBound(P) >= 2 Then E.Delete
    ( c( M, t' q# k
17.         Next
    1 L) D! S9 ?# ]. J
18.     End With
    4 r" s+ @9 L7 D: \' }; S

复制代码

taqqug

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

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
: Y7 X$ [1 T% W" V  I' \* p;;; No error check
;;; for test only
(defun C:Test ()
$ W( P: [) C- {$ Q5 i2 @5 j: |   (setq ee (entsel)
3 Y) y4 f; L; z* |         ee (car ee)
8 y4 K9 G! N" o$ `6 F        dat (entget ee)
         pa (cdr (assoc 10 dat))
. j/ M; p* ]# q5 q2 X1 C         pb (cdr (assoc 11 dat))
    ...

0 U9 U% n2 P: f6 V' y
  D# v4 K" f2 ^1 u
# H' C, L- S7 i3 L不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei

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

kjava

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

1619357946

版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
* L8 `% Y, A( c* T; j, F谢谢

xhq1954425

就是个栏选呗，没什么