Solidworks export lower-case extension?
Solidworks export lower-case extension?
(OP)
We have users who send data to our engineers who use other software packages, and they have trouble with the all-caps, more-than-three-letter extensions that Solidworks uses, especially for STEP export. Is there a way to change this default so that SW always uses 3-letter, lower-case extensions?






RE: Solidworks export lower-case extension?
Regards,
Scott Baugh, CSWP
http://www.3dvisiontech.com
http://www.scottjbaugh.com
If you are in the SW Forum Check out the FAQ section
To make the Best of Eng-Tips Forums FAQ731-376
RE: Solidworks export lower-case extension?
"Whenever we (Eng) receive an export file from (designers) we have to rename as follows before we can use it
1.change .STEP to .stp or .iges to .igs if necessary
2.remove all upper case letters in the name ( suffix or prefix)
3.remove all spaces in the name ( suffix or prefix)"
Perhaps he is mistaken?
RE: Solidworks export lower-case extension?
RE: Solidworks export lower-case extension?
That goes for "IGS" or "igs" files too.
Regards,
Scott Baugh, CSWP
http://www.3dvisiontech.com
http://www.scottjbaugh.com
If you are in the SW Forum Check out the FAQ section
To make the Best of Eng-Tips Forums FAQ731-376
RE: Solidworks export lower-case extension?
Freudian slip ? Arent Step files "sliced" along the Z Axis ?
RE: Solidworks export lower-case extension?
Option Explicit
Dim swApp, Doc As Object
Const swDocPART = 1
Const swMbWarning = 1
Const swMbOk = 2
Dim BoolStatus As Boolean
Dim LongStatus As Long
Dim e As Long
Dim w As Long
Dim Msg As String
Dim DocName As String
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Doc = swApp.ActiveDoc
If ((Doc Is Nothing) Or (Not (Doc.GetType Eqv swDocPART))) Then
Msg = "A part document must be active to use this command!"
LongStatus = swApp.SendMsgToUser2(Msg, swMbWarning, swMbOk)
End
Else
DocName = LCase(Doc.GetPathName)
DocName = Left(DocName, Len(DocName) - 7) & ".step"
BoolStatus = Doc.SaveAs4(DocName, 0, 0, e, w)
If BoolStatus = False Then
Msg = "Failed to save IGS document!"
LongStatus = swApp.SendMsgToUser2(Msg, swMbWarning, swMbOk)
Else
Msg = "Saved part as " & DocName
LongStatus = swApp.SendMsgToUser2(Msg, swMbWarning, swMbOk)
End If
End If
Set Doc = Nothing
Set swApp = Nothing
End Sub
RE: Solidworks export lower-case extension?