AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

3頁(共5頁) 上一頁  1, 2, 3, 4, 5  下一步

上一篇主題 下一篇主題 向下

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

發表 由 Tiger&蘋果爸 于 2015-01-28, 02:17

主題回顧 :

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

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

A2F指令(計算及合計面積)步驟操作


Areas2FieldV1-3.lsp程式下載(*回覆可見*)



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


Tiger&蘋果爸 在 2017-03-17, 08:40 作了第 3 次修改

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17192
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64609
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下


回復: [分享]LISP計算及合計面積

發表 由 tyng1982 于 2015-01-29, 04:13

感謝無私分享,大提昇高效率
avatar
tyng1982
一般會員
一般會員

文章總數 : 6
年齡 : 35
來自 : 台北市
職業 : 室內設計
愛好 : 遊玩
個性 : 內向
使用年資 : 5年
使用版本 : 2010
經驗值 : 2713
威望值 : 0
注冊日期 : 2010-06-09
女 水瓶座 狗

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 jess198109 于 2015-01-29, 06:06

愛哭 宇宙實用的工具~太感謝您了!
avatar
jess198109
初級會員
初級會員

文章總數 : 35
年齡 : 36
來自 : 台中
職業 : 待業中
愛好 : 繪圖
個性 : 內斂
使用年資 : 3
使用版本 : 2007
經驗值 : 2645
威望值 : 6
注冊日期 : 2011-01-04
藍鵲503號
女 處女座 雞

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 HG1213 于 2015-01-29, 06:11

太棒了,多謝分享喔
avatar
HG1213
一般會員
一般會員

文章總數 : 11
年齡 : 38
來自 : 台北
職業 : 室內裝修
愛好 : 遊山玩水
個性 : 開朗
使用年資 : 新手初學
使用版本 : 2014
經驗值 : 2808
威望值 : 0
注冊日期 : 2010-03-21
2D基礎函授 經典問與答讀者 男 摩羯座 馬

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 Tiger&蘋果爸 于 2015-01-29, 07:26

luswlife 寫到:功能不錯哦!
我另外想問一下
這個功能是否只限定已圈好範圍的聚合線,如果只有用線圈起的範圍是否就不適用?
只能限定已選擇的物件,新的物件需重選~
妳可以下載試試看!
微笑


judyyai 寫到:不只可以計算面積~
當設計變更可以自動變更數據 這個cool~
單親爸 寫到:太棒了~這程式居然還能即時更新,感謝分享!
因為是使用「功能變數」所以可以更新喔~
過獎了

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17192
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64609
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 Addy 于 2015-01-29, 07:37

非常有用的工具,感謝分享!
avatar
Addy
一般會員
一般會員

文章總數 : 4
年齡 : 53
來自 : 台北
職業 : 室內設計
愛好 : CG
個性 : 友善
使用年資 : 20年+
使用版本 : 2016
經驗值 : 1215
威望值 : 0
注冊日期 : 2014-07-12
男 天秤座 龍

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 mi mi 于 2015-01-29, 08:20

好用的工具,謝謝分享。
avatar
mi mi
一般會員
一般會員

文章總數 : 89
年齡 : 42
來自 : 台北縣
職業 : 工務
愛好 : 繪圖
個性 : 動靜皆宜
使用年資 : 5
使用版本 : 2008
經驗值 : 3192
威望值 : 33
注冊日期 : 2009-12-09
藍鵲707號
女 摩羯座 虎

http://mi0931158656@yahoo.com.tw

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 et1029et 于 2015-01-30, 02:40

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

文章總數 : 356
年齡 : 36
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3318
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 guanbo.bruce 于 2015-01-30, 03:35

感謝分享!
真的非常實用!
avatar
guanbo.bruce
初級會員
初級會員

文章總數 : 50
年齡 : 48
來自 : Taipei
職業 : Engineer
愛好 : 建築、藝術、閱讀、象棋、游泳、3C與塗鴉。
個性 : 很熱誠、頗自省、好好奇、蠻懶散。
使用年資 : 24
使用版本 : 2015
積分 : 3
經驗值 : 2649
威望值 : 210
注冊日期 : 2011-08-11
男 巨蟹座 雞

https://www.facebook.com/guanbo.bruce

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 tan866 于 2015-01-30, 08:03

感謝你的分享,下載學習!
avatar
tan866
初級會員
初級會員

文章總數 : 67
年齡 : 40
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 2895
威望值 : 39
注冊日期 : 2010-10-24
藍鵲346號
男 摩羯座 龍

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 jenglung15 于 2015-01-30, 09:51

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

文章總數 : 28
年齡 : 37
來自 : 台中
職業 : 營造
愛好 : work
個性 : 外向
使用年資 : 新手初學
使用版本 : 2002
經驗值 : 1962
威望值 : 0
注冊日期 : 2012-09-27
男 金牛座 猴

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 abcisabc 于 2015-01-30, 22:47

感謝大大分享
蠻實用的
面積改變隨時可以更新
大推~~~
avatar
abcisabc
一般會員
一般會員

文章總數 : 9
年齡 : 31
來自 : 天龍國
職業 : 工程師
愛好 : CAD
個性 : 安靜
使用年資 : 2年
使用版本 : 2013
經驗值 : 1492
威望值 : 0
注冊日期 : 2013-10-25
男 巨蟹座 虎

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 yymg1973 于 2015-01-31, 06:37

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

