CAD中自動求和與自動求面積的解決方案

AutoCAD中數(shù)值自動求和與多段線自動計算面積和及長度和的解決方案數(shù)值的自動求和解決將下方陰影區(qū)程序復(fù)制，另建文本文檔，打開粘貼后另存為“數(shù)值求和.lsp”，保存在常用軟件備份目錄下。在CAD啟動完成后在命令行輸入“ap”命令，在彈出的“加載/卸載應(yīng)用程序”對話框中，查找存放的“數(shù)值求和.lsp”并點擊“加載”，并可在啟動組中填加該lsp文件。加載成功后，需要求和時，在命令行輸入“sum”命令，然后選擇需求和的數(shù)值，回車確認后即可在命令行見到求和結(jié)果。程序（陰影區(qū)全部復(fù)制）=============================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面積自動求和及多段線長度求和將下方陰影區(qū)程序復(fù)制，另建文本文檔，打開粘貼后另存為“面積求和.lsp”，保存在常用軟件備份目錄下。在CAD啟動完成后在命令行輸入“(setqssll(1-ssll))(setqtotal(+totalnumber))(princ"\nTheSumofthe")(princssl1)(princ"numbersselectedis")(princtotal)(setqcmdechocmdmode)(princ)End面積自動求和及多段線長度求和將下方陰影區(qū)程序復(fù)制，另建文本文檔，打開粘貼后另存為“面積求和.lsp”，保存在常用軟件備份目錄下。在CAD啟動完成后在命令行輸入“用程序”對話框中，查找存放的“面積求和.lsp”并點擊文件。加載成功后，需要求和時，在命令行輸入“回車確認后即可在命令行見到求和結(jié)果。程序（陰影區(qū)全部復(fù)制），，amap”命令，在彈出的“加載/卸載應(yīng)“加載”，并可在啟動組中填加該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