Private Sub Form_click()
Dim objApp As Object
Dim objFeatures As Object
Dim objFeature As Object
'连接Solidedge与VB
Set objApp = GetObject(, "solidedge.application")
Set objFeatures = objApp.ActiveDocument.Parts
Open "d:\bidapeng.txt" For Output As #12
For Each objFeature In objFeatures
Debug.Print objFeature.Name
Write #12, objFeature.Name
Next
Close #12
End Sub作者: peanuts 时间: 2005-6-2 08:46
faint作者: kiger 时间: 2005-6-3 11:34
您可能要用到下面的语句
For Each objOccurrence In ActiveDocument.Occurrences
Write #12, objOccurrence. OccurrenceFileName
next作者: bbs 时间: 2005-7-8 09:19
kiger