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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe1-113[討論]分享LISP計算多個不同形體的面積-VBA版本 Ioaoe110[討論]分享LISP計算多個不同形體的面積-VBA版本 2020-310[討論]分享LISP計算多個不同形體的面積-VBA版本 Oiu15010[討論]分享LISP計算多個不同形體的面積-VBA版本 2020-211[討論]分享LISP計算多個不同形體的面積-VBA版本 Ia15010[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao10[討論]分享LISP計算多個不同形體的面積-VBA版本 Uos15010[討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj[討論]分享LISP計算多個不同形體的面積-VBA版本 Ziao1510
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe15010[討論]分享LISP計算多個不同形體的面積-VBA版本 Oo-2-110[討論]分享LISP計算多個不同形體的面積-VBA版本 Zuoiy_10[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao11[討論]分享LISP計算多個不同形體的面積-VBA版本 Iyb_1510[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe1-112[討論]分享LISP計算多個不同形體的面積-VBA版本 Uos15011[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe2da10[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe2da11[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe10

[討論]分享LISP計算多個不同形體的面積-VBA版本

4 posters

向下

[討論]分享LISP計算多個不同形體的面積-VBA版本 Empty [討論]分享LISP計算多個不同形體的面積-VBA版本

發表 由 shackle_2005 2016-12-13, 16:50

20161220 把周長加總功能也放進來. 20161220 數字對齊一下. 20161216 修正, 計算面積改用 boundary 指令, 速度會快一點.
連續點擊面積的地方, 結果會加總所有面積. 我的電腦環境 : windows 7 64 bits, Autocad 2014 64bits, VBA 7.1
我的是Autocad 2014 中文版 : 管理 -> 執行 VBA 程式 -> VBA 管理員 -> 載入 -> area_calculation.dvb -> 載入 -> 啟用巨集 -> 巨集 -> 執行.
附件
[討論]分享LISP計算多個不同形體的面積-VBA版本 Attachment
area_calculation.zip 您無權下載這里的附件。(25 Kb) 下載 24 次
[討論]分享LISP計算多個不同形體的面積-VBA版本 Attachment
area_calculation_20161216.zip 您無權下載這里的附件。(10 Kb) 下載 16 次
[討論]分享LISP計算多個不同形體的面積-VBA版本 Attachment
area_calculation_20161220.zip 您無權下載這里的附件。(10 Kb) 下載 17 次
[討論]分享LISP計算多個不同形體的面積-VBA版本 Attachment
area_length_calculation_20161220.zip 您無權下載這里的附件。(21 Kb) 下載 18 次


shackle_2005 在 2016-12-20, 17:02 作了第 4 次修改

____________________________________________________________________________________
[討論]分享LISP計算多個不同形體的面積-VBA版本 Ioaoe110 [討論]分享LISP計算多個不同形體的面積-VBA版本 Zuoiy_10 [討論]分享LISP計算多個不同形體的面積-VBA版本 2020-211 [討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao11 [討論]分享LISP計算多個不同形體的面積-VBA版本 Iyb_1510
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao10 [討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj.png [討論]分享LISP計算多個不同形體的面積-VBA版本 Ziao1510 [討論]分享LISP計算多個不同形體的面積-VBA版本 Oo-2-110 [討論]分享LISP計算多個不同形體的面積-VBA版本 Oooa_110
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6746
威望值 : 361
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

[討論]分享LISP計算多個不同形體的面積-VBA版本 Empty 回復: [討論]分享LISP計算多個不同形體的面積-VBA版本

發表 由 Tiger&蘋果爸 2016-12-14, 10:45

shackle_2005 寫到:我也做了一個, 大家參考一下
連續點擊面積的地方, 結果會加總所有面積. 我的電腦環境 : windows 7 64 bits, Autocad 2014 64bits, VBA 7.1
謝謝前輩熱心分享VBA程式~
讚啦!!

____________________________________________________________________________________
👉[雙11優惠]2024雙11活動 教學產品7折起(免運)(點我)👈
編輯個人資料 Sesa2011 編輯個人資料 Youtub11 編輯個人資料 Oiea2011 編輯個人資料 Oe20011 編輯個人資料 Fbi20011 編輯個人資料 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21373
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90314
威望值 : 17206
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.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計算多個不同形體的面積-VBA版本 Empty 回復: [討論]分享LISP計算多個不同形體的面積-VBA版本

發表 由 crihy 2016-12-14, 19:29

感謝shackle_2005大大提供分享,請問可否提供操作指令及操作方式?

____________________________________________________________________________________
[討論]分享LISP計算多個不同形體的面積-VBA版本 Ioaoe110 [討論]分享LISP計算多個不同形體的面積-VBA版本 Zuoiy_10 [討論]分享LISP計算多個不同形體的面積-VBA版本 2020-211 [討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao11 [討論]分享LISP計算多個不同形體的面積-VBA版本 Iyb_1510
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao10 [討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj.png [討論]分享LISP計算多個不同形體的面積-VBA版本 Ziao1510 [討論]分享LISP計算多個不同形體的面積-VBA版本 Oo-2-110 [討論]分享LISP計算多個不同形體的面積-VBA版本 Oooa_110
avatar
crihy
初級會員
初級會員

文章總數 : 179
年齡 : 48
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 7234
威望值 : 474
注冊日期 : 2008-05-13
藍鵲366號
男 處女座 龍

回頂端 向下

[討論]分享LISP計算多個不同形體的面積-VBA版本 Empty 回復: [討論]分享LISP計算多個不同形體的面積-VBA版本

發表 由 shackle_2005 2016-12-14, 21:48

我的是Autocad 2014 中文版 : 管理 -> 執行 VBA 程式 -> VBA 管理員 -> 載入 -> area_calculation.dvb -> 載入 -> 啟用巨集 -> 巨集 -> 執行.

____________________________________________________________________________________
[討論]分享LISP計算多個不同形體的面積-VBA版本 Ioaoe110 [討論]分享LISP計算多個不同形體的面積-VBA版本 Zuoiy_10 [討論]分享LISP計算多個不同形體的面積-VBA版本 2020-211 [討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao11 [討論]分享LISP計算多個不同形體的面積-VBA版本 Iyb_1510
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao10 [討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj.png [討論]分享LISP計算多個不同形體的面積-VBA版本 Ziao1510 [討論]分享LISP計算多個不同形體的面積-VBA版本 Oo-2-110 [討論]分享LISP計算多個不同形體的面積-VBA版本 Oooa_110
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6746
威望值 : 361
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

[討論]分享LISP計算多個不同形體的面積-VBA版本 Empty 回復: [討論]分享LISP計算多個不同形體的面積-VBA版本

發表 由 懶惰小蟲 2016-12-20, 11:56

感謝分享這麼好用的工具 竊喜

____________________________________________________________________________________
[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1810
[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad2010 [討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1810
[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1211 [討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1311 [討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1511
懶惰小蟲
懶惰小蟲
一般會員
一般會員

文章總數 : 18
年齡 : 43
來自 : 台中
職業 : 設計師
愛好 : 上網
個性 : 隨和
使用年資 : 6年
使用版本 : 2011
經驗值 : 5164
威望值 : 12
注冊日期 : 2010-12-12
男 處女座 雞

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe1-113[討論]分享LISP計算多個不同形體的面積-VBA版本 Ioaoe110[討論]分享LISP計算多個不同形體的面積-VBA版本 2020-310[討論]分享LISP計算多個不同形體的面積-VBA版本 Oiu15010[討論]分享LISP計算多個不同形體的面積-VBA版本 2020-211[討論]分享LISP計算多個不同形體的面積-VBA版本 Ia15010[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao10[討論]分享LISP計算多個不同形體的面積-VBA版本 Uos15010[討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj[討論]分享LISP計算多個不同形體的面積-VBA版本 Ziao1510
[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe15010[討論]分享LISP計算多個不同形體的面積-VBA版本 Oo-2-110[討論]分享LISP計算多個不同形體的面積-VBA版本 Zuoiy_10[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao11[討論]分享LISP計算多個不同形體的面積-VBA版本 Iyb_1510[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe1-112[討論]分享LISP計算多個不同形體的面積-VBA版本 Uos15011[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe2da10[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe2da11[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe10