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

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

3 N- f7 w8 j# o5 r! Z: `$ y; j5 _
Dim E As AcadEntity, L As AcadLine, P As Variant0 y3 I( ?/ ]! v4 ^, a- B0 P
On Error Resume Next
7 k7 S/ y$ u/ @, d/ r) u
With ThisDrawing- g5 Q4 [* E! C; O
Do
+ Z3 v) [; W+ @6 r9 r
.Utility.GetEntity E, P, vbCrLf & "选择直线:"
" c, q# U1 f, |( {5 b( l4 j
If Err Then3 d, i, e ^. G4 r; J; A
Exit Sub `# x) ~ T: l( t) M, Q
ElseIf E.ObjectName = "AcDbLine" Then1 H8 t4 K1 @/ s' ~2 A9 h' w9 D
Exit Do
; B- f ?. I; c9 P( x) n: n
End If
% {, |) \# J) w$ i
Loop1 Q) B+ X( g: V8 a
Set L = E/ Y. d' @5 X. ^: G
For Each E In .ModelSpace
' E" s3 e" C! Y! c* w* |
P = L.IntersectWith(E, acExtendNone); j8 O% x- C+ A1 O8 b& f6 n$ P6 m
If UBound(P) >= 2 Then E.Delete, B+ n. F C7 U% W
Next* V1 J1 Y0 w5 N6 T6 F/ k. w
End With
2 w: o2 g# J' Y# i- B' h, t

复制代码

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- `: m5 E7 p  f1 |4 U3 N
;;; No error check
% t" ?- U6 C0 L$ n) X% @- S9 t;;; for test only( l$ E( [; L" b  F9 y3 s
(defun C:Test ()
( N+ l. P) d4 l$ w (setq ee (entsel)! b3 X+ J2 A/ Z5 W7 ]+ W, {& H( M9 m
      ee (car ee)9 O/ a& a/ q! Z! r: B
      dat (entget ee) " M' B! b7 _/ T: s, R/ A# ]5 t
      pa (cdr (assoc 10 dat)) " u1 P2 s% Y1 F- j; [& d
      pb (cdr (assoc 11 dat)) ( D, R6 A$ O" h  \
...

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

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

就是个栏选呗，没什么

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

通知

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

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

浏览过的版块