我需要從 CATIA 中提取 CATpart 的產品樹。我想使用宏來做到這一點，并且我有適用于 CATproducts 的代碼：
Sub CATMain()
Dim productDocument1
Set productDocument1 = CATIA.ActiveDocument
'Input box to select txt or xls
Dim exportFormat
exportFormat = "txt"
'Input box to enter name of file
Dim partName
partName = Inputbox ("Please enter the file name.")
'Input box to enter file location
Dim oLocation
oLocation = "C:\Users\xvreeswijk\Documents\Programs\Input\"
productDocument1.ExportData oLocation & partName & "." & _
exportFormat,"txt"
End Sub
但是當我想將它用于 CATpart 時，我收到錯誤：ExportData 的方法失敗。這可以使用vba宏還是另一種更簡單的方法？
uj5u.com熱心網友回復：
這是一個獲取零件的物體和混合物體名稱的示例（僅頂級條目）
Sub CATMain()
Dim oPartDocument as PartDocument
Dim sListofBodies as String
Dim oBody as Body
dim oHybridBody as Hybridbody
Set oPartDocument = CATIA.ActiveDocument
Set oPart = oPartDocument.Part
for each oBody in oPart.Bodies
if Not oBody.InBooleanOperation then
sListofBodies = sListofBodies & oBody.Name & Chr(10)
end if
next
MsgBox sListofBodies
sListofBodies = ""
for each oHybridBody in oPart.HybridBodies
sListofBodies = sListofBodies & oHybridBody.Name & Chr(10)
next
MsgBox sListofBodies
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/452338.html
下一篇：使用標題移動文本