Macro Program
Sub main ( )
Dim swapp As SldWorks.SldWorks
Set swapp = Application.SldWorks
Dim swmodel As ModelDoc2
Set swmodel = swapp.ActiveDoc
filename = swmodel.GetTitle
Msgbox filename
End Sub
A virtual Video and writtenTutorial Offering you a Comprehensive aid to machine tool and automotive design using- Catia V5 , GD & T, Solidworks and Ansys Software.
No comments:
Post a comment
Note: only a member of this blog may post a comment.