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 ()
. p( d) r% j1 A; n, F1 ^
(setvar "cmdecho" 0);关闭命令回显4 ]. m4 x) R+ b
(princ "\n正在处理图形数据,请稍候...")
; [5 G$ l. B Y5 D; f
(command "_.UCS" "");恢复为默认坐标系
A6 N$ O; I" |4 c4 T* c
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
4 m' J Q1 L4 u
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
+ m5 s9 i% M. h9 G2 a: S
(setvar "cmdecho" 1)
( R( Z, t R, B
(princ)
* s) [. s3 s" d- ], L
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 ' k% V! L: B4 f  P* S
给你一段程序你看一下能实现吗？* k: F. O7 j; I# f) [: K# p
0 E" f  s/ q! B
(defun C:Z0 ()
+ t) ^3 p# i" ]$ n3 g4 y0 k3 d(setvar "cmdecho" 0);关闭命令回显; @- J/ g# `% e- P/ W" w
(princ "\n正在处理图形数据,请稍候...")  f& D% U: ?1 p2 U
(command "_.UCS" "");恢复为默认坐标系
( ]$ d2 t) p# T( l* ^(command "_.move" "_all" "" '( ...

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

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

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