CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
- z% `# |# A/ S& f4 z9 c# [9 V$ M3维：捕捉空间点
% o; V  c! J2 y/ |3 H2.5维：捕捉空间点，但投影在当前UCS上
* G+ R+ Y, u. P- A  p5 k- O+ I
& L* C1 _# O, B4 H8 Y: w4 x) l8 u
用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。

8 z% K5 ?# A2 }1 b1 `9 f1 _请各位高手，，写一个这样的工具。。。
" u( `) H; R  P0 `
# ]* n# Z( d( d! s& e6 ]替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。
  l& c3 g0 l4 d, B4 B9 Y) H4 m
+ L, T4 E2 s' F; I: I6 P' D# ?[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

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

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

山联2

还是要再求助一下
9 y& m& |9 V0 V$ M* r6 ^: z
当前的UCS就确定了空间位置。。。
, F- v5 k7 D/ z1 z9 n, g& D
" u. N' [% O* d' z4 J; }
: E: l% c; `/ O  M* E/ T) C所以，CAD还是能实现这样的效果。

" e- E% u( [5 }1 T2 y, ~望编程高手，出手写一下，此类经典的插件。

www1974

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

  M: A3 I/ j( B+ e' R, c8 i! X;;UCS视图
(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
7 ^2 x/ E; T' C& ^4 J/ F! C(setq PT0x (car PT0))
(setq PT0y (cadr PT0))
2 a" G8 X) J6 }  L: i$ {8 t% {' {(setq PT0z (caddr PT0))
(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
(setq offy (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetY))
( R. @  `" H2 a(setq PT0 (list (+ PT0x offx) (+ PT0y offy) PT0z))
(setq OX (vlax-get (vlax-ename->vla-object ss1) 'XAxis)) ;;获取X轴方向坐标
" K! E! i8 H+ R. h" Z9 d(setq OY (vlax-get (vlax-ename->vla-object ss1) 'YAxis)) ;;获取y轴方向坐标
(vl-cmdf "_ucs" "o" PT0)
(vl-cmdf "_ucs" "3" "" OX OY)
  L- G, ^# j  @3 d3 c9 T2 @(vl-cmdf "_plan" "c"
  P" [& Z2 z6 L8 W# R0 f
/ _' R2 ?, c1 ]+ V6 a) w;;;设置深度过滤
;;(command "line" "0,0,0" (list 0 0 LL) "" )
  {* t5 {; S9 [(command "_dview" "all" "" "po" (list 0 0 LL) "0,0,0" "cl" "f" LL "cl" "b" "0" "")

;;选择范围
(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
% M7 K# f. _' T2 V8 ^. _  T(setq PT2 (list (/ WW 2) (/ HH 2)) )
: c0 x7 N3 d8 P. Q$ y$ }2 ?(setq PT3 (list (/ WW 2) (- (/ HH 2) TT2)) )
% V. N' r+ i; x6 K7 l5 l: E4 Y9 @(setq PT4 (list (/ TT1 2) (- (/ HH 2) TT2)) )
(setq PT5 (list (/ TT1 2) (- TT2 (/ HH 2))) )
' Q3 e6 \2 ], Y( d6 q(setq PT6 (list (/ WW 2) (- TT2 (/ HH 2))) )
2 j! p! r/ ]& c& O! f2 t! ?5 V" d7 J(setq PT7 (list (/ WW 2) (- 0 (/ HH 2))) )
. V1 r- u$ Y: [! X: X(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))) )
. a5 \7 ^" `# z2 B7 A% B(setq PT11 (list (- 0 (/ TT1 2)) (- (/ HH 2) TT2)) )
' z0 G/ w. b. A& j(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))
(ssdel ss1 (ssget "CP" PT_list))