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

taqqug

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

taqqug

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

SunVei

;;; No error check
;;; for test only
(defun C:Test ()
   (setq ee (entsel)
2 T% Y6 z9 N0 b5 J3 A3 T         ee (car ee)
) k1 l5 ]1 @' {        dat (entget ee)
6 @' j# Y( R. u         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
! b' ^" H* a) T7 l$ n   )
   (command "Erase" "f" pa pb "" "r" ee "")
! t# z$ \. ~8 y- C. m! V3 y)

taqqug

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

woaishuijia

1. 
   & x( t% Z6 i; I0 M+ r" E6 J
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   
3.     On Error Resume Next
   
4.     With ThisDrawing
   ) _/ z9 j( ~1 T
5.         Do
   
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   & I: G0 |* m. o. p
7.             If Err Then
   2 p0 s5 H$ w0 W5 `( P
8.                 Exit Sub
   5 w! M( b# I% b1 j3 Z
9.             ElseIf E.ObjectName = "AcDbLine" Then
   
10.                 Exit Do
    
11.             End If
    
12.         Loop
    - M% i* M5 b( y, f. b6 A, x
13.         Set L = E
    6 l6 w; c$ p0 [; k# x6 d
14.         For Each E In .ModelSpace
    * Q1 i3 O2 O! a" t
15.             P = L.IntersectWith(E, acExtendNone)
    
16.             If UBound(P) >= 2 Then E.Delete
    " T% j5 q5 I. H% ~# e, K( R' G3 u
17.         Next
    
18.     End With
    ) L1 m% U2 [# }

复制代码

taqqug

版主你太厉害了,能推荐点资料吗?你是怎么学这VBA的?
' e! j5 k5 `8 J& N5 Z5 }8 T3 R非常感谢

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
;;; No error check
;;; for test only
: Q# V. S( s9 b1 q! w) v$ o6 \(defun C:Test ()
   (setq ee (entsel)
! O" y0 J0 b: x! n3 \4 l, g         ee (car ee)
        dat (entget ee)
( K8 u: j6 @! b, i% }         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
    ...

7 H9 ~: ]% B( J7 l8 v( F0 v1 {* l

( X4 d" e" o0 [& T6 v9 P不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei

代码是跟着需求在走的
7 |' A+ E/ E. C& e8 h" o8 M3 p: w0 @为自己量身定做最顺手 .....

kjava

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

1619357946

版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
谢谢

xhq1954425

就是个栏选呗，没什么