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

dawei_0921 · 发表于 2006-4-21 16:41

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

论坛不允许在帖子中留下QQ号码~

[ 本帖最后由 cad 于 2007-8-8 11:23 编辑 ]

cad · 发表于 2006-4-21 17:23

给你一段程序你看一下能实现吗？

(defun C:Z0 () 2 ~* ] I! L; q W4 G2 C0 c
(setvar "cmdecho" 0);关闭命令回显% j4 g) R5 w4 v
(princ "\n正在处理图形数据,请稍候...")
' H( |* t9 C. ~6 g
(command "_.UCS" "");恢复为默认坐标系9 |& M' Q/ r4 d* B
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
* x7 }- r+ v$ k& i, w5 H7 M
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
9 t0 o' R& E; _5 Z2 C u6 a
(setvar "cmdecho" 1)3 c) C# T) A3 F s5 i
(princ), r- D! i$ l8 C6 V
)

复制代码

mice · 发表于 2007-8-8 11:21

打ucs回车，再次回车啦

daizhilee · 发表于 2007-8-8 11:33

原帖由 cad 于 2006-4-21 17:23 发表
6 v0 C& k) W/ e' o6 j7 k: ?# }) g给你一段程序你看一下能实现吗？* ?7 G6 u5 e1 A- n8 j% Z' Z7 d

, P& v4 U! C7 A1 ]! K+ x; f' l(defun C:Z0 ()
& B" f5 i% \+ d1 f4 @, x# y9 \(setvar "cmdecho" 0);关闭命令回显& a% w3 h' x/ n5 x. `
(princ "\n正在处理图形数据,请稍候...")& M" X% ?- o9 P. p( t* b- R
(command "_.UCS" "");恢复为默认坐标系
0 ^* `- {; n, j& T(command "_.move" "_all" "" '( ...

版主，上面那些代码是什么，怎么用？咋没见过。
唉！cad到底还有什么我们不知道的……

		自动登录	找回密码
密码			立即注册

[求助] cad中怎么让Z轴归0？？？？？？？？先谢各位了