cad中怎么让Z轴归0？？？？？？？？先谢各位了

dawei_0921

cad中怎么让Z轴归0？？？？？？？？先谢各位了
QQ:********
8 b, d# x* i4 g
论坛不允许在帖子中留下QQ号码~
, h3 o  D- V( ^/ A  `: \; A* Q" d
[ 本帖最后由 cad 于 2007-8-8 11:23 编辑 ]

cad

给你一段程序你看一下能实现吗？
& }  Z& Y- y3 r: T' e: z

1. (defun C:Z0 ()
   
2. (setvar "cmdecho" 0);关闭命令回显
   : q2 G7 g3 _7 Z
3. (princ "\n正在处理图形数据,请稍候...")
   $ N( ^3 u" A' ^, R
4. (command "_.UCS" "");恢复为默认坐标系
   
5. (command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
   * M8 a' z$ `, X1 r, d1 N
6. (princ "\nOK,已将所有图元的标高值即Z坐标归零.")
   ( |. d! W! I! q  O) Q
7. (setvar "cmdecho" 1)
   
8. (princ)
   + v4 q7 l8 C2 q! A0 V( l( J# u( h
9. )

复制代码

mice

打ucs回车，再次回车啦

daizhilee

原帖由 cad 于 2006-4-21 17:23 发表
- U, V1 \9 k$ r& M4 b/ g0 t0 J给你一段程序你看一下能实现吗？
: O5 G6 Q& r# o# b( f9 x
(defun C:Z0 ()
) g. x6 ?8 f5 @(setvar "cmdecho" 0);关闭命令回显
$ S3 @# J- Q9 E: B) }' ]! G0 S) T: C2 |(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
2 n$ ~$ Y5 i4 `% D/ {(command "_.move" "_all" "" '( ...

+ w0 z/ n9 Z* {6 r9 s$ f6 G
3 V# x9 w7 ?. m. {( _" m 版主，上面那些代码是什么，怎么用？咋没见过。
$ S; R$ z7 p2 F9 @- l& h$ s唉！cad到底还有什么我们不知道的……