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

taqqug

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

taqqug

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

SunVei

;;; No error check
;;; for test only
(defun C:Test ()
   (setq ee (entsel)
         ee (car ee)
6 E! Q- R5 R3 n# u) q        dat (entget ee)
1 N1 {" D2 C" [# P- Q9 b         pa (cdr (assoc 10 dat))
0 l5 H: b4 L- I/ L, K) x& V         pb (cdr (assoc 11 dat))
   )
$ V( N7 |# ]- G) k" p# E   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
   7 k' K" P' ~0 U2 ]" z
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   
3.     On Error Resume Next
   
4.     With ThisDrawing
     o; I6 n9 D9 [) Z& Z; d
5.         Do
   . o4 J4 B6 I8 u9 ?* Z5 ]* @% D
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   & Y! Z1 V% g0 h) N% v5 e$ l
7.             If Err Then
   
8.                 Exit Sub
   
9.             ElseIf E.ObjectName = "AcDbLine" Then
   7 M8 ~1 a# N* p
10.                 Exit Do
    
11.             End If
    & |0 S/ }# E" U+ |
12.         Loop
    ; P; a% h5 E$ x5 Q- i: F7 X
13.         Set L = E
    
14.         For Each E In .ModelSpace
    
15.             P = L.IntersectWith(E, acExtendNone)
    4 S) [4 E( d: U, S
16.             If UBound(P) >= 2 Then E.Delete
    
17.         Next
    
18.     End With
    . Y( u! f% |- ?8 |% B1 ^9 ~+ V

复制代码

taqqug

版主你太厉害了,能推荐点资料吗?你是怎么学这VBA的?
. G" J4 O8 `! Q9 \0 E! u非常感谢

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
* H; E6 v! [, Q# O2 i5 O6 ];;; No error check
5 T* E. _3 `1 D0 ^2 t- J( ^;;; for test only
$ J4 r' }1 @5 _  @* T9 ~4 ^(defun C:Test ()
   (setq ee (entsel)
9 A9 V# Z! K/ E4 I. i         ee (car ee)
2 T* d; c# G5 Z3 a0 d        dat (entget ee)
& e0 J& q: d; A1 o4 R$ C         pa (cdr (assoc 10 dat))
! s0 ~7 ^4 @# s+ I! _         pb (cdr (assoc 11 dat))
    ...

8 ~1 W1 u8 U, ?( d* Q
5 A( \8 x: V, Q$ N- c
不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei

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

kjava

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

1619357946

3 }0 ]4 o; x& K  w& @版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
谢谢

xhq1954425

就是个栏选呗，没什么