土木在线论坛 \ 商易宝社区 \ 行业脉动 \ 请教大虾,如何将地形图中非零高程转换为零高程

请教大虾,如何将地形图中非零高程转换为零高程

发布于:2007-12-06 10:43:06 来自:商易宝社区/行业脉动 [复制转发]
我有个问题想请教论坛大虾,,如何“将地形图中非零高程对象转换为零高程对象”
我从别的地方找到一个方法。引用如下:
如果你从测绘院拷贝来的地形图上有一些图元(如直线和圆等)的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 ()


我用的是CAD04,上述方法不好使,请问能还有没有其他方法解决。。

全部回复(11 )

只看楼主 我来说两句
  • ligang9616
    ligang9616 沙发
    keke mgm


    keee
    2009-06-17 21:57:17

    回复 举报
    赞同0
  • riverying
    riverying 板凳
    4楼的可以,但若多的话就比较烦了!
    2008-01-13 15:10:13

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

行业脉动

返回版块

12.22 万条内容 · 79 人订阅

猜你喜欢

阅读下一篇

深圳鼓励开发商建全装修房 2010年消灭毛坯房

深圳鼓励开发商建全装修房 2010年消灭毛坯房http://co.163.com/if_39594157_3.htm

回帖成功

经验值 +10