對于一個設計院工作的人，在設計完成后要算工程數量，要計算很多線條的長度總和，我們往往會安裝很多插件，很麻煩，個人覺得還是自己寫幾行代碼比較方便：
將本段代碼 復制到記事本，然后將后綴改為xxx.lsp，打開cad2012及以前版本，輸入APPload——>選擇xxx.lsp——>點擊加載——>關閉。在CAD中輸入LL,便可以統計線條長度。以下截圖幫助小白理解。

(defun c:LL()(setvar "cmdecho" 1) (setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE")))) (setq i 0) (setq ll 0) (repeat (sslength en)(setq ss (ssname en i))(setq endata (entget ss))(command "lengthen" ss "")(setq dd (getvar "perimeter")) (setq ll (+ dd ll))(setq i (1+ i)) )(print (strcat "TZY_The total length: " (rtos ll 2 5)))(princ) )

順便粘貼下標注面積的代碼

;; write area value of a close polygon to drawing (DEFUN C:EA(/ OLDOS PT STA QAREA) ;;(setq olderr *error*)(setq *error* myerr)(SETVAR "CMDECHO" 0)(SETQ OLDOS (GETVAR "OSMODE")) ;;(SETVAR "OSMODE" 0)(SETQ STA (CAR (ENTSEL)))(COMMAND "AREA" "E" STA)(SETQ QAREA (RTOS (GETVAR "AREA") 2 2))(SETQ PT (GETPOINT"\nPick the point you want to write area:"))(COMMAND "TEXT" PT "" "" QAREA) ;; (SETVAR "OSMODE" OLDOS)(SETVAR "CMDECHO" 1)(setq *error* olderr)(PRINC) )

更多好玩的請看：計算機技巧

總結

以上是生活随笔為你收集整理的自制AutoCAD实用工具的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。