【發帖精華】計算多個不同形體的面積
+103
祥
valawing
nicole66
GRACE0724
ycd1280
flowers flora
shfa1
pmpmpp
chiangbush
x1ben
uyun
長陳
wang888
titan750114
ysl yang
jchen
sandsand
euler0312
scott6802
buteo
tamp
megan0616
liuif1018
00712595
toyg36
su4jie
andyhang88
alex-cc
Andy.Lin
oppoppo
DaVinci520
hshjk
月泉白牙
wtm1713
qaz6605
cyc159
sammi0322
donglee
lacos0918
mars
yourschen
it930
peaceloving
natural0528
jaco4942
gash88707
glassshoes2003
aaaaaa1111
sea0702
andy
b93130089
sunjiaher
adolescent77
MORGAN
tautau95
W-E-I
mmxx
min0712
小青蛙
x059713
hung
lsh21789
ares
bruce79
squirrel
ak057
register88
小蔓
smallworm16
jarry0119
kobearch
陳振發
sai
htsungying
時間空
f9004158
lee69125
ooxx0066
vicki1021
leoneriol
Balanca
barkyan
135ooooo
冰小Q
DARDAR
aaronekin
gill0923
shuyan
andrewng
以西杰
jjch001
rakung
阿里山真美
ny731116
yazu
ji2342
judyyai
HEMOS
adslwang
阿希
ching4211
Tiger&蘋果爸
tarcy14
107 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 2D討論 :: 已解決主題精華區
第3頁(共6頁)
【發帖精華】計算多個不同形體的面積
主題回顧 :
因工作需要..請問要如何快速取得多個不同形狀的面積(重量)並轉成excel檔..
我知道可以寫程式..但我不會..要學也沒這麼快...請問有無可以直接在cad計算就可以的??
感恩...
因工作需要..請問要如何快速取得多個不同形狀的面積(重量)並轉成excel檔..
我知道可以寫程式..但我不會..要學也沒這麼快...請問有無可以直接在cad計算就可以的??
感恩...
恭喜您的主題獲選為精華文章! < 積分+1、威望+3 >
[公告]關於論壇的文章價值
Tiger&蘋果爸 在 2010-03-02, 14:05 作了第 4 次修改 (原因 : 精華文章)
tarcy14- 初級會員
- 文章總數 : 42
年齡 : 42
來自 : 台南縣
職業 : 鋼橋工程助理
愛好 : 音樂
個性 : 溫和-善良
使用年資 : 3年(不常用~故只懂皮毛)
使用版本 : 2008
積分 : 1
經驗值 : 5729
威望值 : 7
發帖精華 : 1
注冊日期 : 2009-05-26
回復: 【發帖精華】計算多個不同形體的面積
又可以學到新東西了
min0712- 一般會員
- 文章總數 : 10
年齡 : 46
來自 : 台北
職業 : 工
愛好 : 攝影
個性 : 好
經驗值 : 5550
威望值 : 0
注冊日期 : 2009-08-06
回復: 【發帖精華】計算多個不同形體的面積
蘋果爸對ACAD真是深入..謝謝蘋果爸的分享
這就是所謂的土法煉鋼.與LISP或VBA的不同
使用時間長不堪長期多次使用..浪費時間
阿貴的LISP方法非所有人適用 有需求時還是學學LISP或VBA
"不管黑貓還是白貓,抓得到老鼠才是好貓"
這就是所謂的土法煉鋼.與LISP或VBA的不同
使用時間長不堪長期多次使用..浪費時間
阿貴的LISP方法非所有人適用 有需求時還是學學LISP或VBA
"不管黑貓還是白貓,抓得到老鼠才是好貓"
小青蛙- 初級會員
- 文章總數 : 23
年齡 : 56
來自 : 高雄市
職業 : 待業中
愛好 : 上山下海
個性 : 隨性
使用年資 : 斷斷續續
使用版本 : 2012
積分 : 2
經驗值 : 5545
威望值 : 12
注冊日期 : 2009-10-15
回復: 【發帖精華】計算多個不同形體的面積
非常認同!!小青蛙 寫到:蘋果爸對ACAD真是深入..謝謝蘋果爸的分享
這就是所謂的土法煉鋼.與LISP或VBA的不同
使用時間長不堪長期多次使用..浪費時間
阿貴的LISP方法非所有人適用 有需求時還是學學LISP或VBA
"不管黑貓還是白貓,抓得到老鼠才是好貓"
剛好論壇有成員有LISP分享~
[分享]一個能顯示面積及長度的LISP程式
https://www.autocad-tw.com/t4477-topic
Tiger&蘋果爸 在 2022-05-17, 17:59 作了第 1 次修改
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: 【發帖精華】計算多個不同形體的面積
感謝回復 但小青蛙未達使用全縣無法LISP分享剛好論壇有成員有LISP分享~
[分享]一個能顯示面積及長度的LISP程式
http://autocad.bestoforum.net/forum-f7/topic-t4477.htm
貼上自己的VBA碼參考參考 "它是隻雜種貓,但抓得到老鼠"
- 代碼:
Sub kg_prog() '計算重量
Dim returnObj As AcadObject
Dim basePnt As Variant
Dim retarea As Variant
Dim thin As Double
Dim txthi As Double
ThisDrawing.Utility.GetEntity returnObj, basePnt, "選擇一個實體或封閉多重線"
If returnObj.EntityName = "AcDb3dSolid" Then
kg = Int(returnObj.Volume * 7.85 / 10 ^ 5) / 10
MsgBox "kg= " & kg
Exit Sub
ElseIf returnObj.EntityName = "AcDbPolyline" _
Or returnObj.EntityName = "AcDbCircle" _
Or returnObj.EntityName = "AcDbEllipse" _
Or returnObj.EntityName = "AcDbRegion" _
Or returnObj.EntityName = "AcDb2dPolyline" Then
retarea = returnObj.Area
thin = ThisDrawing.GetVariable("USERR1")
If thin = 0 Then MsgBox "未輸入厚度"
kg = Int(thin * retarea * 7.85 / 10 ^ 5) / 10
kgt = kg & " Kg"
txthi = ThisDrawing.GetVariable("USERR2")
If txthi = 0 Then txthi = 80
txtp1 = ThisDrawing.Utility.GetPoint(, "選擇文字起點")
Set txt = ThisDrawing.ModelSpace.AddText(kgt, txtp1, txthi)
' MsgBox "kg= " & kg
Else
MsgBox "未選擇多重線"
End If
End Sub
小青蛙- 初級會員
- 文章總數 : 23
年齡 : 56
來自 : 高雄市
職業 : 待業中
愛好 : 上山下海
個性 : 隨性
使用年資 : 斷斷續續
使用版本 : 2012
積分 : 2
經驗值 : 5545
威望值 : 12
注冊日期 : 2009-10-15
回復: 【發帖精華】計算多個不同形體的面積
我已經有幫您加積分小青蛙 寫到:感謝回復 但小青蛙未達使用全縣無法LISP分享剛好論壇有成員有LISP分享~
[分享]一個能顯示面積及長度的LISP程式
http://autocad.bestoforum.net/forum-f7/topic-t4477.htm
貼上自己的VBA碼參考參考 "它是隻雜種貓,但抓得到老鼠"
- 代碼:
Sub kg_prog() '計算重量
Dim returnObj As AcadObject
Dim basePnt As Variant
Dim retarea As Variant
Dim thin As Double
Dim txthi As Double
ThisDrawing.Utility.GetEntity returnObj, basePnt, "選擇一個實體或封閉多重線"
If returnObj.EntityName = "AcDb3dSolid" Then
kg = Int(returnObj.Volume * 7.85 / 10 ^ 5) / 10
MsgBox "kg= " & kg
Exit Sub
ElseIf returnObj.EntityName = "AcDbPolyline" _
Or returnObj.EntityName = "AcDbCircle" _
Or returnObj.EntityName = "AcDbEllipse" _
Or returnObj.EntityName = "AcDbRegion" _
Or returnObj.EntityName = "AcDb2dPolyline" Then
retarea = returnObj.Area
thin = ThisDrawing.GetVariable("USERR1")
If thin = 0 Then MsgBox "未輸入厚度"
kg = Int(thin * retarea * 7.85 / 10 ^ 5) / 10
kgt = kg & " Kg"
txthi = ThisDrawing.GetVariable("USERR2")
If txthi = 0 Then txthi = 80
txtp1 = ThisDrawing.Utility.GetPoint(, "選擇文字起點")
Set txt = ThisDrawing.ModelSpace.AddText(kgt, txtp1, txthi)
' MsgBox "kg= " & kg
Else
MsgBox "未選擇多重線"
End If
End Sub
https://www.autocad-tw.com/t4233-topic#29788
但是還沒有升等...抱歉!
現已經將您升等了~
也謝謝您的程式分享!!
Tiger&蘋果爸 在 2022-05-17, 18:01 作了第 1 次修改
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: 【發帖精華】計算多個不同形體的面積
很需要學習這個功能,趕緊回覆來看看
mmxx- 一般會員
- 文章總數 : 26
年齡 : 44
來自 : 台中市
職業 : 工程師
愛好 : 棒球
個性 : 開朗
使用年資 : 5年
使用版本 : 2008
經驗值 : 5583
威望值 : 0
注冊日期 : 2009-09-23
回復: 【發帖精華】計算多個不同形體的面積
好用的東西~當然要來看看!
W-E-I- 初級會員
- 文章總數 : 64
年齡 : 43
來自 : 台北
職業 : 工程
愛好 : autocad
個性 : 旅遊
使用年資 : 8年左右
使用版本 : 2011
積分 : 1
經驗值 : 5941
威望值 : 0
注冊日期 : 2008-09-26
回復: 【發帖精華】計算多個不同形體的面積
好像滿有用的
趕快來看看!
趕快來看看!
tautau95- 一般會員
- 文章總數 : 10
年齡 : 40
來自 : 台灣
職業 : 學生
個性 : 安靜
經驗值 : 5675
威望值 : 0
注冊日期 : 2009-03-31
回復: 【發帖精華】計算多個不同形體的面積
我想知道快讓我看一下
MORGAN- 一般會員
- 文章總數 : 13
年齡 : 48
來自 : 台北縣新店市
職業 : 工程師
愛好 : 運動
個性 : 固執
使用年資 : 半年
使用版本 : 2008
經驗值 : 5532
威望值 : 0
注冊日期 : 2009-09-21
回復: 【發帖精華】計算多個不同形體的面積
想要了解適合種方式可以做到 謝謝
adolescent77- 初級會員
- 文章總數 : 63
年齡 : 44
來自 : 高雄市
職業 : 工程師
愛好 : 電影
個性 : 孤僻
使用年資 : 白天
使用版本 : 2010
積分 : 1
經驗值 : 5662
威望值 : 17
注冊日期 : 2009-11-01
回復: 【發帖精華】計算多個不同形體的面積
我也想了解一下怎麼操作的
sunjiaher- 一般會員
- 文章總數 : 18
年齡 : 46
來自 : tapei
職業 : 室內設計
愛好 : 看電影+野外互動
個性 : 活潑
使用年資 : 3年
使用版本 : 2010
經驗值 : 5784
威望值 : 0
注冊日期 : 2009-01-17
回復: 【發帖精華】計算多個不同形體的面積
這對於我工作上也有幫助!!
雖然比較不常用到,
謝謝蘋果爸啦。
雖然比較不常用到,
謝謝蘋果爸啦。
b93130089- 初級會員
- 文章總數 : 29
年齡 : 38
來自 : 台北
職業 : 新手製圖員
愛好 : 電腦相關
個性 : 開朗
使用年資 : 3個月
使用版本 : 2004
積分 : 1
經驗值 : 5533
威望值 : 7
注冊日期 : 2009-11-11
回復: 【發帖精華】計算多個不同形體的面積
是我想像中的那樣嗎? ?
andy- 初級會員
- 文章總數 : 27
年齡 : 46
來自 : 新竹
職業 : 光電
愛好 : 看電影、打電動、聽音樂
個性 : 開朗、正直
使用年資 : 7
使用版本 : 2010
積分 : 3
經驗值 : 5625
威望值 : 0
注冊日期 : 2009-06-30
回復: 【發帖精華】計算多個不同形體的面積
我也常常遇到這個問題~看有什麼方法可以解決
sea0702- 初級會員
- 文章總數 : 27
年齡 : 42
來自 : 基隆
職業 : 工程師
愛好 : 電影
個性 : 開朗
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 5760
威望值 : 21
注冊日期 : 2009-04-04
工作上常需要計算,趕快來學學
工作上常需要計算,趕快來學學
aaaaaa1111- 一般會員
- 文章總數 : 142
年齡 : 48
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 5826
威望值 : 0
注冊日期 : 2009-11-30
回復: 【發帖精華】計算多個不同形體的面積
有來這個方法就不用算老半天了
min0712- 一般會員
- 文章總數 : 10
年齡 : 46
來自 : 台北
職業 : 工
愛好 : 攝影
個性 : 好
經驗值 : 5550
威望值 : 0
注冊日期 : 2009-08-06
回復: 【發帖精華】計算多個不同形體的面積
我也要來看看是怎麼弄的
謝謝分享
謝謝分享
glassshoes2003- 初級會員
- 文章總數 : 151
年齡 : 39
來自 : 彰化縣
職業 : 自由業
愛好 : 電玩 電影 電視
個性 : 隨和
使用年資 : 0.5年
使用版本 : 2008
積分 : 3
經驗值 : 5885
威望值 : 12
注冊日期 : 2009-11-17
回復: 【發帖精華】計算多個不同形體的面積
觀摩觀摩
學習看看有何解方法
多學一點
學習看看有何解方法
多學一點
gash88707- 一般會員
- 文章總數 : 7
年齡 : 34
來自 : 嘉義
職業 : 求學
愛好 : 休閒
個性 : 溫和
使用年資 : 2年
使用版本 : 2008
經驗值 : 5429
威望值 : 0
注冊日期 : 2009-12-10
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 31
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5706
威望值 : 14
注冊日期 : 2009-12-01
回復: 【發帖精華】計算多個不同形體的面積
不客氣啦~
我很樂意分享我的專業知識!
我很樂意分享我的專業知識!
natural0528- 一般會員
- 文章總數 : 20
年齡 : 53
來自 : 彰化
職業 : 製圖
個性 : 良好
經驗值 : 5623
威望值 : 0
注冊日期 : 2009-05-28
回復: 【發帖精華】計算多個不同形體的面積
natural0528 寫到:不客氣啦~
我很樂意分享我的專業知識!
請修正你的回覆!
為何要複製蘋果爸說過的話?
總版規
3.彼此間的尊重是互動最基本要素,回復及發表多用:請、謝謝、麻煩您...等用語,禁止回應與問題無關用語。
請問你性別為何?
http://autocad.bestoforum.net/forum-f3/topic-t3666.htm#25747
登入帳號:natural0528
mail:natural0528@yahoo.com
職業:製圖
興趣:上網
性別:女
使用autocad時間:3年
使用版本:2008
如何得知autocad顧問論壇:yahoo家族
請補填個人資料
愛好:
使用年資:
使用版本:
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30402
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復: 【發帖精華】計算多個不同形體的面積
轉成excel檔我還是第一次聽到..
是我這cad新手要學習的....謝~~
是我這cad新手要學習的....謝~~
peaceloving- 一般會員
- 文章總數 : 17
年齡 : 43
來自 : 桃園
職業 : 製圖
愛好 : 旅遊
個性 : 開朗
使用年資 : 14:06
使用版本 : 2009
經驗值 : 5466
威望值 : 0
注冊日期 : 2009-12-01
回復: 【發帖精華】計算多個不同形體的面積
好好奇喔~
以前都是用手一個個來輸入~
希望可以看的董~
以前都是用手一個個來輸入~
希望可以看的董~
it930- 初級會員
- 文章總數 : 51
年齡 : 40
來自 : 高雄
職業 : 設計
愛好 : ~看書~~運動~上網~
個性 : 隨和
使用年資 : 5年~
使用版本 : 2014
積分 : 2
經驗值 : 5722
威望值 : 9
注冊日期 : 2009-08-12
回復: 【發帖精華】計算多個不同形體的面積
很好奇該怎麼去設定...實用的功能之一
yourschen- 初級會員
- 文章總數 : 16
年齡 : 43
來自 : 高雄
職業 : 機械工程
愛好 : 電腦
個性 : 溫和
使用年資 : 半年
使用版本 : 2008
積分 : 3
經驗值 : 5239
威望值 : 6
注冊日期 : 2010-08-04
回復: 【發帖精華】計算多個不同形體的面積
是萃取嗎?我猜的
____________________________________________________________________________________
火足以改變破壞原生結構之生存意志 ~ 燎原餘威蔓延殆盡之殘存餘念.......我是Mars
mars- 高級會員
- 文章總數 : 873
年齡 : 51
來自 : 臺北
職業 : 建築施工
愛好 : 攝影
個性 : 冒險~愛嚐鮮
使用年資 : 10↑
使用版本 : 2020
積分 : 16
經驗值 : 6960
威望值 : 245
發帖精華 : 1
注冊日期 : 2008-11-21
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 2D討論 :: 已解決主題精華區
第3頁(共6頁)
這個論壇的權限:
您 無法 在這個版面回復文章