|
经典图书 用代码更改solidworks的Sheet模板。
- Private Sub ll1()
- Dim swApp As SldWorks.SldWorks, swModel As ModelDoc2
- Set swApp = Application.SldWorks
- Set swModel = swApp.ActiveDoc
- Dim swDraw As DrawingDoc
- Set swDraw = swModel
- Dim swSheet As Sheet
- Set swSheet = swDraw.GetCurrentSheet
- Dim tmpPlateName
- tmpPlateName = "e:drawingjb4712part1.slddrt"
- Set swSheet = swDraw.GetCurrentSheet
- 'Stop
- swModel.SetupSheet4 swSheet.GetName, 12, 12, 1#, 1#, False, tmpPlateName, 0.42, 0.297, ""
- End Sub
复制代码
- Private Sub ll2()
- Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
- Set SwApp = Application.SldWorks
- Set SwModel = SwApp.ActiveDoc
- Dim SwFeat As Feature, SwSubFeat As Feature
- Set SwFeat = SwModel.FirstFeature
- Do While Not SwFeat Is Nothing
- Debug.Print SwFeat.Name, SwFeat.GetTypeName
- Set SwSubFeat = SwFeat.GetFirstSubFeature
- Do While Not SwSubFeat Is Nothing
- Debug.Print " ****** ", SwSubFeat.Name, SwSubFeat.GetTypeName
- If SwSubFeat.GetTypeName = "GeneralTableFeature" Then
- Debug.Print " ****** ", SwSubFeat.Name, SwSubFeat.GetTypeName
- SwSubFeat.Select True
- End If
- Set SwSubFeat = SwSubFeat.GetNextSubFeature
- Loop
- Set SwFeat = SwFeat.GetNextFeature
- Loop
- SwModel.EditDelete
- Dim SwDraw As DrawingDoc
- Set SwDraw = SwModel
- End Sub
复制代码
Macro1.zip
(9.55 KB, 下载次数: 22)
|
|