[分享]LISP計算及合計面積
第3頁(共8頁) • 1, 2, 3, 4, 5, 6, 7, 8
[分享]LISP計算及合計面積
主題回顧 :
大家好:
好康分享又來囉~
這次的「計算及合計面積」範例:使用者可選取「聚合線」以「功能變數」方式顯示面積!
「功能變數」的好處是可以隨時更新面積資訊喔,有需要的朋友請下載使用吧~
A2F指令說明:選取「聚合線」以「功能變數」方式顯示面積,也可以複選「聚合線」物件。
![[分享]LISP計算及合計面積 - 頁 3 309610](https://i.servimg.com/u/f58/12/31/59/66/309610.png)
程式作者 Lee Mac
http://lee-mac.com/programs.html
A2F指令(計算及合計面積)步驟操作:
Areas2FieldV1-3.lsp程式下載(*回覆可見*):
▼相關主題:
[分享]LISP計算多個不同形體的面積
[影片]功能變數 長度及面積
大家好:
好康分享又來囉~
這次的「計算及合計面積」範例:使用者可選取「聚合線」以「功能變數」方式顯示面積!
「功能變數」的好處是可以隨時更新面積資訊喔,有需要的朋友請下載使用吧~
A2F指令說明:選取「聚合線」以「功能變數」方式顯示面積,也可以複選「聚合線」物件。
![[分享]LISP計算及合計面積 - 頁 3 309610](https://i.servimg.com/u/f58/12/31/59/66/309610.png)
程式作者 Lee Mac
http://lee-mac.com/programs.html
A2F指令(計算及合計面積)步驟操作:
Areas2FieldV1-3.lsp程式下載(*回覆可見*):
▼相關主題:
[分享]LISP計算多個不同形體的面積
[影片]功能變數 長度及面積
Tiger&蘋果爸 在 2017-03-17, 16:40 作了第 3 次修改
王璽斌, windjames1217, yxc7, hahayellow, fudo0715, 鱷魚皮, 廖博彥 and 0098451 like this post
回復: [分享]LISP計算及合計面積
感謝無私分享,大提昇高效率
tyng1982- 一般會員
- 文章總數 : 7
年齡 : 38
來自 : 新北市
職業 : 防災設計
愛好 : 遊玩
個性 : 內向
使用年資 : 10年
使用版本 : 2014
經驗值 : 3917
威望值 : 0
注冊日期 : 2010-06-09
回復: [分享]LISP計算及合計面積

jess198109- 初級會員
- 文章總數 : 36
年齡 : 39
來自 : 台中
職業 : 待業中
愛好 : 繪圖
個性 : 內斂
使用年資 : 3
使用版本 : 2007
經驗值 : 3844
威望值 : 6
注冊日期 : 2011-01-04
回復: [分享]LISP計算及合計面積
太棒了,多謝分享喔
HG1213- 一般會員
- 文章總數 : 11
年齡 : 42
來自 : 台北
職業 : 室內裝修
愛好 : 遊山玩水
個性 : 開朗
使用年資 : 新手初學
使用版本 : 2014
經驗值 : 4002
威望值 : 0
注冊日期 : 2010-03-21
回復: [分享]LISP計算及合計面積
只能限定已選擇的物件,新的物件需重選~luswlife 寫到:功能不錯哦!
我另外想問一下
這個功能是否只限定已圈好範圍的聚合線,如果只有用線圈起的範圍是否就不適用?
妳可以下載試試看!

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

回復: [分享]LISP計算及合計面積
非常有用的工具,感謝分享!
Addy- 一般會員
- 文章總數 : 4
年齡 : 56
來自 : 台北
職業 : 室內設計
愛好 : CG
個性 : 友善
使用年資 : 20年+
使用版本 : 2016
經驗值 : 2409
威望值 : 0
注冊日期 : 2014-07-12
回復: [分享]LISP計算及合計面積
可以計算面積已經很厲害了
居然還能合計
更神的是還能及時更新數據
感謝蘋果爸分享這麼好用的程式
居然還能合計
更神的是還能及時更新數據
感謝蘋果爸分享這麼好用的程式



et1029et- 初級會員
- 文章總數 : 356
年齡 : 40
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 4512
威望值 : 324
注冊日期 : 2013-07-02
回復: [分享]LISP計算及合計面積
感謝你的分享,下載學習!
tan866- 初級會員
- 文章總數 : 73
年齡 : 44
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 4125
威望值 : 45
注冊日期 : 2010-10-24
回復: [分享]LISP計算及合計面積
能做即時的動態連接.這個很實用.感謝大大分享.正好有這個需求..
jenglung15- 一般會員
- 文章總數 : 28
年齡 : 40
來自 : 台中
職業 : 營造
愛好 : work
個性 : 外向
使用年資 : 新手初學
使用版本 : 2002
經驗值 : 3156
威望值 : 0
注冊日期 : 2012-09-27
回復: [分享]LISP計算及合計面積
感謝大大分享
蠻實用的
面積改變隨時可以更新
大推~~~
蠻實用的
面積改變隨時可以更新
大推~~~
abcisabc- 一般會員
- 文章總數 : 9
年齡 : 34
來自 : 天龍國
職業 : 工程師
愛好 : CAD
個性 : 安靜
使用年資 : 2年
使用版本 : 2013
經驗值 : 2686
威望值 : 0
注冊日期 : 2013-10-25
回復: [分享]LISP計算及合計面積
計算面積很實用的工具
對工作上的助益很有幫助
謝謝版主熱心分享
對工作上的助益很有幫助
謝謝版主熱心分享
yymg1973- 中級會員
- 文章總數 : 152
年齡 : 41
來自 : 桃園縣
職業 : 助理工程員
愛好 : 跟團旅遊
個性 : 有一點龜毛
使用年資 : 3年
使用版本 : 2008
積分 : 8
經驗值 : 4794
威望值 : 159
注冊日期 : 2009-05-18
回復: [分享]LISP計算及合計面積
真的超實用,有夠讚的LISP,感謝大大!
ji2342- 中級會員
- 文章總數 : 112
年齡 : 51
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 : 中
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 4753
威望值 : 50
注冊日期 : 2008-09-12
回復: [分享]LISP計算及合計面積
真是太好了!!
不然每次面積都慢慢調整,都快發火了!
謝謝分享~!
不然每次面積都慢慢調整,都快發火了!
謝謝分享~!
kytony- 一般會員
- 文章總數 : 24
年齡 : 43
來自 : 高雄市
職業 : 室內設計
愛好 : 睡覺
個性 : ok
使用年資 : 3
使用版本 : 2010
經驗值 : 3933
威望值 : 6
注冊日期 : 2010-08-22
回復:分享LISP計算及合計面積
謝謝分享,很有幫助。
祥- 一般會員
- 文章總數 : 40
年齡 : 53
來自 : 台北縣
職業 : 水電工
愛好 : 看電視
個性 : 話不多
使用年資 : 3年
使用版本 : 2008
經驗值 : 4458
威望值 : 7
注冊日期 : 2009-02-26
回復: [分享]LISP計算及合計面積
有計算面積數量的lisp真是方便
ronhwa0228- 一般會員
- 文章總數 : 84
年齡 : 53
來自 : 桃園縣
職業 : 設計
愛好 : 看電影
個性 : 隨和
使用年資 : 1
使用版本 : 2010
經驗值 : 3524
威望值 : 48
注冊日期 : 2012-06-29
回復: [分享]LISP計算及合計面積
非常實用,經常需要用到,感謝無私的分享。
hung- 一般會員
- 文章總數 : 51
年齡 : 48
來自 : 台北
職業 : 電腦繪圖
愛好 : 看電影
個性 : 樂觀
使用年資 : 15
使用版本 : 2014
經驗值 : 4682
威望值 : 0
注冊日期 : 2008-10-08
回復: [分享]LISP計算及合計面積
此功能真的是方便又好用~
非常謝謝分享!!不然每次算面積都點來點去的~
非常謝謝分享!!不然每次算面積都點來點去的~
eric770914- 專屬會員
- 文章總數 : 37
年齡 : 32
來自 : 新北市土城區
職業 : 營造業現場
愛好 : 賺錢
個性 : 衝動
使用年資 : 1年
使用版本 : 2014
經驗值 : 2510
威望值 : 0
注冊日期 : 2014-09-07
回復: [分享]LISP計算及合計面積
謝謝分享~
sir212- 一般會員
- 文章總數 : 6
年齡 : 63
來自 : 基隆
職業 : 待業
愛好 : 電影
個性 : 很好
使用年資 : 新手初學
使用版本 : 2015
經驗值 : 2203
威望值 : 0
注冊日期 : 2015-02-03
回復: [分享]LISP計算及合計面積
非常感謝分享,小弟最近剛學CAD,算面積算到頭有點痛,希望這個可以幫到很多忙。再次感謝:)
sigou- 一般會員
- 文章總數 : 9
年齡 : 35
來自 : 宜蘭
職業 : 商
愛好 : 旅遊
個性 : 隨和,偶爾愛打抱不平
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2747
威望值 : 0
注冊日期 : 2013-08-21
回復: [分享]LISP計算及合計面積
又可以學到很棒的LISP了!
感謝蘋果爸!
感謝蘋果爸!
JK_Nash- 一般會員
- 文章總數 : 30
年齡 : 31
來自 : 彰化
職業 : 土木
愛好 : 3C
個性 : 溫文儒雅
使用年資 : 7年
使用版本 : 2014
經驗值 : 2576
威望值 : 0
注冊日期 : 2014-05-17
回復: [分享]LISP計算及合計面積
感謝大大分享,很大受益
benq0955- 一般會員
- 文章總數 : 7
年齡 : 36
來自 : 新竹市
職業 : 監工
愛好 : 釣蝦
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 3532
威望值 : 0
注冊日期 : 2011-06-30
回復: [分享]LISP計算及合計面積
謝謝分享,希望蘋果爸能出關於autolisp的書

winnie- 贊助會員
- 文章總數 : 56
年齡 : 40
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 一年
使用版本 : 2008
經驗值 : 4331
威望值 : 0
注冊日期 : 2009-11-25
回復: [分享]LISP計算及合計面積
面積加總功能很實用..謝謝蘋果大
另有會員提到有關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)
)
另有會員提到有關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)
)
linxyz168- 一般會員
- 文章總數 : 37
年齡 : 43
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 3041
威望值 : 6
注冊日期 : 2013-03-31
回復: [分享]LISP計算及合計面積
太棒了,好用的工具
ctest- 一般會員
- 文章總數 : 57
年齡 : 51
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 3673
威望值 : 12
注冊日期 : 2011-09-19
第3頁(共8頁) • 1, 2, 3, 4, 5, 6, 7, 8
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第3頁(共8頁)
這個論壇的權限:
您 無法 在這個版面回復文章