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 ()
/ U9 Y5 a8 V$ B, x. E
(setvar "cmdecho" 0);关闭命令回显) W5 o' V) j2 {# V: X' u8 @! K
(princ "\n正在处理图形数据,请稍候...")* k% }# d- C" w: q3 G- z
(command "_.UCS" "");恢复为默认坐标系! S& {( e$ L1 j' U* O
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0) [& n) y9 T* \1 H
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
0 ]3 K9 r8 f9 S" g1 R9 Q; a
(setvar "cmdecho" 1)
0 O- ]- F6 n5 t2 W. F* q8 {5 S
(princ)
G6 U3 s; S& e
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 / h9 `) D- i$ z( R+ \
给你一段程序你看一下能实现吗？5 H, s3 t% X6 B) A4 S5 P8 ~

/ b& m9 p" J, l. E, p& i(defun C:Z0 () 7 f0 f' @" b3 |& u
(setvar "cmdecho" 0);关闭命令回显
5 F4 i7 P" n- W, T( B) }(princ "\n正在处理图形数据,请稍候...")4 z1 L; l& R/ R+ l/ p* f% x
(command "_.UCS" "");恢复为默认坐标系. I1 i: e* p5 I0 W2 ?0 D2 B
(command "_.move" "_all" "" '( ...

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

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

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