Open een PDF-bestand van Solidworks via een macro

Macro
1

Hoi allemaal
Ik ben op zoek naar het openen van een PDF-bestand (met een bekende locatie) via een macro run van Solidworks
Ik heb wat onderzoek gedaan en niets overtuigend
Ik vind oplossingen in Excel, maar niet in solidworks

Denk je dat dit mogelijk is?

Welke bestelling moet ik kiezen?

Bedankt :wink:

2

Hallo
Aan de ene kant moet u de functie declareren om het standaard pdf-openingsprogramma te gebruiken:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Noem het dan zo:

ret = ShellExecute(0, "open", "nom de fichier", vbNullString, "répertoire de stockage", 1)

Met ret als een variabele van het type lang

2 likes
3

Geweldig bedankt voor je antwoord, het stelde me in staat om verder te gaan
Ik ben op de goede weg, denk ik
Adobe wordt geopend, maar het bestand wordt niet geopend
Ik ben weer aan het graven :grinning:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    
    
    
Sub main()

ret = ShellExecute(0, "open", "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe", vbNullString, "U:\PLAN\01 PDF\USMEC000121-C.PDF", 1)

End Sub
4

Hallo
In plaats van " C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe ", " USMEC000121-C.PDF "
En in plaats van " U:\PLAN\01 PDF\USMEC000121-C.PDF " gewoon "U:\PLAN\01 PDF\"

1 like
5

Ik was er ook bijna
Bedankt voor je hulp :pray: :+1:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    
    
    
Sub main()

ret = ShellExecute(0, "open", "USMEC000121-C.PDF", vbNullString, "U:\PLAN\01 PDF\", 1)

End Sub
1 like