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 ()
" b; O) G. z& m$ `/ x; x* Q" i
(setvar "cmdecho" 0);关闭命令回显" ?0 }% l; c. a. Q! D: u/ {4 R8 t% J) `
(princ "\n正在处理图形数据,请稍候...")0 k0 H9 @2 F1 x( ]6 ^% X% w$ m8 Q0 k
(command "_.UCS" "");恢复为默认坐标系 v# u! p- z/ s5 m+ |; r+ E6 _8 Q
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
1 |; a) w' w# G2 G
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
2 ~7 \. ]& W# d3 V) o" Q
(setvar "cmdecho" 1)' ^3 t! e& D9 n6 m) O$ b0 i9 p
(princ)' ^( w. n- I; g0 X& }
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 5 E2 |( V4 e+ G  R* E+ d
给你一段程序你看一下能实现吗？
$ m" l3 a, K6 e: Z( D
9 c3 l# O2 B6 l(defun C:Z0 ()
7 H/ Y. V. e$ ~- V8 s(setvar "cmdecho" 0);关闭命令回显
) l( a3 v  @" }9 C) V6 Q0 J: i. J(princ "\n正在处理图形数据,请稍候...")
4 f+ `& q5 D4 g(command "_.UCS" "");恢复为默认坐标系8 [4 w  R9 |$ c* n: ^
(command "_.move" "_all" "" '( ...

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

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

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