dawei_0921 发表于 2006-4-21 16:41

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

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

论坛不允许在帖子中留下QQ号码~

[ 本帖最后由 cad 于 2007-8-8 11:23 编辑 ]

cad 发表于 2006-4-21 17:23

给你一段程序你看一下能实现吗？

(defun C:Z0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
)

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

打ucs回车，再次回车啦

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

原帖由 cad 于 2006-4-21 17:23 发表 http://www.askcad.com/bbs/images/common/back.gif
给你一段程序你看一下能实现吗？

(defun C:Z0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '( ...


:funk: 版主，上面那些代码是什么，怎么用？咋没见过。
唉！cad到底还有什么我们不知道的……
页: [1]
查看完整版本: cad中怎么让Z轴归0？？？？？？？？先谢各位了