CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
1 T& i5 D6 w5 O: K+ j( s) I3维：捕捉空间点
3 T7 w2 s$ B% Y, e/ l2.5维：捕捉空间点，但投影在当前UCS上
4 f  E' B5 i8 T5 _  e

5 P3 i7 v8 n* a8 d8 b用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。
, J) Q9 ]) J- x8 l  ?
请各位高手，，写一个这样的工具。。。
! m& Z9 {1 G2 y7 A: b  N
替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。
( r8 k# O4 C+ x; s  a
[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。
" {' k8 w. I2 j) x* T- i# ~+ T7 }
* @  n* Y* ~) j6 `3 }. a6 M, v0 D[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下
- Y" b3 L* G; P5 i5 Y; ~
3 P# b6 I7 x0 }# m; n" l& a3 H" O( B6 E当前的UCS就确定了空间位置。。。


所以，CAD还是能实现这样的效果。

望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~
! u# m1 `5 G- Q! l
;;UCS视图
3 G& ^0 \8 W$ t. z/ n+ D# }1 @0 f(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
" u3 K" ?0 k$ Y7 v: j, t* c(setq PT0x (car PT0))
(setq PT0y (cadr PT0))
8 B, d# p2 a& N7 Y! i- }(setq PT0z (caddr PT0))
(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轴方向坐标
. B! ^0 h$ f: K, E2 s% M' c) `- j(setq OY (vlax-get (vlax-ename->vla-object ss1) 'YAxis)) ;;获取y轴方向坐标
) e' x* V7 }% D: D(vl-cmdf "_ucs" "o" PT0)
(vl-cmdf "_ucs" "3" "" OX OY)
(vl-cmdf "_plan" "c"

;;;设置深度过滤
;;(command "line" "0,0,0" (list 0 0 LL) "" )
/ y) l3 ], j3 U% @' b6 ?(command "_dview" "all" "" "po" (list 0 0 LL) "0,0,0" "cl" "f" LL "cl" "b" "0" "")
- Z0 B5 K8 j$ P# v4 v. D
: N9 m" I, |4 W( q; };;选择范围
3 l; ^& ^5 k9 `(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)) )
(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
(setq PT6 (list (/ WW 2) (- TT2 (/ HH 2))) )
% A! j( R1 {0 W: _! J4 C+ C(setq PT7 (list (/ WW 2) (- 0 (/ HH 2))) )
# n% x+ q6 w+ x6 F(setq PT8 (list (- 0 (/ WW 2)) (- 0 (/ HH 2))) )
7 }2 _; y) ]) H4 x9 U(setq PT9 (list (- 0 (/ WW 2)) (- TT2 (/ HH 2))) )
: Z  y2 [- _# f0 S1 a- I! l(setq PT10 (list (- 0 (/ TT1 2)) (- TT2 (/ HH 2))) )
; v- @1 K; c; S: ^(setq PT11 (list (- 0 (/ TT1 2)) (- (/ HH 2) TT2)) )
0 u" B" ], `3 R# b$ D  T(setq PT12 (list (- 0 (/ WW 2)) (- (/ HH 2) TT2)) )
- A. R8 Z) e) w;;;(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))
& `0 j% m! n9 S; l2 Y( M(ssdel ss1 (ssget "CP" PT_list))