CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
* }) K: a2 U4 T& {. s3维：捕捉空间点
- `; S: b8 i% }! P) C5 x2.5维：捕捉空间点，但投影在当前UCS上

6 K$ E) Y' w6 f1 \
用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。

0 j4 D4 Q# Z( s. O) E4 ?1 F请各位高手，，写一个这样的工具。。。
" J( U' G: @4 h; h
0 ~: o' L) o, }# k替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。
5 d7 r& _1 N& T$ v
! \1 M! R2 R& S6 Q3 c  T[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。
, S* G; N4 x! b9 p; R' e% c5 I3 x
[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下

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

% H2 Z6 A5 p  x; p6 ^
所以，CAD还是能实现这样的效果。
0 u, P- ]$ f- p( q5 z2 n
望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~

2 o+ j$ @7 F! @' E. z1 P! Z/ h2 |;;UCS视图
; A1 R7 f$ [+ ~3 P; h( e(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
(setq PT0x (car PT0))
(setq PT0y (cadr PT0))
7 ?  P  b7 w' f+ W% N(setq PT0z (caddr PT0))
+ ~+ K3 Z) o" _' b6 H4 x% t(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
4 }8 ?( f" }) Z: J4 v. l; A) }1 |(setq offy (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetY))
(setq PT0 (list (+ PT0x offx) (+ PT0y offy) PT0z))
(setq OX (vlax-get (vlax-ename->vla-object ss1) 'XAxis)) ;;获取X轴方向坐标
(setq OY (vlax-get (vlax-ename->vla-object ss1) 'YAxis)) ;;获取y轴方向坐标
(vl-cmdf "_ucs" "o" PT0)
) x- ~! O: |# x  _) ?. G4 |- N- s  W(vl-cmdf "_ucs" "3" "" OX OY)
(vl-cmdf "_plan" "c"

. a( K, F$ }; n. R7 u, m$ s;;;设置深度过滤
# O& j2 [- J0 y8 s, r2 b' O;;(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" "")
& z2 b+ c. m# A  V9 u1 u
;;选择范围
% V1 \, E. B/ c' _& i; b# K(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
(setq PT2 (list (/ WW 2) (/ HH 2)) )
(setq PT3 (list (/ WW 2) (- (/ HH 2) TT2)) )
(setq PT4 (list (/ TT1 2) (- (/ HH 2) TT2)) )
. [  P" ]' J7 I! J: [9 h/ ]  D(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
+ R& x, t2 M) G/ a! y(setq PT6 (list (/ WW 2) (- TT2 (/ HH 2))) )
. a5 d5 X4 U0 z3 j(setq PT7 (list (/ WW 2) (- 0 (/ HH 2))) )
: Q: U- F4 C& V(setq PT8 (list (- 0 (/ WW 2)) (- 0 (/ HH 2))) )
(setq PT9 (list (- 0 (/ WW 2)) (- TT2 (/ HH 2))) )
* D! Q& g- |  @% L(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 "")
(setq PT_list (list PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1))
' u7 q- n+ e0 l; {' l(ssdel ss1 (ssget "CP" PT_list))