CAD中自動(dòng)求和與自動(dòng)求面積的解決方案計(jì)劃

1、AutoCAD中數(shù)值自動(dòng)求和與多段線自動(dòng)計(jì)算面積和及長(zhǎng)度和的解決方案一、 數(shù)值的自動(dòng)求和解決將下方陰影區(qū)程序復(fù)制，另建文本文檔，打開(kāi)粘貼后另存為“數(shù)值求和.lsp”，保存在常用軟件備份目錄下。在CAD啟動(dòng)完成后在命令行輸入“ap”命令，在彈出的“加載/卸載應(yīng)用程序”對(duì)話框中，查找存放的“數(shù)值求和.lsp”并點(diǎn)擊“加載”，并可在啟動(dòng)組中填加該lsp文件。加載成功后，需要求和時(shí)，在命令行輸入“sum”命令，然后選擇需求和的數(shù)值，回車(chē)確認(rèn)后即可在命令行見(jiàn)到求和結(jié)果。程序（陰影區(qū)全部復(fù)制）;=Sum function=( Defun C:Sum( / cmdmode sset ssl nsset te

2、mp ssl1 total) (if *error* quit) ;Exit CAD when error exists (setq cmdmode (getvar "cmdecho") ;store the content of "cmdecho" in variable cmdmode (setvar "cmdecho" 0); (prompt "nSelect numbers : ") (setq sset (ssget) (if (null sset) (progn (princ "nError:

3、 Nothing selected!n") (princ) ) (progn (setq ssl (sslength sset) ; return the length of sset (setq nsset (ssadd) ; construct a new null selections set (while (> ssl 0) (setq temp (ssname sset (setq ssl(1- ssl) ;assign the ss1th member name of sset to temp (if (= (cdr (assoc 0 (entget temp) &

4、quot;TEXT") (ssadd temp nsset) ; add temp to nsset ) ) (setq ssl (sslength nsset) (print ssl) (princ "text entities are found.") (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)

5、 (setq ssl1 (1- ssl1) (setq total (+ total number) ) ) (princ "nThe Sum of the ") (princ ssl1) (princ " numbers selected is ") (princ total) ) ) (setq cmdecho cmdmode) (princ);=End=二、 面積自動(dòng)求和及多段線長(zhǎng)度求和將下方陰影區(qū)程序復(fù)制，另建文本文檔，打開(kāi)粘貼后另存為“面積求和.lsp”，保存在常用軟件備份目錄下。在CAD啟動(dòng)完成后在命令行輸入“ap”命令，在彈出的“加載/卸載

6、應(yīng)用程序”對(duì)話框中，查找存放的“面積求和.lsp”并點(diǎn)擊“加載”，并可在啟動(dòng)組中填加該lsp文件。加載成功后，需要求和時(shí)，在命令行輸入“am”命令，然后選擇需求和的多段線，回車(chē)確認(rèn)后即可在命令行見(jiàn)到求和結(jié)果。程序（陰影區(qū)全部復(fù)制）(defun C:am (/ ss l i totalarea ename obj entarea) (if (setq ss (ssget) (progn (vl-load-com) (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object) (setq l

7、(sslength ss) i 0 totalarea 0 totlength 0) (repeat l (setq ename (ssname ss i) (setq obj (vlax-ename->vla-object ename);(vlax-dump-object obj T)(if (vlax-property-available-p obj "area") (setq totalarea (+ (vlax-get-property obj 'area) totalarea) )(if (= (cdr (assoc 0 (entget ename)

8、 "MLINE") (setq totlength (+ totlength (ml-length ename) (setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename) (setq i (1+ i) ) (setq text1 (strcat "總面積為: " (rtos totalarea 2 4) "平方毫米") text2 (strcat "總長(zhǎng)度為: " (rtos totlen

9、gth 2 4) "毫米") ) (if (setq insertpt (getpoint "n請(qǐng)輸入文字插入點(diǎn): ")(if (setq height (getdist "n請(qǐng)輸入文字高度:") (setq insertp1 (vlax-3d-point insertpt)insertp2 (vlax-3d-point (polar insertpt (* Pi) (* height) textobj1 (vla-addtext modelspace text1 insertp1 height)textobj2 (vla-addtext modelspace text2 insertp2 height) ) ) ) )(defun ml-length (ename / j d ptlist) (foreach n (entget ename) (if (= (car n) 11) (setq ptlist (cons (cdr n) ptlist) )