估算面積和重量的lisp_demo

下載試用程式

nip_建立零件的相關資料, 包括 材質名稱, 板料厚度, 加工程序.rar

此程式可估算 封閉區域 的 面積 和 重量 : 程式操作 圖示如下............... 載入指令的放大圖示如下: 開始選取圖中要估算 面積 和 重量 的 封閉圖元: 當然是全部選取: 然後依提示，在亮顯的圖形內　指定要插入數據的插入點： 全部指定完插入點, 各個圖形的　面積　和　重量　都會以　text　的方式插入圖中， 最後，再把全部的總面積以提示窗的方式顯示出來，以供參考： 此範例展示的估算程式，主要用於估算　封閉曲線，如：　圓，橢圓，矩形，多邊形，聚合線，雲形線，面域, ．．．等等圖元． 由線，弧所形成的　”封閉線”，　必須先轉成聚合線或面域之類的圖元，才是　”一條”　封閉曲線，否則是無法估算　面積　和　重量的． =============== 重點指令 ================== (if (setq ss1 (ssget '((-4 . " (0 . "POLYLINE") (0 . "LWPOLYLINE") (0 . "CIRCLE") (0 . "ELLIPSE") (0 . "SPLINE") (0 . "REGION") (-4 . "OR>") ) ) ) (progn (setq nr 0) (setq tot_area 0.0) (setq en (ssname ss1 nr)) (while en (redraw en 3)         ;highlight (command "._area" "_O" en) (setq st1 (getvar "area") st2 (strcat (rtos (* (getvar "area") 0.000001) 2 5) " 平方公尺") wei (* th st1 Dma) wta (strcat (rtos wei 2 4) " kg") ) (if (setq tp (getpoint "\n請選取 亮顥圖元 面積/重量值 的插入點: ")) (progn (command "text" tp ht "" st2)                 ;;text height (setq tp (polar tp (* 1.5 pi) (* 2 ht))) (command "text" tp ht "" wta)                 ;;text height ) ) (redraw en 4) ;un-highlight (setq tot_area (+ tot_area (getvar "area"))) (setq nr (1+ nr)) (setq en (ssname ss1 nr)) ) ;;      (princ "\nTotal Area = ") ;;      (princ tot_area) (setq total_area (strcat "總面積 : " (rtos (* tot_area 0.000001) 2 5) " 平方公尺.")) (alert total_area) ) )

---