这段LISP程序演示了如何根据选定的多段线和与其关联的文字（标高值）创建地形线。它首先选择多段线和文字，然后根据文字中的标高值匹配多段线的顶点，根据最近点原则确定对应关系。从多段线起点开始，按从左到右的顺序，通过计算顶点间距离和标高差生成地面线。
本帖最后由 brbright 于 2016-3-16 15:26 编辑
[code="lisp]
;;;===由多段线和标高值作地面线===
;;;说明：
;;;选择多段线和文字，匹配文字中的标高数值
;;;匹配原则是顶点到文字插入点(InsertionPoint)最近
;;;从多段线的起点开始，从左到右作地面线
;;;X坐标增量取两顶点间的直线距离
;;;Y坐标增量取文字中的标高差值
(vl-load-com)
(defun c:gl (/ SPC
TX_ENT TX_TEXT
T_1 T_ENT
T_ENTSEL T_GROUND_LINE_VERTICES
T_GROUND_STARTPOINT T_HEIGHT_INCREMENT
T_NEAREST_TEXT T_POINT_X
T_POINT_Y T_POINT_Y_G
T_POLYLINE_VERTICES T_POLYLINE_VERTICES_NUM
T_SEGMENT_LENGTH_LIST T_SSFILTER
T_SSGET T_STARTPOINT_HEIGHT
T_TEXT_LIST T_VERTICES-TEXT_LIST
T_VERTICES-TEXT_LIST_INCREMENT
T_VERTICES_LIST T_VLA_VE
最低0.47元/天 解锁文章
扫一扫
830
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
