Re: How to import a Cam Document by using a Macro

Here's some code (script NOT macro) that seems to work:

Sub Main

  CAMdir$ = Application.GetConfigParamString("directories", " CAMDir", " C:\PADS Projects\CAM\default")

  CAMfile$ = GetFilePath(,"CAM", CAMdir, "Pick a .CAM File to Import",)

  If CAMfile = "" Then End

  ASCfile$ = Mid(CAMfile,1,Len(CAMfile)-3) & "ASC"

  ASCheader$ = "!PADS-POWERPCB-V9.0-BASIC! DESIGN DATABASE ASCII FILE 1.0"

  MISCheader$ = "*MISC*      MISCELLANEOUS PARAMETERS"

  Open ASCfile For Output As #1

       Print #1, ASCheader; vbCrLf

       Print #1, MISCheader; vbCrLf

  Open CAMfile For Input As #2

       While Not EOF (2)

           Line Input #2, L$

           Print #1, L

       Wend

  Close #2

  Print #1, "*END*"

  Close #1

  ActiveDocument.ImportNetList(ASCfile)

  Kill ASCfile

End Sub