AnsweredAssumed Answered

Need to make a error.

Question asked by None None on Feb 12, 2016
Latest reply on Feb 15, 2016 by None None

 

 

If one of these \ / " * ? < > | characters being used in sDescription  then.

 

Call swApp.SendMsgToUser("You cannot use these characters in the description: \ / " * ? < > |.")

How can i make this work?

 

 

 

--------------------------------------------------------------------------------

Sub CreatePNG()

Dim FileName        As String

Dim sDescription    As String

Dim sRevision       As String

 

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

 

sDescription = Part.CustomInfo("description")

sRevision = Part.CustomInfo("revision")

 

FileName = Part.GetPathName

 

If (FileName = "") Then

    Call swApp.SendMsgToUser("No file saved. Please save part or assembly file prior to running macro.")

Else

    If (sDescription = "") Or (sRevision = "") Then

        Call swApp.SendMsgToUser("Please fill in the description/revision.")

    Else

        FileName = Left(FileName, Len(FileName) - 7) & sRevision & " - " & sDescription

   

        Me.LabelStatus.Caption = "Creating .PNG File"

        FileName = FileName & ".png"

------------------------------------------------------------------------------------------------------------------------------------

 

 

 

 

 


Outcomes