基于AutoLisp程序实现铁路的自动绘制.pdfVIP

第2期 刘吉波等 ：基于 AutoLisp程序实现铁路 的 自动绘制 2014年 4月 中心线 ABC，同时将各特征点坐标保存在一个数据 tSpace)) 表 PointList中。将多段线 ABC向其两侧偏移 W／2， (if(=Flag1) 然后删除中心线 ABC，如此铁路 的两条外边线便绘 (progn 、 制完成。绘制铁路符号时ABC采用分段绘制 ，并将 (if(= (nth0TempList)0) 多段线的宽度设为 。对于 AB段 ，从 A点开始 ，沿 command ”pline”BeginP ”W”W idth 线段 AB方 向画长度为 的线段至点 1，点 1和点 2 W idthPt”” 之间不画线 ，然后继续画线 ，点2到B的距离