CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
3维：捕捉空间点
2.5维：捕捉空间点，但投影在当前UCS上
$ F  o7 W/ a% S0 M2 U
, Q, z* u$ l4 }6 M- D2 d' E
用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。

请各位高手，，写一个这样的工具。。。

  z' r: N( {3 @/ F替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。

$ ^6 u# n4 x! c/ a0 p  r: Z( y[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。

[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下
+ w% X' x% t- w; F
当前的UCS就确定了空间位置。。。


3 Z; M* u; X- i0 S4 v所以，CAD还是能实现这样的效果。

( X7 b# y6 J9 e望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~
. e1 w* L, T+ M4 Q( g& ], q; Y
;;UCS视图
" G3 M% ^" Z$ i1 l+ L(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
(setq PT0x (car PT0))
2 F0 L* r4 T$ Z% g9 ?2 o* |" @: h(setq PT0y (cadr PT0))
(setq PT0z (caddr PT0))
(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
(setq offy (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetY))
0 p& ^9 I! t6 r3 W(setq PT0 (list (+ PT0x offx) (+ PT0y offy) PT0z))
$ ^) r. J0 u  R9 Y( D. D2 q7 C( `(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)
(vl-cmdf "_ucs" "3" "" OX OY)
(vl-cmdf "_plan" "c"

* q: A- ?* m/ Y& x) F;;;设置深度过滤
;;(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" "")
" h  r3 @8 }  q
& G  e# [6 c& r; M8 Z- K;;选择范围
# d4 @7 ^) _$ m, J0 c(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
(setq PT2 (list (/ WW 2) (/ HH 2)) )
(setq PT3 (list (/ WW 2) (- (/ HH 2) TT2)) )
+ Y# C! I& I9 Z+ I(setq PT4 (list (/ TT1 2) (- (/ HH 2) TT2)) )
/ O, l& ?+ z4 z# ^9 n* ?(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
(setq PT6 (list (/ WW 2) (- TT2 (/ HH 2))) )
- H4 }) ^. \, \- H# N! s2 @(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))) )
; r$ e6 Y/ A) Z' k(setq PT10 (list (- 0 (/ TT1 2)) (- TT2 (/ HH 2))) )
(setq PT11 (list (- 0 (/ TT1 2)) (- (/ HH 2) TT2)) )
9 O8 ~3 q- [& r: L(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))
) f4 ?# \2 {9 R6 I5 L1 f. ~4 g7 A7 g(ssdel ss1 (ssget "CP" PT_list))