CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
3维：捕捉空间点
2.5维：捕捉空间点，但投影在当前UCS上
+ `+ R2 P1 ~8 ?# ]( l

- \. l  H& V) B  F, p1 S( B用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。

3 P9 k3 N4 ?+ w$ n请各位高手，，写一个这样的工具。。。

替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。
9 P' L3 V  d% @9 b9 E$ _& u' h, r
5 B% `9 V  ^: A. W% d) Q[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。
  C- b2 T$ c# y1 U( \
- Q! S+ Z: o* u+ K- o: f/ j& ~[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下

当前的UCS就确定了空间位置。。。


所以，CAD还是能实现这样的效果。
" l0 |* k( U* H  F2 ?3 ~% V
1 }$ a: M: t  w2 t% V7 b望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~
4 s9 x6 d! t( R4 h5 l
: A% ?, j% p2 m0 s: Y;;UCS视图
(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
(setq PT0x (car PT0))
8 d# H- d' _6 L! L7 F(setq PT0y (cadr PT0))
(setq PT0z (caddr PT0))
(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
0 g, X- }4 N/ J. D3 }" h: @5 Q8 t(setq offy (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetY))
(setq PT0 (list (+ PT0x offx) (+ PT0y offy) PT0z))
; y1 x" T# a/ u; E- v( n/ d; V(setq OX (vlax-get (vlax-ename->vla-object ss1) 'XAxis)) ;;获取X轴方向坐标
; l" \. i/ \& o4 d* x4 a9 z(setq OY (vlax-get (vlax-ename->vla-object ss1) 'YAxis)) ;;获取y轴方向坐标
6 _) k, O" A. W  @" _(vl-cmdf "_ucs" "o" PT0)
* p: q* f0 d4 R4 |" x* I, b) T(vl-cmdf "_ucs" "3" "" OX OY)
(vl-cmdf "_plan" "c"
& O+ K- T  B$ S0 ^4 w6 |
3 {9 F( e) F1 X, {/ A) M;;;设置深度过滤
;;(command "line" "0,0,0" (list 0 0 LL) "" )
6 E$ `8 n# R9 I1 E. Z" l(command "_dview" "all" "" "po" (list 0 0 LL) "0,0,0" "cl" "f" LL "cl" "b" "0" "")

5 _1 z" l- |7 M/ ?# T2 p$ o;;选择范围
(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
(setq PT2 (list (/ WW 2) (/ HH 2)) )
9 Y0 {% Y+ J) P2 ~% ~(setq PT3 (list (/ WW 2) (- (/ HH 2) TT2)) )
/ P1 d8 s' D" s, l' c5 D' f& t; F(setq PT4 (list (/ TT1 2) (- (/ HH 2) TT2)) )
' t, w. h7 P9 E6 `: E(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
* u# C" T  f2 Y# A0 R" d(setq PT6 (list (/ WW 2) (- TT2 (/ HH 2))) )
(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))) )
8 t3 \& y( b' L9 c+ B: p* u(setq PT11 (list (- 0 (/ TT1 2)) (- (/ HH 2) TT2)) )
9 i6 A' ^: m& y1 _9 y- E+ z) l1 B7 i6 _(setq PT12 (list (- 0 (/ WW 2)) (- (/ HH 2) TT2)) )
( w% c% s9 r! s* v5 o: V;;;(command "pline" PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1 "")
(setq PT_list (list PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1))
(ssdel ss1 (ssget "CP" PT_list))