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 ()
7 u* r) h! Q$ X4 H( F) x+ e/ V1 ^
(setvar "cmdecho" 0);关闭命令回显
* [9 L8 _' E9 E7 q: I: t
(princ "\n正在处理图形数据,请稍候..."); l0 i5 N7 U* d5 a9 u
(command "_.UCS" "");恢复为默认坐标系; w$ X# h$ i6 X
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0( [! n7 l) h [6 ?: I3 M
(princ "\nOK,已将所有图元的标高值即Z坐标归零."), f g. y4 m% I* c
(setvar "cmdecho" 1)
; W# D& P. n: L# h
(princ), r' A/ j) t Y- {. R
)

复制代码

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 3 L; |, x+ j! i" e
给你一段程序你看一下能实现吗？
; A4 g$ z( N% A9 l$ b/ K+ h; u* Y. U3 }/ N
(defun C:Z0 ()
( k& o: Z4 N# x, h" {(setvar "cmdecho" 0);关闭命令回显
- _* [# ]% F5 y- U' g(princ "\n正在处理图形数据,请稍候...")
& I/ V) h/ k1 V5 C( x/ Q& `. R& F(command "_.UCS" "");恢复为默认坐标系1 w+ o- s! u( E4 f4 o
(command "_.move" "_all" "" '( ...

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

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

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

浏览过的版块