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 ()
/ O3 o( v. O w h; R
(setvar "cmdecho" 0);关闭命令回显& u5 X( ]4 E1 s. Z! {# M
(princ "\n正在处理图形数据,请稍候...")
+ E6 }2 K+ x6 A
(command "_.UCS" "");恢复为默认坐标系1 F$ B' [8 s6 `& m5 P
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
4 m- O, }. H g9 }- c; o
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
2 x) y3 h2 R) c$ w; g: }+ l! e# R( e
(setvar "cmdecho" 1)- e! j2 a1 I; B: B! z
(princ)
, O4 l7 J5 ]3 [
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 ( ^5 y7 h, ^: E" o7 c' m
给你一段程序你看一下能实现吗？
6 S8 C$ s3 k2 W) y2 k
- w6 `5 Z3 ^2 n ?2 u(defun C:Z0 ()
( g9 ~3 E6 ^/ }) T: p(setvar "cmdecho" 0);关闭命令回显* i8 d9 x2 x8 g8 K2 T
(princ "\n正在处理图形数据,请稍候...")3 A4 ]( t r7 f# X
(command "_.UCS" "");恢复为默认坐标系- S- {) H7 A9 ~3 H& q
(command "_.move" "_all" "" '( ...

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

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

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