[心得] 計算2D元體長度by autolisp

看板Cad_Cae (電腦輔助設計)作者Egriawei (誰來檔一下小七獅)時間17年前 (2008/05/27 02:27)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串1/1

主要是靠lengthen指令與perimeter系統變數來完成如果有興去挑戰的版友可以自己試著寫看看本來我自己還有另外寫一套計算各種2d圖元的副程式不過有現成的lengthen可以用就用之,省的跟spline奮鬥 lisp使用方法可以參考我前一篇面域加總或其他有討論lisp的文章以下為len2d.lisp的程式碼使用len2d指令然後照提示操作即可會要求輸入兩個整數參數(都按enter則使用預設) 再來請選取要加總長度的2d圖元視需要除了印出總長還可以有條列資料印出(不過大概不需要) 程式效率就先不要求了(因為lengthen一定會印出東西來,cmdecho設0也沒用) 不會太慢不用擔心另外如果要求只計算某圖層的圖元先以手動的方法切換到只顯示該圖層吧雖然ssget "X" 過濾選集加個條件很快不過我懶的寫XD (直接抓lisp檔) http://0rz.tw/094bD ;len2d.lisp ;;;=============Copyright============= ;;;此為簡易2d線段長度計算及加總程式 ;;;作者為台大BBS站PTT Egriawei ;;;歡迎使用及添改，惟請註明參考出處 ;;;若有問題請來信討論，請多指教 ;;;=================================== (defun c:len2d (/ ssa mode isprint sum) ;===環境設定=== (graphscr) ;叫出圖框 ;;;物件鎖點等設定請視個人情況調整添改 ;===提示與參數輸入=== (princ "********************************************************\n") (princ "框選或連(單)選欲計算及加總長度的2d線段") (princ "(需為line,pline,spline,arc,circle,ellipse)\n") (princ "********************************************************\n") (setq mode (getint "選取模式:[(1)自行選取(2)全選圖面]<預設自行選取>:") mode (if mode mode 1) isprint (getint "輸出模式:[(1)僅列總長(2)條列及總長]<預設僅列總長>:") isprint (if (= isprint 2) "t" "f") ) ;===程式執行=== (setq ssa (ssadd) ssa (get2dss mode) sum (len2d ssa isprint) ) ;===程式結束=== (princ (strcat "\n所選取2d圖元總長為" (rtos sum) "\n計算完畢!\n")) (princ) ) ;===2d線段圖元蒐集副程式=== (defun get2dss (mode / ss ssa en en_data entype i) ;(princ (strcat "mode is " (itoa mode) "\n")) (setq ssa (ssadd) ;2d線段圖元集合 i 0 ;起始值變數 ) (cond ((= mode 1) (progn (setq ss (ssget)) ;圖元集合 (if (/= ss nil) (repeat (sslength ss) (setq en (ssname ss i) ;取集合第一個圖元 en_data (entget en) ;圖元資料 entype (cdr (assoc 0 en_data)) ;圖元種類 i (1+ i) ;next ) (if (or (= entype "LINE") (= entype "LWPOLYLINE") (= entype "CIRCLE") (= entype "ARC") (= entype "ELLIPSE") (= entype "SPLINE") ) (setq ssa (ssadd en ssa)) ;若為2d線段圖元則蒐集入ssa選擇集 ) );end-repeat );end-if );end-mode1-progn );end-mode1 ((= mode 2) (progn (setq ssa (ssget "X" (list (cons -4 "<OR") (cons 0 "LINE") (cons 0 "LWPOLYLINE") (cons 0 "CIRCLE") (cons 0 "ARC") (cons 0 "ELLIPSE") (cons 0 "SPLINE") (cons -4 "OR>") ) ) );以選集過濾器方式蒐集2d線段圖元 );end-mode2-progn );end-mode2 (t (princ (strcat "未定義的mode:" (itoa mode))));end-t );end-cond ssa ) ;===計算2d圖元長度副程式=== (defun len2d (ssa isprint / en en_data entype ename lenlist i len sum ) (setq i 0 sum 0.0 lenlist nil) (if (/= ssa nil) (progn (repeat (sslength ssa) (setq en (ssname ssa i) ;取得集合第一個圖元 len (get_perimeter en) ;計算圖元長度 sum (+ sum len) ;加總 lenlist (if (= isprint "t") (cons len lenlist)) i (1+ i) ) );end-repeat );end-if-progn );end-if (if (= isprint "t") (progn (princ "\n") (setq i 0 lenlist (reverse lenlist) ) (repeat (sslength ssa) (setq en (ssname ssa i) ;取集合第一個圖元 en_data (entget en) ;圖元資料 entype (cdr (assoc 0 en_data)) ;元體類型 ename (cdr (assoc -1 en_data)) ;元體名稱 ) (princ ename) (princ (strcat "類型:" entype ";線段長:" (rtos (nth i lenlist)) "\n")) (setq i (1+ i)) );end-repeat );end-if-progn );end-if sum;回傳總長 ) ;===計算有周長圖元之長度副程式=== (defun get_perimeter (en / len) (command "lengthen" en "") (setq len (getvar "perimeter"));取得周長 ) ;================================ (princ "2d線段長度計算及加總程式len2d.lsp\n") (princ "<c:len2d>\n") (princ) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.168.197.195 ※ 編輯: Egriawei 來自: 118.168.197.195 (05/27 02:42)