AUTOCAD中的几个LISP程序

《AUTOCAD中的几个LISP程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、AUTOCAD中的几个LISP程序李敬--------------------------------------------------------------------------------机械制图中，常常得做许多大量的重复工作。下面这几个用Lisp编写得程序，是我画图时经常使用的，节省了我的不少时间，希望也能帮助广大使用AUTOCAD的工程师们。1.自动求和机械制图中材料表的填写是毕不可少的，填写完后还需根据材料表求出总重量。一般一幅图中常有几十个物体，将这些重量一项一项相加个繁琐的过程，而且容易出错

2、。使用下面这个程序，只需用鼠标选定需要相加的数，其和就会自动的显示在命令行中。因为在AUTOCAD中没有“数”这种实体，所有的数都以实体“TEXT”存在，所以程序中使用了“atof”函数，将以字符串形式表示的数转换为实数。(defunc:total(/cmdmodessetsslnssettempssl1total)(if*error*quit)(setqcmdmode(getvar"cmdecho"))(setvar"cmdecho"0)(prompt"Selectnumberstoadd:")(setq

3、sset(ssget))(if(nullsset)(princ"Error:Nothingselected!");过滤出选中的“text”实体，并报告有多少“text”实体被选中。(progn(setqssl(sslengthsset))(setqnsset(ssadd))(while(>ssl0)(setqtemp(ssnamesset(setqssl(1-ssl))))(if(=(cdr(assoc0(entgettemp)))"TEXT")(ssaddtempnsset)))(setqssl(ss

4、lengthnsset))(printssl)(princ"textentitiesarefound.");选出所有可转化为数的“TEXT”，并求和。(setqtotal0)(setqssl1ssl)(while(>ssl0)(setqtemp(ssnamensset(setqssl(1-ssl))))(setqnumber(atof(cdr(assoc1(entgettemp)))))(if(=0number)(setqssl1(1-ssl1))(setqtotal(+totalnumber))));显示和及

5、加数的个数，便于用户检查是否多选或漏选。(princ"Thetotalis")(princtotal)(princ"ofthe")(princssl1)(princ"numbers")))(setvar"CMDECHO"cmdmode))(princ"tc:totalloaded.Startcommandwithtotal.")2.自动生成递增数用CAD作图时，常需画一些距离一定、数值递增的数。如填写材料表时，“序号”一栏就需填写由下至上的递增数。通常，我们先用“text”命令写一个数，再用“ar

6、ray”命令将其按一定方向阵列，最后用“edit”命令一个一个的改正。下面这个程序可将你从这单调重复的动作中解放出来。(defunc:arn(/enttempdanumberyorn)(setqcmdmode(getvar"cmdecho"))(setvar"cmdecho"0);选择一个实体，并判断能否作为生成递增数的初始数。(setqent(entsel"Selectnumbertoarn:"))(if(nullent)(progn(princ"Error:Nothingselected!")(

7、exit)))(setqtemp(entget(carent)))(if(=(cdr(assoc0temp))"TEXT");输入生成递增数的个数、数间距及其方向。(progn(setqnumber(getint"Numberoftexts:"))(setqd(getdist"Distbetweentexts:"))(setqa(atoi(cdr(assoc1temp))))(initget1"VH")(setqyorn(getkword"Direction(V/H)?"))(if(=yorn"V")(setq

8、p(list0d)))(if(=yorn"H")(setqp(listd0)));重复拷贝前一个数，并将拷贝数加1。(while(/=number1)(command"copy"ent""p"")(setqent(entlast))(setqtemp(entgetent))(setqa(+a1))(entmod(subst(cons1(itoaa))(assoc1temp)temp))