Hi :-)

why in program 2, stl file can not Create but in program 1 stl file create well ? !!!!!!!!

I need to, first doing scale then doing save as stl format.

please help me :-)

'1111111111111111111111111111111111111111111111111111111111111111111

Dim swApp As Object

Dim doc As ModelDoc2

Dim swFeat As Feature

Dim strFileName As String

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set doc = swApp.ActiveDoc

strFileName = doc.GetTitle

longstatus = doc.SaveAs3("C:\temp\" & strFileName & "StlFormat.STL", 0, 0)

Set swFeat = doc.FeatureManager.InsertScale(0, False, 1.01, 1.02, 1.03)

End Sub

'2222222222222222222222222222222222222222222222222222222222222222222

Dim swApp As Object

Dim doc As ModelDoc2

Dim swFeat As Feature

Dim strFileName As String

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set doc = swApp.ActiveDoc

strFileName = doc.GetTitle

Set swFeat = doc.FeatureManager.InsertScale(0, False, 1.01, 1.02, 1.03)

longstatus = doc.SaveAs3("C:\temp\" & strFileName & "StlFormat.STL", 0, 0)

End Sub