cad中怎么让Z轴归0？？？？？？？？先谢各位了

dawei_0921

cad中怎么让Z轴归0？？？？？？？？先谢各位了
QQ:********
7 h- V' T1 ~( P
9 ^+ N: X1 k3 f$ s: J论坛不允许在帖子中留下QQ号码~

5 n/ L' E% r- H  O0 ^[ 本帖最后由 cad 于 2007-8-8 11:23 编辑 ]

cad

给你一段程序你看一下能实现吗？
* R* D( O# D! u1 P

1. (defun C:Z0 ()
   
2. (setvar "cmdecho" 0);关闭命令回显
   5 I$ f- B9 l0 ?% Q0 y
3. (princ "\n正在处理图形数据,请稍候...")
   
4. (command "_.UCS" "");恢复为默认坐标系
   
5. (command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
   
6. (princ "\nOK,已将所有图元的标高值即Z坐标归零.")
   
7. (setvar "cmdecho" 1)
   
8. (princ)
     Y) _: @" l2 F- [% Z/ f+ f
9. )

复制代码

mice

打ucs回车，再次回车啦

daizhilee

原帖由 cad 于 2006-4-21 17:23 发表
, V% g# z; w) X! O) l+ m# Z给你一段程序你看一下能实现吗？

; ~/ B* p; n9 D1 E& v9 r0 Z4 Y(defun C:Z0 ()
4 a8 R. m, }+ s$ n; @(setvar "cmdecho" 0);关闭命令回显
, X6 A; G( C1 i) c(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '( ...

) J) F% y9 r& X; W' Z
8 S2 m1 g: Y9 P
版主，上面那些代码是什么，怎么用？咋没见过。
" c8 i- G" a! s唉！cad到底还有什么我们不知道的……