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 () % @! @4 @8 O3 J9 o+ E4 r
(setvar "cmdecho" 0);关闭命令回显4 c' ?$ E, @, ]! m& c4 o9 S
(princ "\n正在处理图形数据,请稍候..."), ^. O' U; @* _/ x9 T
(command "_.UCS" "");恢复为默认坐标系
" h6 H- P9 n, ~. h! K, r
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0/ ~# K% \( a. [" Q! Z. o5 ~
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
3 m4 B, d" A" n
(setvar "cmdecho" 1)
+ P5 e- o% ]$ y7 b, O1 O* Z
(princ)4 a9 E: r4 a; B P
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表
) ?+ Y) r# H0 J7 _! ?: M3 v8 Z# Y给你一段程序你看一下能实现吗？/ }; z; l9 A, P. E
: Q* M" \9 |, H
(defun C:Z0 ()
2 G1 q0 X- ?( O+ }1 h(setvar "cmdecho" 0);关闭命令回显. V1 h I( G: `& O: M- u/ I! z
(princ "\n正在处理图形数据,请稍候...")
7 b( ?4 G& U7 {2 H) N(command "_.UCS" "");恢复为默认坐标系
( p( E5 K6 M9 y6 [4 w7 l5 n* m(command "_.move" "_all" "" '( ...

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

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

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

浏览过的版块