Wednesday, April 27, 2011

Is this a schematic file?

Checking if the active file is a schematic document.

Sub IsthisaSCHFile

Set CurrentFile = SchServer.GetCurrentSchDocument
If CurrentFile is Nothing Then
  ShowMessage ("This is not a SCH file!")
Else
  ShowMessage ("This is a SCH file!")
End If

End Sub

http://www.tdpcb.com/