VB对solidworks工程图二次开发的问题 急急!! 50
PrivateSubCommand1_Click()DimswAppAsObjectDimpartAsObject'打开文件SetswApp=CreateObject("...
Private Sub Command1_Click()
Dim swApp As Object
Dim part As Object
'打开文件
Set swApp = CreateObject("sldworks.application")
swApp.UserControl = True
Set part = swApp.NewDocument(App.Path + "\s40.SLDDRW", 0, 0, 0)
'修改尺寸
part.Dimensions("RD1@工程视图1@s40.SLDDRW").SystemValue = Val(Text1.Text) / 1000 (这块应该不对但是不知道怎么修改)
part.EditRebuild
End Sub
想改变工程图里面的主视图的一个尺寸,但是不知道怎么弄
希望有人能帮小弟一把。 展开
Dim swApp As Object
Dim part As Object
'打开文件
Set swApp = CreateObject("sldworks.application")
swApp.UserControl = True
Set part = swApp.NewDocument(App.Path + "\s40.SLDDRW", 0, 0, 0)
'修改尺寸
part.Dimensions("RD1@工程视图1@s40.SLDDRW").SystemValue = Val(Text1.Text) / 1000 (这块应该不对但是不知道怎么修改)
part.EditRebuild
End Sub
想改变工程图里面的主视图的一个尺寸,但是不知道怎么弄
希望有人能帮小弟一把。 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询