CAD中自动求和与自动求面积的解决方案

AutoCAD中数值自动求和与多段线自动计算面积和及长度和的解决方案数值的自动求和解决将下方阴影区程序复制，另建文本文档，打开粘贴后另存为“数值求和.lsp”，保存在常用软件备份目录下。在CAD启动完成后在命令行输入“ap”命令，在弹出的“加载/卸载应用程序”对话框中，查找存放的“数值求和.lsp”并点击“加载”，并可在启动组中填加该lsp文件。加载成功后，需要求和时，在命令行输入“sum”命令，然后选择需求和的数值，回车确认后即可在命令行见到求和结果。程序（阴影区全部复制）=============================SumfunctioninvariableDefunC:Sum(/cmdmodessetsslnssettempsslltotal)(if*error*quit);ExitCADwhenerrorexistsinvariable(setqcmdmode(getvar"cmdecho"));storethecontentof"cmdecho"cmdmode(setvar"cmdecho"0);(prompt"\nSelectnumbers:")(setqsset(ssget))(if(nullsset)(progn(princ"\nError:Nothingselected!\n")(princ)(princ)(progn(setqssl(sslengthsset));returnthelengthofsset(setqnsset(ssadd));constructanewnullselectionsset(while(>ssl0)(setqtemp(ssnamesset(setqssl(1-ssl))));assignthess1thmembernameofssettotemp(if(=(cdr(assoc0(entgettemp)))"TEXT")(ssaddtempnsset);addtemptonsset)(setqssl(sslengthnsset))(printssl)(princ"textentitiesarefound.")(princ一(princ"textentitiesarefound.")(setqtotal0)(setqssl1ssl)(while(>ssl0)(setqtemp(ssnamensset(setqssl(1-ssl))))(setqtotal0)(setqssl1ssl)(while(>ssl0)(setqtemp(ssnamensset(setqssl(1-ssl))))(setqnumber(atof(cdr(assoc1(entgettemp)))))(if(=0number)(setqssll(1-ssll))(setqtotal(+totalnumber))(princ"\nTheSumofthe")(princssl1)(princ"numbersselectedis")(princtotal)(setqcmdechocmdmode)(princ)End面积自动求和及多段线长度求和将下方阴影区程序复制，另建文本文档，打开粘贴后另存为“面积求和.lsp”，保存在常用软件备份目录下。在CAD启动完成后在命令行输入“(setqssll(1-ssll))(setqtotal(+totalnumber))(princ"\nTheSumofthe")(princssl1)(princ"numbersselectedis")(princtotal)(setqcmdechocmdmode)(princ)End面积自动求和及多段线长度求和将下方阴影区程序复制，另建文本文档，打开粘贴后另存为“面积求和.lsp”，保存在常用软件备份目录下。在CAD启动完成后在命令行输入“用程序”对话框中，查找存放的“面积求和.lsp”并点击文件。加载成功后，需要求和时，在命令行输入“回车确认后即可在命令行见到求和结果。程序（阴影区全部复制），，amap”命令，在弹出的“加载/卸载应“加载”，并可在启动组中填加该lsp命令，然后选择需求和的多段线，(defunC:am(/sslitotalareaenameobjentarea)(if(setqss(ssget))(progn(vl-load-com)(setqmodelspace(vla-get-Modelspace(vla-get-activeDocument(vlax-get-acad-object))))(setql(sslengthss)i0totalarea0totlength0)(repeatl(setqename(ssnamessi))(setqobj(vlax-ename->vla-objectename));;(vlax-dump-objectobjT)(if(vlax-property-available-pobj"area")(setqtotalarea(+(vlax-get-propertyobj'area)totalarea))(if(=(cdr(assoc0(entgetename)))"MLINE")(setqtotlength(+totlength(ml-lengthename)))(setqtotlength(+totlength(vlax-curve-getdistatparamename(vlax-curve-getendparamename))))(setqi(1+i))(setqtextl(strcat"总面积为:"(rtostotalarea24)"平方毫米")text2(strcat"总长度为:"(rtostotlength24)"毫米"))(if(setqinsertpt(getpoint"\n请输入文字插入点："))(if(setqheight(getdist"\n请输入文字高度:"))(setqinsertp1(vlax-3d-pointinsertpt)insertp2(vlax-3d-point(polarinsertpt(*1.5Pi)(*1.5height)))textobj1(vla-addtextmodelspacetext1insertp1height))(defunml-length(ename/jdptlist)(foreachn(entgetename)(if(=(carn)11)(setqptlist(cons(cdr