Witam
Przede wszystkim mam nadzieję, że jestem w odpowiednim dziale i przepraszam, jeśli tak nie jest, dopiero zaczynam na forum.
Moje pytanie jest takie, mam makro, które zapisuje moją część w formacie dxf w lokalizacji, którą określę w makrze.
Jak na razie jest dobrze, ale chciałbym dodać trochę więcej:
Chciałbym, aby na końcu wykonywania tego makra mieliśmy podgląd utworzonego dxf.
W taki sam sposób, jak w przypadku rejestracji jako; .dxf itp. W ten sposób mamy podgląd utworzonego pliku DXF.
Na wypadek, gdyby mogło się to przydać, skopiuję moje makro poniżej:
Być może można by to również wykorzystać do integracji podglądu z makrem.
Jeśli ktoś ma jakiś pomysł, jestem za tym. Bez względu na to, jak bardzo szukałam, nie mogę niczego znaleźć...
Sub main()
Dim swApp jako SldWorks.SldWorks
Dim swmodel As SldWorks.ModelDoc2
Dim stPath As String (Ciąg znaków
Dim lgFile tak długo
Dim sReference As String (Ciąg dim sReference jako)
Dim blretval jako Boolean
Błędy przyciemnienia tak długo
Ostrzeżenia o przyciemnieniu tak długo
Ustaw swApp = Application.SldWorks
"Sprawdzanie aktywnego dokumentu
Ustaw swmodel = swApp.ActiveDoc
jezeli nie swmodel to nic to nic
"Sprawdzamy, czy plik jest zarejestrowany
Jeśli swmodel. GetPathName = "" Następnie
MsgBox "Proszę zapisać swój dokument", vbInformation
Koniec
Inaczej
"Otrzymujemy lokalizację pliku
stPath = swmodel. GetPathName (Nazwa_ścieżki)
stPath = swmodel. GetPathName' pobiera nazwę wyświetlaną bieżącego dokumentu
sReference = Mid(stPath, InStrRev(stPath, "\") + 1) 'Pobiera wszystko po ostatnim \
sReference = Left(sReference, Len(sReference) - 7) 'Usunięto 6 znaków odpowiadających rozszerzeniu pliku i .
stPath = Left(stPath, InStrRev(stPath, "\")) 'Pobiera ścieżkę bez nazwy pliku
"Zwiększamy liczbę znaków do . rozszerzenia
'lgFile = InStrRev(stPath, ".", -1, vbTextCompare) - 1
"Odzyskujemy ścieżkę bez przedłużenia
' Jeśli lgFile > 0, to
' stPath = Left(stPath, lgFile)
' Koniec, jeśli
Zakończ jeżeli:
"Jeżeli dokument jest dokumentem
Jeśli swmodel. GetType = swDocPART Następnie
Tworzymy rozbudowane
blretval = swmodel. ExportFlatPatternView("C:\Użytkownicy\Etap-02\Pulpit\DXF\" & sReference & ". DXF", 1)
Powstał plik DXF
blretval = swmodel. SaveAs3(sReference & ". DXF", 0, 0)
"Jeśli dokument jest rysunkiem
ElseIf swmodel. GetType = swDocDRAWING Następnie
Powstał plik DXF
blretval = swmodel. SaveAs3(sReference & "_drw. DXF", 0, 0)
Zakończ jeżeli:
"Zapisujemy plik
blretval = swmodel. Zapisz3(0, 0, 0)
Zakończ jeżeli:
Koniec subwoofera