cad中自动求和与自动求面积的解决方案.docx

AutoCAD中数值自动求和与 多段线自动计算面积和及长度和的解决方案 数值的自动求和解决 将下方阴影区程序复制，另建文本文档，打开粘贴后另存为“数值求和 」sp”，保存在常 用软件备份目录下。在 CAD启动完成后在命令行输入“ ap”命令，在弹出的“加载/卸 载应用程序”对话框中，查找存放的“数值求和 」sp”并点击“加载”，并可在启动组中 填加该lsp文件。加载成功后，需要求和时，在命令行输入“ sum”命令，然后选择需 求和的数值，回车确认后即可在命令行见到求和结果。 程序（阴影区全部复制） Sum fun ctio n Defun C:Sum( / cmdmode sset ssl n sset temp ssll total) (if *error* quit) ;Exit CAD whe n error exists (setq cmdmode (getvar cmdecho)) ;store the content of cmdecho in variable cmdmode (setvar cmdecho 0); (prompt \nSelect nu mbers :) (setq sset (ssget)) (if (n ull sset) (progn (pri nc \n Error: Nothi ng selected!\n) (pri nc) (progn