SolidWorks >> Makra >> Otwieranie folderu w której znajduje się część
Odpowiedz
Autor Wypowiedź
2017-03-16, 12:25
Pomógł 0 raz(y).
 Dzień dobry,

czy ktoś spotkał się z makrem które otworzy nam folder w której znajduję się część która nas interesuje?
 
2017-03-16, 13:18
Pomógł 18 raz(y).
 Ja nie bardzo wiem o co chodzi, może opisz krok po kroku jak to ma w teorii działać?
 
.
2017-03-16, 15:43
Pomógł 52 raz(y).
 Może coś takiego ?
Otwiera folder, w którym znajduje się aktualny dokument SW.

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Option Explicit

Sub main()
Set swApp = Application.SldWorks
Dim Filter As String
Dim fileName As String
Dim fileConfig As String
Dim fileDispName As String
Dim fileOptions As Long
Dim value As Object
Dim Initial As String
Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc

If Not swModel Is Nothing Then
Initial = swModel.GetPathName
Else
Initial = swApp.GetCurrentWorkingDirectory
End If

Filter = "Dokument SolidWorks (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw|"
fileName = swApp.GetOpenFileName("Otwórz dokument . . . ", Initial, Filter, fileOptions, fileConfig, fileDispName)
End Sub
 
2017-03-17, 13:39
Pomógł 0 raz(y).
 No tak, to też jest pewne rozwiązanie.
Ale czy nie ma sposobu, żeby otworzyło lokalizację pliku w eksploratorze plików ?
 
.
2017-03-18, 10:27
Pomógł 52 raz(y).
 Nie wiem czy próbowałeś to makro. Ono po uruchomieniu wygląda tak:



Jeśli nie o to chodziło to napisz więcej czego oczekujesz, może coś wymyślę.
 
2017-03-20, 08:41
Pomógł 0 raz(y).
 Tak, testowałem. Ale ono uruchamia "eksplorator plików solidworksa" a nie "eksplorator plików windows",a o taki mi chodzi.
 
2017-03-20, 15:18
Pomógł 18 raz(y).
 Spróbuj tego:

(tu był kod makra, ale z niewiadomych przyczyn forum wycięło ukośniki i macro było bez sensu, zamieszczam więc plik)



http://www.pswug.info/image/forum/forum_760_20_2553_9021.swp
 
.
2017-03-20, 19:31
Pomógł 52 raz(y).
 Niestety nie działa, tzn. działa częściowo, nie da się ustawić na żądany folder. Do jakiej wersji VBA to jest ?
 
2017-03-21, 07:34
Pomógł 0 raz(y).
 U mnie nie działa.
 
2017-03-21, 07:46
Pomógł 18 raz(y).
 W moim 2015 działa.

Mam otwartego parta, uruchamiam makro i otwiera się explorator windows - katalog, gdzie leży ten part.
 
.
2017-03-21, 08:00
Pomógł 52 raz(y).
 VBA nie przyjmuje typu zmiennej w linii :
Dim fileSystem As New FileSystemObject

Czy masz jakieś dodatki zainstalowane ?

PS.
Już działa :)
Trzeba dodać bibliotekę 'Microsoft Scripring Runtime" w Tools/References
 
2017-03-22, 06:58
Pomógł 0 raz(y).
 Tak, po dodaniu tej biblioteki działa.
Dzięki, o to chodziło.
 
Odpowiedz

PSWUG

Strefa Resellera

Publikuj

Społeczność

Ankieta

Linki

RSS
BOT