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

taqqug · 发表于 2009-5-27 19:36:13

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

taqqug · 发表于 2009-5-27 19:39:39

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

SunVei · 发表于 2009-5-27 21:40:54

;;; No error check
;;; for test only
(defun C:Test ()
(setq ee (entsel)
      ee (car ee)
      dat (entget ee)
      pa (cdr (assoc 10 dat))
      pb (cdr (assoc 11 dat))
)
(command "Erase" "f" pa pb "" "r" ee "")
)

taqqug · 发表于 2009-5-30 18:34:08

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

woaishuijia · 发表于 2009-5-30 21:12:01

& A4 |7 T1 j/ T2 B6 T8 @# e
Dim E As AcadEntity, L As AcadLine, P As Variant
, i, P& _, n1 I7 d5 r
On Error Resume Next
, L! p% Q5 D& l( ^1 q, y2 J3 `$ n
With ThisDrawing
- x4 h6 f" g, J5 j( c
Do
; e$ y1 w1 ^' ?' p( Y. X8 B
.Utility.GetEntity E, P, vbCrLf & "选择直线:"& i5 ^7 c# n7 T& q! u; {& K
If Err Then
3 G/ \$ K, x$ N
Exit Sub
2 ?3 j$ d7 y( T z# T% C" {5 ~
ElseIf E.ObjectName = "AcDbLine" Then
6 z- e5 E T$ i- W$ D
Exit Do w: f/ T3 M# P/ ?8 j, t, j% Q2 t
End If/ P* c# j! U% X$ \0 Y2 O) r
Loop
- R( a& G+ J( `! f
Set L = E
1 _- g+ D- T+ f1 P1 `9 O
For Each E In .ModelSpace6 e5 [1 V) I; k, q7 o2 q# m ?
P = L.IntersectWith(E, acExtendNone)
" w1 k0 L% J2 c t, g9 E
If UBound(P) >= 2 Then E.Delete
! x: O/ P( h, V W+ f8 R
Next
, X1 G6 Y$ I& S+ W7 Q9 X! Q
End With6 [; o7 V1 ^9 O2 V

复制代码

taqqug · 发表于 2009-5-31 19:18:21

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

www1974 · 发表于 2009-6-4 16:01:02

原帖由 SunVei 于 2009-5-27 21:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
# q. U9 t; r- _7 z/ W) [;;; No error check2 H( i+ V- |7 A# [6 [
;;; for test only
4 B5 z1 i: a& v$ r# e' X(defun C:Test ()
' }, |& q" [$ ?: ` (setq ee (entsel): ]( u2 _, n6 j( L
      ee (car ee)
3 z, W8 U. t+ f: u0 I       dat (entget ee)
& Z4 p# Z- m9 d5 c       pa (cdr (assoc 10 dat)) 3 |1 P& \) n6 j& P5 P0 k# H
      pb (cdr (assoc 11 dat))
9 E; [. {0 x/ b ...

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

SunVei · 发表于 2009-6-5 15:07:26

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

kjava · 发表于 2009-7-8 10:37:41

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

1619357946 · 发表于 2015-1-9 09:55:09

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

xhq1954425 · 发表于 2015-1-9 15:12:41

就是个栏选呗，没什么

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块