CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
3维：捕捉空间点
! l9 N: e( q$ x1 [) L2.5维：捕捉空间点，但投影在当前UCS上

. S$ w/ `9 I8 \
# z' D( \+ z3 A2 R: R( j用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。

0 E- }, D! P1 u2 P$ g请各位高手，，写一个这样的工具。。。

替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。

[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

不能实现，CAD中都是灵活的空间。

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。
/ E! h7 _0 y+ k
" I( }# W& c% `/ B$ J& \3 Z[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下

& ^* d- c" ]& e当前的UCS就确定了空间位置。。。

8 Q) o# e: k$ f% A4 t
: {" F# l9 U3 B8 f/ x所以，CAD还是能实现这样的效果。
$ m" F/ g: y5 s, @
7 A! j4 m% X, H5 s( _) d1 g望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~
! ^. G% `- \) b, I8 g
) g4 x& }3 _& _, Y2 R;;UCS视图
(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
5 H& M. H* N# _( e(setq PT0x (car PT0))
(setq PT0y (cadr PT0))
# n0 D# M  m6 [7 u: X7 X/ Y5 {3 x(setq PT0z (caddr PT0))
(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
(setq offy (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetY))
) p' ~! P* Q, t% b" c: q: R( p(setq PT0 (list (+ PT0x offx) (+ PT0y offy) PT0z))
(setq OX (vlax-get (vlax-ename->vla-object ss1) 'XAxis)) ;;获取X轴方向坐标
; A# u( F3 t- y6 U) j- t, T(setq OY (vlax-get (vlax-ename->vla-object ss1) 'YAxis)) ;;获取y轴方向坐标
$ _  h* V$ V* s4 b$ s(vl-cmdf "_ucs" "o" PT0)
. }9 R/ v6 X4 [- Z(vl-cmdf "_ucs" "3" "" OX OY)
(vl-cmdf "_plan" "c"

5 m$ k6 u8 _/ n& F+ M* n% r4 D;;;设置深度过滤
;;(command "line" "0,0,0" (list 0 0 LL) "" )
(command "_dview" "all" "" "po" (list 0 0 LL) "0,0,0" "cl" "f" LL "cl" "b" "0" "")
# @9 u  M7 V! s1 g
;;选择范围
# B. I! S8 J, L  m/ l+ z- c(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
' \* P8 s/ x- m& h(setq PT2 (list (/ WW 2) (/ HH 2)) )
& I% l$ t) b: k9 E& Y(setq PT3 (list (/ WW 2) (- (/ HH 2) TT2)) )
' m6 i, t  h, Y5 D2 ?(setq PT4 (list (/ TT1 2) (- (/ HH 2) TT2)) )
, Z2 U0 h) n5 e+ X2 c(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
(setq PT6 (list (/ WW 2) (- TT2 (/ HH 2))) )
3 X- u5 O. r2 p9 M(setq PT7 (list (/ WW 2) (- 0 (/ HH 2))) )
(setq PT8 (list (- 0 (/ WW 2)) (- 0 (/ HH 2))) )
(setq PT9 (list (- 0 (/ WW 2)) (- TT2 (/ HH 2))) )
(setq PT10 (list (- 0 (/ TT1 2)) (- TT2 (/ HH 2))) )
(setq PT11 (list (- 0 (/ TT1 2)) (- (/ HH 2) TT2)) )
(setq PT12 (list (- 0 (/ WW 2)) (- (/ HH 2) TT2)) )
;;;(command "pline" PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1 "")
" u" t; c. S' t5 m& w(setq PT_list (list PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1))
(ssdel ss1 (ssget "CP" PT_list))