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作者: gao264 时间: 2005-6-2 12:12
这个应该不难的吧,我原来做SE二次开发的,现在没有开发环境了!你可以多看看帮助,里面的例子还比较多!作者: sdu-daniao 时间: 2005-6-3 22:14
楼上的能帮忙给做做吗?
不胜感激啊!
我做了很长时间了啊!作者: gao264 时间: 2005-6-6 10:17
不是我不帮你啊,现在没有这个开发环境了啦,不过我知道SE的bug很多!作者: lr2510732 时间: 2005-6-15 21:48
问题解决了吗?
我能解决你说的问题,不过呢我需要有偿解决作者: gao264 时间: 2005-6-17 11:16
真不厚道!!等我从瑞士出差回来给你弄,最近一直在忙这个