CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
  d5 s  Y/ M0 p& W2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
3维：捕捉空间点
5 {9 v0 j6 Q; ?7 H. o2.5维：捕捉空间点，但投影在当前UCS上
. G3 K* }$ k; l$ @, z
8 {, k5 |! @5 ?7 H5 n6 i" e
用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。
; W" I" [/ ^3 w: I
请各位高手，，写一个这样的工具。。。
# m& `* d+ m+ w. S
! U7 k' e- C% h0 w/ c替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。

- `2 `0 R- b  z, M5 X- F+ c[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。
; b/ q8 j! z: Y
[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下

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

; G' W& E9 @% h) f
8 @. K& I0 v& Y- O) s2 g所以，CAD还是能实现这样的效果。

% F& l1 a" C% g* t5 c+ ]望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~
' p& E9 z8 y% E# t% @) R" B& P
' q2 _* `/ B* @& n% J;;UCS视图
(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
6 Z/ y* B6 i' E) \3 o( h(setq PT0x (car PT0))
(setq PT0y (cadr PT0))
(setq PT0z (caddr PT0))
4 o( T" S# `$ f! G. l: [# Q: n2 D1 J(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
(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轴方向坐标
/ p2 A6 G7 r& E" R+ r) O/ c(setq OY (vlax-get (vlax-ename->vla-object ss1) 'YAxis)) ;;获取y轴方向坐标
(vl-cmdf "_ucs" "o" PT0)
(vl-cmdf "_ucs" "3" "" OX OY)
7 T0 a1 x% y8 z) Z( t$ l/ ]& ^: D(vl-cmdf "_plan" "c"

;;;设置深度过滤
' ^( P% M" _5 C6 y* D" |;;(command "line" "0,0,0" (list 0 0 LL) "" )
0 H1 A% T: w8 K- c$ X(command "_dview" "all" "" "po" (list 0 0 LL) "0,0,0" "cl" "f" LL "cl" "b" "0" "")
) n. c3 y# [4 J* R$ D
;;选择范围
(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
) m% G, T( d4 O(setq PT2 (list (/ WW 2) (/ HH 2)) )
: H2 I2 [+ ]/ T6 {9 E( w(setq PT3 (list (/ WW 2) (- (/ HH 2) TT2)) )
(setq PT4 (list (/ TT1 2) (- (/ HH 2) TT2)) )
1 X% s# d6 a( C+ Q(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
6 n9 z& c# y1 F(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))) )
(setq PT11 (list (- 0 (/ TT1 2)) (- (/ HH 2) TT2)) )
4 x! C' P4 v% o" b+ n; z(setq PT12 (list (- 0 (/ WW 2)) (- (/ HH 2) TT2)) )
. K# x$ v5 \8 B0 u- l. ?;;;(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))