使用autoLISP绘制线路纵断面缩图程序.pdfVIP

使用autoLISP绘制线路纵断面缩图程序 洪 记 铁道部第十一工程局第三工程处 摘 要 用autoLISP语言编写了名为STLSP的应用程度，用户不必掌握AutoCAD，只 要会使用流行的编辑软件及掌握基本的DOS操作，便可绘制线路纵断硕缩图，并在普通 打印机上打印。内容包括:标示站(线路所、会越所)、桥，隧、平交道标志;列示各实物 里程;列示路肩标高、地面高程;列示 坡度有关数据卜坡率、坡长、上下坡情况);列 示曲线各要素等。 关键词 autoLISP,纵断硕 程序 奋 1程序文件列表 夕 程序包括下述文件: )STLSP一 主程序，有AutoCAD内嵌的语言autoLISP编制。读源数据文件(..ST) 及块((BLOCK)图形文件(BLOCK?.DWG)并处理，输出图形。 逗缺图形文件: block4DWG— 车站标志块 blockl.DWG- 平交道抚人看守)标志块 block2.DWG— 平交道隋人看守)标志块 block5.DWG— 会越所标志块 block6.DWG 线路所标志块 block3.DWG— 断链标志块 所有这些块图形文件都应装人STLSP指定的目录CACADUSER下 ③源数据文件 zan.ST--车站有关数据 ﹄ giao.ST— 桥有关数据 sd.ST- 隧道有关数据 卜 pjd.ST一 平交道有关数据 hys.ST— 会越所有关数据 xls.ST一一线路所有关数据 didata.ST- 断链有关数据 po.ST一 坡度有关数据 dmx.ST一 地面线有关数据 gx.ST- 曲线有关数据 源数据文件由用户编辑而成。 autoLISP语言一个非常突出的特点是用户可 “编辑”源数据，而无须采用许多高级 语言输人数据所必须的人机对话方式，极便修改源数据。 ④辅助打印文件 程序执行后输出两个文件用于辅助打印: 443 PLOT-STSCP-.一打印批处理文件(“图形输出到文件”) PRINT-STSCR一一打印批处理文件(直接输出到打印机) ⑤缩图图形文件 STTOTAL.DWG一一缩图图形存盘文件，指定在CACADUSER子目录下 )PLOT-STSCR被装载后拍出的文件 SUOTU??.PLT一一(若干个，由图形长度确定) 2 操作过程 r- - ~一-一~~一一一‘-，— — 一 一 门 !在C盘建立CACADUSER子目录将BLOCK?.DWG拷人CACADUSER目录下} 用流行的文件编辑软件伽CCED,DOS的editor荆编辑源数据 1 文件.ST，并存人CACADUSER下 1 1 _ _ _ _ 一— .一 一— 一 一 一 一 ~一-一一J l 4 广--一