文章總數 : 132
年齡 : 38
來自 : 桃園縣
職業 : 助理工程員
愛好 : 跟團旅遊
個性 : 有一點龜毛
使用年資 : 3年
使用版本 : 2008
積分 : 8
經驗值 : 3520
威望值 : 153
注冊日期 : 2009-05-18
經典問與答讀者 藍鵲309號
2009聚會勳章 2012聚會勳章 2014聚會勳章 2015聚會勳章 2016聚會勳章 男 雙魚座 羊

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 ji2342 于 2015-01-31, 12:46

真的超實用,有夠讚的LISP,感謝大大!
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3554
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 kytony 于 2015-02-01, 07:54

真是太好了!!
不然每次面積都慢慢調整,都快發火了!
謝謝分享~!
avatar
kytony
一般會員
一般會員

文章總數 : 23
年齡 : 40
來自 : 高雄市
職業 : 室內設計
愛好 : 睡覺
個性 : ok
使用年資 : 3
使用版本 : 2010
經驗值 : 2736
威望值 : 6
注冊日期 : 2010-08-22
顧問外掛程式 經典問與答讀者 完成藍鵲+經典。 男 水瓶座 龍

回頂端 向下

回復:分享LISP計算及合計面積

發表 由  于 2015-02-01, 15:59

謝謝分享,很有幫助。
avatar
一般會員
一般會員

文章總數 : 40
年齡 : 50
來自 : 台北縣
職業 : 水電工
愛好 : 看電視
個性 : 話不多
使用年資 : 3年
使用版本 : 2008
經驗值 : 3264
威望值 : 7
注冊日期 : 2009-02-26
經典問與答讀者 男 雙子座 羊

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 ronhwa0228 于 2015-02-01, 16:38

有計算面積數量的lisp真是方便
avatar
ronhwa0228
一般會員
一般會員

文章總數 : 65
年齡 : 50
來自 : 桃園縣
職業 : 設計
愛好 : 看電影
個性 : 隨和
使用年資 : 1
使用版本 : 2010
經驗值 : 2235
威望值 : 18
注冊日期 : 2012-06-29
2015聚會勳章 2016聚會勳章 男 雙魚座 羊

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 hung 于 2015-02-02, 08:35

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

hung
一般會員
一般會員

文章總數 : 42
年齡 : 45
來自 : 台北
職業 : 電腦繪圖
愛好 : 看電影
個性 : 樂觀
使用年資 : 15
使用版本 : 2014
經驗值 : 3445
威望值 : 0
注冊日期 : 2008-10-08
女 巨蟹座 鼠

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 eric770914 于 2015-02-02, 11:38

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

文章總數 : 28
年齡 : 29
來自 : 新北市土城區
職業 : 營造業現場
愛好 : 賺錢
個性 : 衝動
使用年資 : 1年
使用版本 : 2014
經驗值 : 1271
威望值 : 0
注冊日期 : 2014-09-07
男 處女座 龍

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 sir212 于 2015-02-04, 23:34

謝謝分享~
avatar
sir212
一般會員
一般會員

文章總數 : 6
年齡 : 59
來自 : 基隆
職業 : 待業
愛好 : 電影
個性 : 很好
使用年資 : 新手初學
使用版本 : 2015
經驗值 : 1009
威望值 : 0
注冊日期 : 2015-02-03
男 摩羯座 雞

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 sigou 于 2015-02-11, 03:59

非常感謝分享,小弟最近剛學CAD,算面積算到頭有點痛,希望這個可以幫到很多忙。再次感謝:)
avatar
sigou
一般會員
一般會員

文章總數 : 6
年齡 : 32
來自 : 宜蘭
職業 :
愛好 : 旅遊
個性 : 隨和,偶爾愛打抱不平
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1544
威望值 : 0
注冊日期 : 2013-08-21
男 獅子座 牛

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 JK_Nash 于 2015-02-24, 15:30

又可以學到很棒的LISP了!
感謝蘋果爸!
avatar
JK_Nash
一般會員
一般會員

文章總數 : 26
年齡 : 28
來自 : 彰化
職業 : 土木
愛好 : 3C
個性 : 溫文儒雅
使用年資 : 7年
使用版本 : 2014
經驗值 : 1370
威望值 : 0
注冊日期 : 2014-05-17
男 水瓶座 蛇

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 benq0955 于 2015-03-03, 16:20

感謝大大分享,很大受益
avatar
benq0955
一般會員
一般會員

文章總數 : 7
年齡 : 33
來自 : 新竹市
職業 : 監工
愛好 : 釣蝦
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 2338
威望值 : 0
注冊日期 : 2011-06-30
經典問與答讀者 男 水瓶座 鼠

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 winnie 于 2015-04-07, 16:28

謝謝分享,希望蘋果爸能出關於autolisp的書 太帥啦
avatar
winnie
贊助會員
贊助會員

文章總數 : 41
年齡 : 37
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 一年
使用版本 : 2008
經驗值 : 3070
威望值 : 0
注冊日期 : 2009-11-25
2D基礎函授 顧問外掛程式 經典問與答讀者 女 白羊座 猴

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 linxyz168 于 2015-04-08, 09: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)
)
avatar
linxyz168
一般會員
一般會員

文章總數 : 21
年齡 : 39
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 1770
威望值 : 6
注冊日期 : 2013-03-31
男 射手座 蛇

回頂端 向下

回復: [分享]LISP計算及合計面積

發表 由 ctest 于 2015-04-09, 09:12

太棒了,好用的工具
avatar
ctest
一般會員
一般會員

文章總數 : 47
年齡 : 48
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2435
威望值 : 6
注冊日期 : 2011-09-19
男 雙子座 雞

回頂端 向下

3頁(共5頁) 上一頁  1, 2, 3, 4, 5  下一步

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章