基于AutoLISP的地图符号库的开发.pdf

《基于AutoLISP的地图符号库的开发.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、·41·地矿测绘2013。29(1)：41～43CN53—1124／TDISSN1O07—9394SurveyingandMappingofGeologyandMineralResources基于AutoLISP的地图符号库的开发孙彩敏，孙国庆(华北科技学院土木系，北京燕郊065206)摘要：VisualLISP语言简单、实用的特点受到很多人的青睐。基于此，充分利用LISP语言的特点，以铁索桥的绘制为例，详细介绍了测量专业符号库的开发过程。关键词：AutoLISP；地图；符号库；铁索桥中图分类号：P208文献标识码：B文章编号：1

2、007—9394(2013)O1—0041—03DevelopmentofMapSymbolLibraryBasedonAutoLISPSUNCai—min，SUNGuo—qing(TheDepartmentofCivilEngineering，NorthChinaInstituteofScienceandTechnology，YanjiaoBeijing065206，China)Abstract：VisualLISPlanguageisfavoredbymanypeopleforitssimpleandpracticalfeat

3、ures．Basedonthis，thispapermakesfulluseofthecharacteristicsofLISPlanguage，describestheprocessofsurveyingsymbolslibrarydevelop-menttodrawingofchainbridgeasanexample．Keywords：AutoLISP；map；symbollibrary；chainbridge(setqp5(1ist141107．46153163．56))0引言(setq06(1ist141111．2715

4、3166．15))AutoLISP是一种很重要的二次开发工具，与一般的语言不(command”pline”plp2p3p4p5p6”C”)同，它是一种被嵌入AutoCAD内部的编程语言，在AutoCAD环)境下运行。正是由于内嵌在CAD内部，它可以调用CAD内部2)从【文件】菜单选项中选择【保存】或者【另存为】。在的许多命令，因此是一种偏重于绘图的程序设计语言。“另存为”对话框中输入文件名“duodianfangwu．1sp”。CAD虽然包含了绝大多数的绘图和图形编辑命令⋯，但却3)运行AutoCAD，在绘图界面，选择“工具”一“

5、AutoLISP”没有提供测量中一些专业图形符号的绘制命令，因此利用CAD一“加载”命令，在弹出的对话框中选择要加载的文件“duodian．的基本绘图命令不能绘制一些较复杂的曲线，如铁索桥等。为fangwu．1sp”，确定即可。此，本文介绍了利用AutoLISP语言编制绘图程序的过程，以定4)命令提示行出现“一l0ad已成功加载duodianfangwu．制自己的地图符号库，从而扩展专业领域绘图命令，提高绘图1sp”。效率。5)在命令行中输入“duodianfangwu”，运行该程序，并在屏幕上绘出一个多点房屋。1AutoLISP

6、的语言基础1．2AutoLISP程序说明1．1AutoLISP语言的编写与执行AutoLISP程序说明：AutoLISP语言的编写与执行过程如下：1)AutoLISP程序的扩展名必须为．1isp，可以用任意文本编1)用任意文本编辑器编写AutoLISP程序。下面以绘制多辑器编写；点房屋为例：2)每一条语句都包含在圆括号中；(defunC：duodianfangwu()3)运算符号前置；(setqpl(1ist141107．78153171．27))4)程序中会出现CAD命令，如“pline”。(setqp2(1ist141101．

7、44153166．95))2符号库程序设计过程(setqp3(1ist141105．77153160．59))(setq04(1ist141108．31153162．32))很多教材在介绍开发专业程序库的过程中都偏重于介绍具收稿日期：2013一叭一Ol·42·地矿测绘2013年3月体的语言使用、符号的制作程序，并没有对符号库开发的整个过)程进行详细介绍。为此，本文详细介绍基于LISP语言的测量专2)输入测量坐标数据程序业符号库的开发过程。；程序名READC．LSP2．1确定符号坐标定位的绘图坐标系统(defunREADC()Aut

8、oCAD绘图屏幕坐标与测量坐标不完全一致，需要重新(read_xym)；提取绘图参数设定测量图纸绘图坐标系相对原点处的测量坐标值、绘图比例(setqP(getpoint”＼n输入测量点(Y，X)：”))尺等，这一功能可用以下几个程序实现：(ifP(