2022年autolisp实用编程四例[归 .pdf

《2022年autolisp实用编程四例[归 .pdf》由会员分享，可在线阅读，更多相关《2022年autolisp实用编程四例[归 .pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、autolisp实用编程四例江苏 崔华明autocad 是一个功能强大的通用图形设计软件，其内嵌的 autolisp 语言为用户进行二次开发提供了方便。下面就介绍几则用autolisp 编写的实用程序，这些程序相当于新增的autocad 命令，可以弥补autocad 本身的一些不足，为日常使用带来方便。1快速更改文本的大小在标准的autocad 中，要更改已有文本的大小，需要使用change 命令。该命令的缺陷是：即使只更改文本的大小，也要重新确认文本的插入点、字型、倾斜角等一系列参数。也就是说，除输入文本的新高度值外，还需要按5 次回车键才能完成一个文本的更改！而且每次只能修改一个文本。这对

2、于同时更改多个文本的大小非常不便。本文的autolisp 程序使这一工作变得十分方便和快捷。使用方法如下：在 autocad 的 command 提示下，打入命令：cth autocad 将提示“selectobjects：”，这时可以使用autocad 允许的任意方式选择目标。对于有多个文本需要更改的情况，使用窗口选择比较方便，而且你不用担心选择窗口中包含了非文本目标，程序能够自动在选择的目标中查找出文本实体，并只对文本进行更改。选择目标后，autocad 提示“newtextheight：”，这时输入一个新的文本高度值然后回车，则所有选中的文本被更改成新设定的高度。2延伸直线的长度在实际使

3、用中，常常要将一条直线延伸指定的长度。通常的做法是：在需要延伸的直线的端点画一个辅助圆，圆的半径等于直线要延伸的长度，然后使用 extend 命令将直线延伸到与圆相交，最后删除辅助圆。本文的autolisp 程序将使你非常容易地实现这一点。你只需选择要延伸的直线并输入要延伸的长度即可，其余的工作由程序自动完成。使用方法如下：在 autocad 的 command 提示下，打入命令：stl 然后根据提示选择要延伸的直线（选择点要靠近直线需要延伸的端点），并输入延伸的长度。该程序将自动在离选择点较近的直线端点，按指定的长度延伸直线。3快速画直线在画给定坐标点的直线时，需要通过键盘输入坐标值。这样的

4、情况下当然是利用右边的数字键盘输入名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 7 页 -较为方便。但若直接使用autocad 的 line 命令画直线，在 x 和 y 两个坐标值之间需要输入一个逗号“，”作为分隔，而数字键盘区又没有该逗号，所以仍然不方便。本文的 autolisp 画直线程序只要求用户输入坐标值，而由程序自动调用line 命令画出直线，因此用户不用离开数字键盘区就能完成工作。使用方法如下：在 autocad 的 command 提示下，打入命令：xlin 然后根据提示依次输入x 和 y 坐标。若要结束画线，在程序提示输入x 坐标时直接打回车即可。4围绕圆弧写一

5、段文本有时为了美观的需要，希望能够围绕一段圆弧来写文本文字，本文的程序提供了这一功能。使用方法如下（粗体字表示autocad 的提示，尖括号“中的部分是需要用户输入的内容）：command：atxt startpointoftext：指定文本的起点textheight：指定文本的高度值selectarc：选择圆弧 text：输入文本输入以上相关内容后，程序自动围绕指定的圆弧写文本。如果当前的文本字型有固定高度，则程序不提示“textheight：”。本文给出的程序只适合写英文文本，由于汉字是双字节，所以若要写汉字，需要对程序作一些修改。需要修改的地方为程序中第二个if 函数，用下面的代码替换原

6、来的if 函数：（if（tsize0）（command text cptsiztr（substrtxtcnt2）（command text cpttr（substrtxtcnt2）紧接该函数，在其后再增加一行代码：（setqcnt（cnt1）名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 7 页 -修改后的程序支持中文文本（不支持中、英文混合书写）。5程序使用说明以上每个功能的autolisp 程序既可以以独立的文本文件形式存放，也可以合并在一个文本文件中。若以 acadlsp 作为程序文件名，并将文件放在autocad 支持文件所在的路径中，则在启动autocad 时系统会自动

7、加载该文件。否则需要通过系统菜单或load 函数加载autolisp 程序文件，然后才能使用。load 函数的调用格式是：在autocad 的 command：命令提示状态下，打入：（loadautolisp 文件名）在 autolisp 文件名 中可以包含dos 路径，但需要注意的是：在autolisp 中，反斜杠“”有特殊的定义，因此要使用正斜杠或连续两个反斜杠来表示dos 路径中的反斜杠。如：（loadacadcad1lsp）扩展名 lsp 可以省略。6autolisp 程序以上四个功能的autolisp 程序如下，该程序已在a、中文 windows95 环境下调试通过。它适用于auto

8、cad100 以上的 dos 和 windows 版本。；更改文本高度程序（defunc：cth（sstxsizenindexenttypeoldsizenewsizeent1）（setqss（ssget）（setqtxsize（getdist nnewtextheight：）（setqn（sslengthss）（setqindex0）（repeatn（setqent（entget（ssnamessindex）（setqindex（1index）（setqtype（assoc0ent）名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 7 页 -；检查选择的实体是否为文本（if（te

9、xt（cdrtype）（progn（setqoldsize（assoc40ent）（setqnewsize（cons（caroldsize）txsize）（setqent1（substnewsizeoldsizeent）（entmodent1）（princ）；延伸直线的长度程序（defunc：stl（eentpt1pt2madis）（setqe（entsel nselectline：）；取得选中实体的数据（setqent（entget（care）（setqpt1（cdr（assoc10ent）pt2（cdr（assoc11ent）；找出离选择点最近的直线的端点（if（distance（cadr

10、e）pt1）（distance（cadre）pt2）（setqptpt1m10a（anglept2pt1）（setqptpt2m11a（anglept1pt2）名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 7 页 -（setqdis（getdistptnstretchlength：）（setqpt（polarptadis）（setqe（subst（consmpt）（assocment）ent）（entmode）（princ）；快速画直线程序（defunc：xlin（xy）（setvar cmdecho 0）（command line ）（setqxt）（while（xnil）（

11、setqx（getreal nenterx：）（if（xnil）（progn（setqy（getreal entery：）（command（listxy）（command ）（princ）名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 7 页 -；围绕圆弧写文本程序（defunc：atxt（ospt1styetsizesizarctxtrlendiahfintangcntssnangpttr）（setqos（getvar osmode）（setqpt1（getpoint nstartpointoftext：）（setqsty（getvar textstyle）（setqe（tbl

12、searchstyle sty）（setqtsize（cdr（assoc40e）（setqsiztsize）；检查当前的文本字型是否为固定高度（if（tsize0）（setqsiz（getdistpt1ntextheight：）（setvar osmode 4）（setqarc（getpoint nselectarc：）（setvar osmode os）（setqtxt（getstring1ntext：）（setqr（distancearcpt1）（setqlen（strlentxt）（setqdia（sizlen）（20pir）3600）（setqhf（diapi）1800）（setqint（hflen）名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 7 页 -（setqang（anglearcpt1）（setqcnt0）（setqss（ssadd）（while（cntlen）（setqnang 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 7 页 -