CAD中2.5维捕捉

山联2

在CAD中如何能实现像3DMAX中（或RHINO中）捕捉的效果。
* H1 t! K% l7 m: [2维：仅捕捉当前UCS中的点，不捕捉且不显示空间点
: z+ R3 l" Y  f( E6 @* z3维：捕捉空间点
2.5维：捕捉空间点，但投影在当前UCS上


$ V: j' @+ \. K9 T9 {( Z: ~& M用CAD中自身的点过滤，可以实现类似的，但还是不方便。。。。
7 c4 @! X/ y" z9 b) q
请各位高手，，写一个这样的工具。。。

替喜欢MAX同时又应用CAD的朋友，谢谢大家。。。

3 o- `2 P, m% K1 B, L" w[ 本帖最后由 山联2 于 2009-4-18 08:36 编辑 ]

唐昕晨

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

www1974

去掉Z轴坐标不就是所谓的2.5维？dview设置显示范围可以模拟一下显示。
# R1 k. N2 J! o4 `2 k/ X
[ 本帖最后由 www1974 于 2009-4-17 17:12 编辑 ]

山联2

还是要再求助一下
; M( l5 P, G: j; J0 P: s& ]
# x9 W- n3 q- z9 @% Q" f: ^& Q7 n当前的UCS就确定了空间位置。。。
! j4 j* N% R; Y9 s6 }% e0 {
9 p7 A, }7 m' i9 a
5 n( k! g7 n9 i. P所以，CAD还是能实现这样的效果。
1 }: O4 B/ i( B0 b) L( v$ J4 a
% F& g6 h$ A3 U8 ?' s望编程高手，出手写一下，此类经典的插件。

www1974

希望对你有帮助，不过不是很好使~
+ [' {, W0 A0 x+ Z' F% t: c
' G) o* d4 F: Q2 v;;UCS视图
& N. y" r' B7 w, C: w- K( m/ l(setq PT0 (vlax-get (vlax-ename->vla-object ss1) 'InsertPoint)) ;;获取插入点坐标
(setq PT0x (car PT0))
(setq PT0y (cadr PT0))
6 j$ j' W' C6 h% h* T# `6 \: l! D- m. K(setq PT0z (caddr PT0))
(setq offx (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetX))
(setq offy (vlax-get (vlax-ename->vla-object ss1) 'InsertOffsetY))
1 A; U& A4 B% L* x(setq PT0 (list (+ PT0x offx) (+ PT0y offy) PT0z))
6 o. l* k2 H' a, D  K(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"
9 ~- Z. E% H1 H
;;;设置深度过滤
;;(command "line" "0,0,0" (list 0 0 LL) "" )
: P8 P- k, J7 i' @& T, }7 ~(command "_dview" "all" "" "po" (list 0 0 LL) "0,0,0" "cl" "f" LL "cl" "b" "0" "")

;;选择范围
! T/ @9 W5 X- s$ ^(setq PT1 (list (- 0 (/ WW 2)) (/ HH 2) ))
$ t/ X& J8 \3 d# H(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))) )
/ A7 Q$ T. T5 v3 I  k( ]$ ~(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))) )
* F" Q% v4 A0 }5 ^0 u* S& M(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)) )
  m2 w8 C: Q* ~;;;(command "pline" PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1 "")
' g4 s. ^% z9 a+ k' L(setq PT_list (list PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT1))
(ssdel ss1 (ssget "CP" PT_list))