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

由 **Tiger&蘋果爸** 2015-01-28, 10:17

主題回顧 :

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

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

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

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

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

由 **tyng1982** 2015-01-29, 12:13

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

由 **jess198109** 2015-01-29, 14:06

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

由 **HG1213** 2015-01-29, 14:11

太棒了，多謝分享喔

由 **Tiger&蘋果爸** 2015-01-29, 15:26

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

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

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

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

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

由 **Addy** 2015-01-29, 15:37

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

由 **mi mi** 2015-01-29, 16:20

好用的工具，謝謝分享。

由 **et1029et** 2015-01-30, 10:40

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

由 **guanbo.bruce** 2015-01-30, 11:35

感謝分享！
真的非常實用！

由 **tan866** 2015-01-30, 16:03

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

由 **jenglung15** 2015-01-30, 17:51

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

由 **abcisabc** 2015-01-31, 06:47

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

由 **yymg1973** 2015-01-31, 14:37

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

由 **ji2342** 2015-01-31, 20:46

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

由 **kytony** 2015-02-01, 15:54

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

由祥 2015-02-01, 23:59

謝謝分享，很有幫助。

由 **ronhwa0228** 2015-02-02, 00:38

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

由 **hung** 2015-02-02, 16:35

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

由 **eric770914** 2015-02-02, 19:38

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

由 **sir212** 2015-02-05, 07:34

謝謝分享~

由 **sigou** 2015-02-11, 11:59

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

由 **JK_Nash** 2015-02-24, 23:30

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

由 **benq0955** 2015-03-04, 00:20

感謝大大分享，很大受益

由 **winnie** 2015-04-07, 23:28

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

由 **linxyz168** 2015-04-08, 16:42

面積加總功能很實用..謝謝蘋果大
另有會員提到有關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)
)