cad坐标归零lisp_Z坐标归零的方法,不用插件,直接cad中修改

图形

Z

坐标归零的方法

CAD

绘图技巧

1

、

图形

Z

坐标归零的方法：

"urn:schemas-microsoft-com:office:office" />

全选需

Z

坐标归零的图形，移动命令，基点为

0

，

0

，

0

，第二点为

0,0,1e99

，重复选择，

再移动命令，基点为

0

，

0,0

第二点为

0,0,-1e99

，

Z

坐标至此已经为

0

，就可以查询图形面

积了。注：

1e99

中

1

是阿拉伯数字

1

，不是字母

L

。

2

、

如果你从测绘院拷贝来的地形图上有一些图元(如直线和圆等)的

Z

坐标不为零，那

么有可能产生交点不易捕捉、使用

dist

命令量取的两点间距离值与实际不合等等问题，下

面我介绍两种解决这个难题的方法。

(1)

命令法(中文为注释)：在命令行键入

change

Command

：

CHANGE

选择对象

Select objects

：

all

键入

p

选择修改特性

Properties/

：

p

键入

e

修改标高

Change what property (Color/Elev/LAyer/LType/ltScale/Thickness)

e

输入新的

Z

坐标

(可以把标高修改为零)

New elevation 

：

0

选择修改特性，回车结束。

Change what property (Color/Elev/LAyer/LType/ltScale/Thickness)

Commnd

：

(2)

移动法：很简单，键入移动命令

“move”

，将所有实体移至点

1,0,1E99

，然后再重复

“move”

命令，将所有实体移至点

0,0,-1E99

即可。

(可以把

Z

坐标值修改为零)

该方法利用

AutoLISP

语言编程如下：

;;

标高

(Z

坐标

)

归零实用程序

(defun C:Z=0 ()

(setvar "cmdecho" 0)

(princ "\n

正在处理图形数据

,

请稍候

...")

(command "_.UCS" "")

(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "")

(princ "\nOK,

已将所有图元的标高值即

Z

坐标归零

.")

(setvar "cmdecho" 1)

(princ)

)end (defun C:Z=0 ()