【發帖精華】計算多個不同形體的面積

主題回顧 :

因工作需要..請問要如何快速取得多個不同形狀的面積(重量)並轉成excel檔..
我知道可以寫程式..但我不會..要學也沒這麼快...請問有無可以直接在cad計算就可以的??
感恩...

---

恭喜您的主題獲選為精華文章！ < 積分+1、威望+3 >

[公告]關於論壇的文章價值

又可以學到新東西了

蘋果爸對ACAD真是深入..謝謝蘋果爸的分享
這就是所謂的土法煉鋼.與LISP或VBA的不同
使用時間長不堪長期多次使用..浪費時間
阿貴的LISP方法非所有人適用 有需求時還是學學LISP或VBA
"不管黑貓還是白貓,抓得到老鼠才是好貓"

小青蛙 寫到:蘋果爸對ACAD真是深入..謝謝蘋果爸的分享
這就是所謂的土法煉鋼.與LISP或VBA的不同
使用時間長不堪長期多次使用..浪費時間
阿貴的LISP方法非所有人適用 有需求時還是學學LISP或VBA
 "不管黑貓還是白貓,抓得到老鼠才是好貓"

非常認同!!

剛好論壇有成員有LISP分享~
[分享]一個能顯示面積及長度的LISP程式
https://www.autocad-tw.com/t4477-topic

剛好論壇有成員有LISP分享~
[分享]一個能顯示面積及長度的LISP程式
http://autocad.bestoforum.net/forum-f7/topic-t4477.htm

感謝回復 但小青蛙未達使用全縣無法LISP分享
貼上自己的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

小青蛙 寫到:

剛好論壇有成員有LISP分享~
[分享]一個能顯示面積及長度的LISP程式
http://autocad.bestoforum.net/forum-f7/topic-t4477.htm

感謝回復 但小青蛙未達使用全縣無法LISP分享
貼上自己的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

但是還沒有升等...抱歉!
現已經將您升等了~

也謝謝您的程式分享!!

很需要學習這個功能，趕緊回覆來看看

好用的東西~當然要來看看!

好像滿有用的
趕快來看看!

我想知道快讓我看一下

想要了解適合種方式可以做到 謝謝

我也想了解一下怎麼操作的

這對於我工作上也有幫助!!

雖然比較不常用到，

謝謝蘋果爸啦。

是我想像中的那樣嗎？ ？

我也常常遇到這個問題~看有什麼方法可以解決

工作上常需要計算,趕快來學學

有來這個方法就不用算老半天了

我也要來看看是怎麼弄的
謝謝分享

觀摩觀摩
學習看看有何解方法
多學一點

要怎麼用ㄚ

不客氣啦~
我很樂意分享我的專業知識!

natural0528 寫到:不客氣啦~
我很樂意分享我的專業知識!

請修正你的回覆!
為何要複製蘋果爸說過的話?

總版規
3.彼此間的尊重是互動最基本要素，回復及發表多用：請、謝謝、麻煩您...等用語，禁止回應與問題無關用語。

請問你性別為何?
http://autocad.bestoforum.net/forum-f3/topic-t3666.htm#25747

登入帳號:natural0528
mail:natural0528@yahoo.com
職業:製圖
興趣:上網
性別:女
使用autocad時間:3年
使用版本:2008
如何得知autocad顧問論壇:yahoo家族

請補填個人資料
愛好:
使用年資:
使用版本:

轉成excel檔我還是第一次聽到..
是我這cad新手要學習的....謝~~

好好奇喔~
以前都是用手一個個來輸入~
希望可以看的董~

很好奇該怎麼去設定...實用的功能之一

是萃取嗎?我猜的