顧問教學
加入贊助
聯絡我們![[討論]分享LISP計算多個不同形體的面積-VBA版本 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[討論]分享LISP計算多個不同形體的面積-VBA版本
4 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Empty](https://2img.net/i/empty.gif)
[討論]分享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 -> 載入 -> 啟用巨集 -> 巨集 -> 執行.
連續點擊面積的地方, 結果會加總所有面積. 我的電腦環境 : windows 7 64 bits, Autocad 2014 64bits, VBA 7.1
我的是Autocad 2014 中文版 : 管理 -> 執行 VBA 程式 -> VBA 管理員 -> 載入 -> area_calculation.dvb -> 載入 -> 啟用巨集 -> 巨集 -> 執行.
- 附件
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Attachment](https://2img.net/i/fa/attachment.png)
- area_calculation.zip 您無權下載這里的附件。(25 Kb) 下載 24 次
- area_calculation_20161216.zip 您無權下載這里的附件。(10 Kb) 下載 16 次
- area_calculation_20161220.zip 您無權下載這里的附件。(10 Kb) 下載 17 次
- area_length_calculation_20161220.zip 您無權下載這里的附件。(21 Kb) 下載 18 次
shackle_2005 在 2016-12-20, 17:02 作了第 4 次修改
____________________________________________________________________________________
![[討論]分享LISP計算多個不同形體的面積-VBA版本 BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Oooa_110](https://i.servimg.com/u/f67/12/31/59/66/oooa_110.png)
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 52
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6535
威望值 : 355
注冊日期 : 2010-09-20
回復： [討論]分享LISP計算多個不同形體的面積-VBA版本
由 Tiger&蘋果爸 2016-12-14, 10:45
謝謝前輩熱心分享VBA程式～shackle_2005 寫到:我也做了一個, 大家參考一下
連續點擊面積的地方, 結果會加總所有面積. 我的電腦環境 : windows 7 64 bits, Autocad 2014 64bits, VBA 7.1
____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Sesa2011](https://i.servimg.com/u/f67/12/31/59/66/sesa2011.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Youtub11](https://i.servimg.com/u/f67/12/31/59/66/youtub11.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Oiea2011](https://i.servimg.com/u/f67/12/31/59/66/oiea2011.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Oe20011](https://i.servimg.com/u/f67/12/31/59/66/oe20011.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Fbi20011](https://i.servimg.com/u/f67/12/31/59/66/fbi20011.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Line2011](https://i.servimg.com/u/f67/12/31/59/66/line2011.png)
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21108
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88616
威望值 : 16958
注冊日期 : 2008-04-23
-
回復： [討論]分享LISP計算多個不同形體的面積-VBA版本
由 crihy 2016-12-14, 19:29
感謝shackle_2005大大提供分享，請問可否提供操作指令及操作方式?
____________________________________________________________________________________
crihy- 初級會員
- 文章總數 : 178
年齡 : 47
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 6984
威望值 : 432
注冊日期 : 2008-05-13
回復： [討論]分享LISP計算多個不同形體的面積-VBA版本
由 shackle_2005 2016-12-14, 21:48
我的是Autocad 2014 中文版 : 管理 -> 執行 VBA 程式 -> VBA 管理員 -> 載入 -> area_calculation.dvb -> 載入 -> 啟用巨集 -> 巨集 -> 執行.
____________________________________________________________________________________
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 52
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6535
威望值 : 355
注冊日期 : 2010-09-20
回復： [討論]分享LISP計算多個不同形體的面積-VBA版本
由 懶惰小蟲 2016-12-20, 11:56
感謝分享這麼好用的工具 
____________________________________________________________________________________
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1810](https://i.servimg.com/u/f39/12/31/59/66/acad1810.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad2010](https://i.servimg.com/u/f57/12/31/59/66/acad2010.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1810](https://i.servimg.com/u/f38/12/31/59/66/acad1810.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1211](https://i.servimg.com/u/f41/12/31/59/66/acad1211.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1311](https://i.servimg.com/u/f75/12/31/59/66/acad1311.png)
![[討論]分享LISP計算多個不同形體的面積-VBA版本 Acad1511](https://i.servimg.com/u/f16/12/31/59/66/acad1511.png)
懶惰小蟲- 一般會員
- 文章總數 : 18
年齡 : 42
來自 : 台中
職業 : 設計師
愛好 : 上網
個性 : 隨和
使用年資 : 6年
使用版本 : 2011
經驗值 : 4959
威望值 : 12
注冊日期 : 2010-12-12
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章