[分享]LISP計算及合計面積

主題回顧 :

大家好：
好康分享又來囉～
這次的「計算及合計面積」範例：使用者可選取「聚合線」以「功能變數」方式顯示面積！
「功能變數」的好處是可以隨時更新面積資訊喔，有需要的朋友請下載使用吧～
A2F指令說明：選取「聚合線」以「功能變數」方式顯示面積，也可以複選「聚合線」物件。

程式作者 Lee Mac
http://lee-mac.com/programs.html

A2F指令（計算及合計面積）步驟操作：


Areas2FieldV1-3.lsp程式下載（*回覆可見*）：

---

▼相關主題：
[分享]LISP計算多個不同形體的面積
[影片]功能變數 長度及面積

感謝無私分享，大提昇高效率

宇宙實用的工具~太感謝您了!

太棒了，多謝分享喔

luswlife 寫到:功能不錯哦!
我另外想問一下
這個功能是否只限定已圈好範圍的聚合線，如果只有用線圈起的範圍是否就不適用?

只能限定已選擇的物件，新的物件需重選～
妳可以下載試試看！

---

judyyai 寫到:不只可以計算面積~
當設計變更可以自動變更數據 這個cool~

單親爸 寫到:太棒了~這程式居然還能即時更新，感謝分享!

因為是使用「功能變數」所以可以更新喔～

非常有用的工具，感謝分享！

好用的工具，謝謝分享。

可以計算面積已經很厲害了
居然還能合計
更神的是還能及時更新數據
感謝蘋果爸分享這麼好用的程式

感謝你的分享,下載學習!

能做即時的動態連接.這個很實用.感謝大大分享.正好有這個需求..

感謝大大分享
蠻實用的
面積改變隨時可以更新
大推~~~

計算面積很實用的工具
對工作上的助益很有幫助
謝謝版主熱心分享

真的超實用，有夠讚的LISP，感謝大大!

真是太好了!!
不然每次面積都慢慢調整，都快發火了!
謝謝分享~!

謝謝分享，很有幫助。

有計算面積數量的lisp真是方便

非常實用，經常需要用到，感謝無私的分享。

此功能真的是方便又好用~
非常謝謝分享!!不然每次算面積都點來點去的~

謝謝分享~

非常感謝分享，小弟最近剛學CAD，算面積算到頭有點痛，希望這個可以幫到很多忙。再次感謝：)

又可以學到很棒的LISP了!
感謝蘋果爸!

感謝大大分享，很大受益

謝謝分享,希望蘋果爸能出關於autolisp的書

面積加總功能很實用..謝謝蘋果大
另有會員提到有關m2直接轉坪數有個面積直接寫到圖上的lisp不知是否有幫助

如下
;; 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 QAREA (GETVAR "AREA") QAREA (strcat "面積:"(RTOS (/ QAREA 10000) 2 2) "㎡="(RTOS (* QAREA 3025 1e-8) 2 2) "坪" ) )
(SETQ PT (GETPOINT"\nPick 點選你要放置位置:"))
(COMMAND "TEXT" PT "" "" QAREA)
;;
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(setq *error* olderr)
(PRINC)
)

太棒了,好用的工具