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

taqqug

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

taqqug

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

SunVei

;;; No error check
;;; for test only
(defun C:Test ()
4 f1 g9 Z+ I. K5 Y  p   (setq ee (entsel)
         ee (car ee)
. |0 D6 K: t# e" Q' s% e8 W        dat (entget ee)
$ D9 c6 H! g# j& z8 l" l2 W5 P9 k+ a         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
2 K3 k& j( ]6 X- U3 d/ \! [$ y   )
   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
   
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   
3.     On Error Resume Next
   
4.     With ThisDrawing
   
5.         Do
   
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   ' e/ D! y+ s  q
7.             If Err Then
   ) Y; C# o" V) V  b. K+ B5 |7 ^7 n
8.                 Exit Sub
   
9.             ElseIf E.ObjectName = "AcDbLine" Then
   6 q3 ~6 N/ i# s( L& M- r$ r
10.                 Exit Do
    / p6 I; @3 d3 |$ J' y! u8 V! v" _
11.             End If
    
12.         Loop
    $ J/ _4 Z. ~  K
13.         Set L = E
      w! b4 H& }, v! l
14.         For Each E In .ModelSpace
    
15.             P = L.IntersectWith(E, acExtendNone)
    6 X7 X4 A5 e( q( g2 k9 c% ?
16.             If UBound(P) >= 2 Then E.Delete
    
17.         Next
    
18.     End With
    " I& ?5 U2 e) o6 [4 R9 m, x# o

复制代码

taqqug

版主你太厉害了,能推荐点资料吗?你是怎么学这VBA的?
) p. ~7 x& W) B% r( ^. s3 N' u非常感谢

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
;;; No error check
/ i3 O- n; x& z0 F2 ?$ B; };;; for test only
8 ~; H% V3 i: z4 r(defun C:Test ()
$ V9 E+ B3 F  G0 |  i   (setq ee (entsel)
6 F1 Z( B1 u" x1 q         ee (car ee)
0 J" U% N1 s" l7 ]% k9 |        dat (entget ee)
         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
% Z& m* A4 I' A5 n    ...

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

SunVei

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

kjava

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

1619357946

版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
. M9 c& C' g/ Y* e; z  Z6 H2 Z谢谢

xhq1954425

就是个栏选呗，没什么