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 () ) S) `' V# ~* ?) b! ]
(setvar "cmdecho" 0);关闭命令回显8 S9 I4 o$ M$ G+ ~) m
(princ "\n正在处理图形数据,请稍候...")+ O5 H/ Y$ {6 m1 Q3 T- n1 F
(command "_.UCS" "");恢复为默认坐标系6 W- {7 _* W2 o0 o
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为04 [, M4 i: Q0 g9 n6 w# R; m6 o6 J [
(princ "\nOK,已将所有图元的标高值即Z坐标归零."), L* [' ^& u4 O' F
(setvar "cmdecho" 1)& \& Q' N8 w4 H" \% a- V
(princ)- y& }. d/ \$ U7 x& W) o" {2 s
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 0 }8 Y; V" t! h' k
给你一段程序你看一下能实现吗？
/ ]# b, {. S' V( z! o1 r" A0 [! S M) W4 B, j2 P" K, V
(defun C:Z0 () * W/ V0 `/ e( }1 |. `1 q% z' O
(setvar "cmdecho" 0);关闭命令回显
% A2 _& R2 u" W" y" W(princ "\n正在处理图形数据,请稍候...")+ H3 M* g- s3 p9 K* f
(command "_.UCS" "");恢复为默认坐标系
0 w M2 F7 Q' @% Y1 N(command "_.move" "_all" "" '( ...

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

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

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