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

taqqug

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

taqqug

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

SunVei

;;; No error check
;;; for test only
(defun C:Test ()
5 `3 T, d6 w4 V1 q$ O  g   (setq ee (entsel)
; Y9 B! x3 Z& Q( Z) p         ee (car ee)
        dat (entget ee)
- s% ]. s2 I! ^0 h& A- [         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
   )
( }+ [& Z3 i! o% r7 w2 h: U   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
   
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   3 H6 y5 O; D0 b. R
3.     On Error Resume Next
   $ _; a- v' |6 M! U4 |; ~
4.     With ThisDrawing
   
5.         Do
   1 Q% |  V7 o4 S, b! [2 i& {
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   ! g3 O, P+ g0 {5 Z/ a7 E6 \3 @3 {
7.             If Err Then
   4 \( `( W8 R! V% ~! B  G6 @
8.                 Exit Sub
   % k/ ?! W) z+ O3 n. ]" a
9.             ElseIf E.ObjectName = "AcDbLine" Then
   ( [2 S: `* g: z
10.                 Exit Do
    , l% }( n6 \+ {, D0 W, B* {
11.             End If
    . m( H+ ?* \/ \+ ?, L  F! ^: o
12.         Loop
    
13.         Set L = E
    # L' ^5 j; b; o: @; R- T
14.         For Each E In .ModelSpace
    " q5 p8 A3 ?5 e6 y
15.             P = L.IntersectWith(E, acExtendNone)
    
16.             If UBound(P) >= 2 Then E.Delete
    7 E' L- p& A1 s, s* r
17.         Next
    + Q$ e+ ?& U: E; @$ ]- n
18.     End With
    ( N+ C+ s" Y' Q) J) L

复制代码

taqqug

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

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
;;; No error check
;;; for test only
(defun C:Test ()
   (setq ee (entsel)
& Z4 }3 j; `0 q5 W         ee (car ee)
* P0 P" q8 L  W' t% Y! Q        dat (entget ee)
         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
    ...

6 o3 I+ a$ F8 \: r

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

SunVei

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

kjava

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

1619357946

, G  j" g( G! A+ K3 R/ n版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
6 c5 [: s) F+ N7 D0 T5 i9 ^谢谢

xhq1954425

就是个栏选呗，没什么