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

taqqug

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

taqqug

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

SunVei

;;; No error check
2 Y7 M/ `0 [; K: J8 m/ G- @# n;;; for test only
* X9 ]" C3 ^6 T, B5 J' u( y(defun C:Test ()
9 D1 e+ |% z2 [   (setq ee (entsel)
# r' R2 c) {3 @+ ]5 N, ~         ee (car ee)
; a' I; y5 Z) F; P- n' l- a        dat (entget ee)
1 d! F( ^3 B/ H9 u+ @         pa (cdr (assoc 10 dat))
& q7 q9 Q+ E% M+ U         pb (cdr (assoc 11 dat))
- G3 A6 _9 n' J   )
   (command "Erase" "f" pa pb "" "r" ee "")
)

taqqug

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

woaishuijia

1. 
   7 i" A0 [* Y' F$ _! \0 C/ B$ j
2.     Dim E As AcadEntity, L As AcadLine, P As Variant
   
3.     On Error Resume Next
   $ [5 z) M2 G4 f$ H) e/ _
4.     With ThisDrawing
   
5.         Do
   % v, ^2 Y9 P% X: D* y- q  T# B
6.             .Utility.GetEntity E, P, vbCrLf & "选择直线:"
   
7.             If Err Then
   + k, J3 E5 g, E3 E) h* A: A
8.                 Exit Sub
   5 Y9 W5 G9 s" O
9.             ElseIf E.ObjectName = "AcDbLine" Then
   
10.                 Exit Do
    , p/ N) T. W7 m3 g
11.             End If
    
12.         Loop
    / o9 h" ^+ q% t* T
13.         Set L = E
    4 I+ J6 Q" D5 B# d2 C- }+ I
14.         For Each E In .ModelSpace
    
15.             P = L.IntersectWith(E, acExtendNone)
    7 K% x5 k& c, ]$ M+ N& ]2 o! @
16.             If UBound(P) >= 2 Then E.Delete
    2 T: v5 N  G$ n5 i. b. W4 L* s
17.         Next
    ' f9 M$ f* ^: A# k* Y* T) ]
18.     End With
    

复制代码

taqqug

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

www1974

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
7 P4 n3 Y7 p5 O; f7 \- a# a;;; No error check
4 A' T, d6 I( h, c;;; for test only
) g8 w! _, y* V; J(defun C:Test ()
   (setq ee (entsel)
         ee (car ee)
        dat (entget ee)
         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
    ...

% A! M" e9 X  H2 m' A. H
不错的办法，只是如果异面直线的话不也被咔嚓了？

SunVei

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

kjava

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

1619357946

& e" B# O: E. h: D# _4 v  @版主能不能做成一个文件啊？本人不能这方面的，不过很想用用哦
7 d4 g% L$ a- v) p谢谢

xhq1954425

就是个栏选呗，没什么