更改Sheet的模板

dracolong

用代码更改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, 下载次数: 20)

2015-6-11 16:38 上传

点击文件名下载附件
下载积分: 金币 -1

DFFDSGG114485

言之有理。赞一个

DFFDSGG114485

言之有理。赞一个

DFFDSGG114485

言之有理。赞一个

schjck

   经典案例图书

好东西，努力学习学习！

wwwerzhou

楼主辛苦了！

jiangzhibao606

   经典案例图书

SW机械工程师网，找到组织了！

liyuyin007

活到老学到老！

liyuyin007

好好学习，天天向上！