[下载]：Z轴归零--好东西

lcpower · 发表于 2008-8-26 10:15:11

001.将地形图中非零高程对象转换为零高程对象

如果你从测绘院拷贝来的地形图上有一些图元（如直线和圆等）的Z坐标不为零，那么有可能产生交点不易捕捉、使用dist命令量取的两点间距离值与实际不合等等问题，下面我介绍两种解决这个难题的方法。

(1)命令法（中文为注释）：在命令行键入change
Command：CHANGE
选择对象
Select objects： all
键入p选择修改特性
Properties/<Change point>： p
键入e修改标高
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) ? e
输入新的Z坐标
New elevation <varies>： 0
选择修改特性，回车结束。
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) ?
Commnd：

(2)移动法：很简单，键入移动命令“move”，将所有实体移至点1,0,1E99，然后再重复“move”命令，将所有实体移至点0,0,-1E99即可。

该方法利用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 ()

snowfox2002 · 发表于 2008-8-28 16:10:44

这么简单的东西都要爱心币，真是有够恶心的

seanwei · 发表于 2008-8-29 09:20:05

把所有图形的z轴坐标都变成0，用于画那种坐标不在一个平面的总图

wanp7895 · 发表于 2008-8-30 16:02:06

为什么不能下载

pimgu999 · 发表于 2013-5-20 10:30:05

看看看看看看

microfox · 发表于 2014-5-17 10:32:54

还重没用过，先试试，谢谢

爱ing_、生活ing · 发表于 2014-7-23 22:40:36

#在这里快速回复# 太简单了，只改dxf10和11

sleo · 发表于 2015-5-1 19:18:25

谢谢分享不错的东西

kmliro_2017 · 发表于 2024-3-19 17:33:25

谢谢分享！！！！！！

1028882406@qq.c · 发表于 2024-3-20 16:29:29

感谢楼主分享下载个学习下

kmliro_2017 · 发表于 2024-7-8 07:20:24

不错，谢谢分享！！！！！！

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