用AutoLisp编程给点的z坐标赋高程值.pdfVIP

第3l卷第1期 测绘与空间地理信息 Vo1．31，No．1 2008年2月 GEOMATICS＆ SPATIAL INFORMATION TECHNOLOGY Feb．，2008 用AutoLisp编程给点的Z坐标赋高程值 李向东 (保定新星石化工程有限责任公司．河北 保定071051) 摘 要：在土方量的计算中，需要提取点的3维坐标。而许多电子版地形图的z坐标值均为0，此时就需要对关联 点的z坐标赋高程注记值。本文介绍用AutoLisp进行简单的编程、实现赋值的过程。 关键词：AutoLisp；编程；赋值 中图分类号：P22 文献标识码：A 文章编号：1672—5867(2008)01—0173—02 Change the Z—coordinates Value of a Point with AutoLisp LI Xiang—dong (Baoding Newstar Petrochemical Engineering Co．Ltd，Baoding 071051，China) Abstract：To Calculate the value of earthwork，it is necessary to obtain three—dimensional coordinates．But the value of z—coordi— nates is zero in some electronic map，it is necessary to change z—coordinates value of a point into the value by the nearest note．The auther introduces a simple pro~amme to realize it． Key words：AutoLisp；programme；value 下面是高程注记的DXF文件。 O 引 言 ((一1．图元名：400c2fa8)(0．“TEXT”)(330 许多的电子版地形图中，z坐标的值均为O，这便于平 ． 图元名：4007dc10)(5．“7695”)(100．“AcDbEn— 面设计，但在一些工程应用中却不方便了，如在土方量的 tity”)(67．0)(410．“Model”)(8．“高程层”)(6． 计算中，就需要提取点的3维坐标构建DEM来进行土方 “Continuous”)(100．“AcDbText”)(10 117．734 251．322 计算。这就需要给所有的点进行 坐标赋值。利用 Au— 0．0)(4O．4．0)(1．“806．56”)(50．0．0)(41．0．8) toLisp很容易就能实现该操作。 (51．0．0)(7．“HZ”)(71．0)(72．4)(11 126．115 253．322 0．0)(210 0．0 0．0 1．0)(100．“AcDbText”) l 基本思路 (73．0)) 地形图的高程注记均是文本形式标注，尽量地放置 该段代码表明该实体为文本，位于“高程层”上。“(1 在测量点位的旁侧，且不压盖图面的图形元素，也不能压 ． “806．56”)”表示该文本的值是“806．56”。 盖其它高程注记点。 下面是高程点位的DXF文件： 整饰合格的地形图，打开