AUTOCAD中的几个LISP程序.docVIP

AUTOCAD中的几个LISP程序 李敬 -------------------------------------------------------------------------------- 机械制图中，常常得做许多大量的重复工作。下面这几个用Lisp编写得程序，是我画图时经常使用的，节省了我的不少时间，希望也能帮助广大使用AUTOCAD的工程师们。 1.自动求和 机械制图中材料表的填写是毕不可少的，填写完后还需根据材料表求出总重量。一般一幅图中常有几十个物体，将这些重量一项一项相加个繁琐的过程，而且容易出错。使用下面这个程序，只需用鼠标选定需要相加的数，其和就会自动的显示在命令行中。 因为在AUTOCAD中没有“数”这种实体，所有的数都以实体“TEXT”存在，所以程序中使用了“atof”函数，将以字符串形式表示的数转换为实数。 (defun c:total( / cmdmode sset ssl nsset temp ssl1 total) (if *error* quit) (setq cmdmode (getvar cmdecho)) (setvar cmdecho 0) (prompt \nSelect numbers to add: ) (setq sset (ssget)) (if (null sset) (princ \nError: Nothing selected!\n) ;过滤出选中的“text”实体，并报告有多少“text”实体被选中。 (progn (setq ssl (sslength sset)) (setq nsset (ssadd)) (while ( ssl 0) (setq temp (ssname sset (setq ssl(1- ssl)))) (if (= (cdr (assoc 0 (entget temp))) TEXT) (ssadd temp nsset) ) ) (setq ssl (sslength nsset)) (print ssl) (princ text entities are found.) ;选出所有可转化为数的“TEXT”，并求和。 (setq total 0) (setq ssl1 ssl) (while ( ssl 0) (setq temp (ssname nsset (setq ssl (1- ssl)))) (setq number (atof(cdr(assoc 1 (entget temp))))) (if (= 0 number) (setq ssl1 (1- ssl1)) (setq total (+ total number)) ) ) ;显示和及加数的个数，便于用户检查是否多选或漏选。 (princ \nThe total is ) (princ total) (princ of the ) (princ ssl1) (princ numbers\n) ) ) (setvar CMDECHO cmdmode) ) (princ \n\tc:total loaded. Start command with total.) 2.自动生成递增数 用CAD作图时，常需画一些距离一定、数值递增的数。如填写材料表时，“序号”一栏就需填写由下至上的递增数。通常，我们先用“text”命令写一个数，再用“array”命令将其按一定方向阵列，最后用“edit”命令一个一个的改正。下面这个程序可将你从这单调重复的动作中解放出来。 (defun c:arn( / ent temp d a number yorn) (setq cmdmode (getvar cmdecho)) (setvar cmdecho 0) ;选择一个实体，并判断能否作为生成递增数的初始数。 (setq ent (entsel \nSelect number to arn: )) (if (null ent) (progn (princ \nError: Nothing selected!\n) (exit) ) ) (setq temp (entget (car ent))) (if (= (cdr (assoc 0 temp)) TEXT) ;输入生成递增数的个数、数间距及其方向。 (progn (setq number(getint Number of texts:)) (setq d(getdist Dist between texts:)) (setq a (atoi(cdr(assoc 1 temp))))