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

taqqug

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

taqqug

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

SunVei

;;; No error check
;;; for test only
(defun C:Test ()
4 R7 Z6 u  o9 Q( p2 X; s   (setq ee (entsel)
         ee (car ee)
# \$ J+ V, n/ f  l) f5 J& L        dat (entget ee)
         pa (cdr (assoc 10 dat))
- a5 @+ g9 d) _  z  l  R         pb (cdr (assoc 11 dat))
   )
7 U$ i# E. {: D) C1 H( P. h   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
   
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   7 n. Y* T- B9 {& w, M# N" O
3.     On Error Resume Next
   
4.     With ThisDrawing
   
5.         Do
   
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   
7.             If Err Then
   & E: K0 A, K5 Z% Z  K
8.                 Exit Sub
     }( H$ r) X) v/ H: m$ B
9.             ElseIf E.ObjectName = "AcDbLine" Then
   2 O7 `* |3 S/ W: f7 `& t) T2 q
10.                 Exit Do
    , \9 R: s! J, D* v6 M" k: @- C' y1 T
11.             End If
    5 \0 r) _, f0 y) D* A9 k5 r
12.         Loop
    
13.         Set L = E
    
14.         For Each E In .ModelSpace
    
15.             P = L.IntersectWith(E, acExtendNone)
    
16.             If UBound(P) >= 2 Then E.Delete
    6 l; w( I& ]" {% }) a/ I3 {6 V
17.         Next
    2 ?) X& y* L7 `7 w
18.     End With
    

复制代码

taqqug

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

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
- G: v* W8 e9 X$ R;;; No error check
;;; for test only
; O& C% G: I. P/ u(defun C:Test ()
% ]; W  b% x9 K; j   (setq ee (entsel)
  a; [$ G5 o% T! N  d$ Z6 Z* z6 s- P         ee (car ee)
        dat (entget ee)
7 P2 V! J5 A/ n) H         pa (cdr (assoc 10 dat))
% k6 T2 K& z5 e$ ~; {         pb (cdr (assoc 11 dat))
    ...

. X- T. m! }$ C$ G. a

' j! F3 h  V  b- t不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei

代码是跟着需求在走的
/ k4 ?1 B- r/ c) R- ~  {为自己量身定做最顺手 .....

kjava

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

1619357946

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

xhq1954425

就是个栏选呗，没什么