LISP经典程序

《LISP经典程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

;;一、绘制地形图符号1.点状符号对于点状符号,其位置固定,数量较多,且一般都带有一定的标注,可逐个制作属性块图元,单独插入。2.线状符号利用AutoCAD中强大的线型定义。3.面状符号由充填符号在面域内按一定的排列方式组合而成。目前AutoCAD在建筑设计、工程施工放样得到广泛应用,AutoCAD在工程测量上的应用,大大减少手算坐标的工程量或帮助人们复核手算坐标的准确性。(1)删除未选择对象(defunc:sd()(princ" 选择要保留对象:")(setqSS(ssget)ss1(ssget"X"))(command"erase"ss1"r"ss""zoom_e));end;;(2)画圆弧型铁路;输入铁路中线上三个点，轨距及绘图比例尺，起、中、始点(defunc:ytl()(setvar"osmode"0);取消扑捉(setqPB(getpoint" 输入起点："))(setqPM(getpoint" 输入中点："))(setqPE(getpoint" 输入终点："))(setqWD(getreal" 输入铁路宽度(m)："))(setqS(getreal" 绘图比例尺=："));1:1000,输入1.0(setqW1(/(*WDS)2)W2(+W1(*0.6S)));轨道及枕木符号的半宽(setqD(distancePBPE))(setqA1(anglePBPM)A2(anglePBPE)A3(anglePEPB)A4(anglePEPM))(setqFB(-A1A2)FE(-A3A4)P12(*PI2))(if(:"))(if(=hignil)(setqhig0.0))(setqhig(*pihig)hig(/hig180.0))(setqh50(cons50hig))(setqn(sslengths))(setqk0)(while(:"))(if(=hignil)(setqhig3.0))(setqh40(cons40hig))(setqn(sslengths))(setqk0) (while(