Utwórz makro, aby zmienić rozmiar obrazów szkicu

jviendu13 · 16 Wrzesień 2016 11:38

Witam

Jeszcze nie zrobione VBA, głód nauki, znajomość Matlaba (= wiedza o wszystkim, co jest zapętlone...).

Cel:

-Mam kilka materiałów (=1700 materiałów) do umieszczenia na tabliczce, z których każdy ma swoje zdjęcie (=1700 zdjęć). Planowałem więc zrobić kilka konfiguracji z obrazami szkicowymi.

Podstawa działania:

-Wróciłem do mojego "sprzętu". SLDPRT" wszystkie obrazy i zmieniłem nazwy szkiców (z tych obrazów szkiców).

-Po obejrzeniu wielu forów nadal nie widzę pozorów rozwiązania :'(.

Żądane makro:

-Dzisiaj chciałbym zmienić rozmiar obrazów szkiców i utworzyć konfigurację dla każdego z nich.

-Oczywiście 1700 razy, aby zmienić rozmiar pozycji X, pozycji Y, szerokości i wysokości + konfiguracja do utworzenia nazwy szkicu = xD lat.

-Nie można (o ile się nie mylę) wybrać wszystkich obrazów szkicu i edytować je jednocześnie, a ponadto obrazy szkiców nie podlegają przyciąganiu.

Czy mógłbyś mi pomóc stworzyć to makro i/lub podzielić się innym rozwiązaniem,

Z góry dziękuję:D

Azrod · 16 Wrzesień 2016 12:10

Witam

To wielka rzecz. Powodzenia każdemu, kto to zrobi :)

Wyobrażam sobie, że nie wszystkie zdjęcia mają takie same wymiary?

remrem · 16 Wrzesień 2016 12:42

Witam

Aby uruchomić VBA:

http://didier-gonard.developpez.com/tutoriels/office/vba-qu-est-que-c-est/
http://heureuxoli.developpez.com/office/word/vba-all/

Następnie, aby wstawić obraz do szkicu, należy użyć metody InsertSketchPicture opisanej tutaj: http://help.solidworks.com/2016/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.imodeldoc2~insertsketchpicture.html

Przykład w języku VBA jest dostępny tutaj: http://help.solidworks.com/2016/english/api/sldworksapi/flip_sketch_picture_example_vb.htm

Podziel swój projekt na kilka kroków: otwórz pokój, wstaw pojedynczy obraz, zapętl obrazy...

W przeciwnym razie będzie to zbyt skomplikowane. W takim razie wróć do nas...

jviendu13 · 16 Wrzesień 2016 17:36

Witaj geniuszu, oto moje życzenie:

Powiedzmy, że mam 2 obrazy: KTT212.bmp i PPT213.bmp o tym samym rozmiarze: 90 mm x 75 mm

Chciałbym: Utwórz 2 obrazy szkiców na moim "Planie 4 mm" z nazwą szkicu: KTT212 i PPT213 (nie nazwą "Szkic obrazu")

Oto kroki, które należy wykonać:

- Otwórz moją część "E:\user\Documents\Materials.sldprt"

- NazwaZmiennej1 = Nazwa "E:\użytkownik\Dokumenty\KTT212.bmp" (= KTT212)

- Tworzenie szkicu

-> na "Plan na 4mm"

-> Szkicowana nazwa = NazwaZmienna1

Tworzenie konfiguracji

-> Nazwa konfiguracji = NazwaZmiennej1

- Utwórz obraz szkicu za pomocą "E:\user\Documents\KTT212.bmp"

-> Wymiar obrazu: 60 mm x 50 mm

- Pętla na VariableName*

Dziękuję za poświęcony czas, oto moje wyzwanie ;D

remrem · 19 Wrzesień 2016 07:31

Cześć @jviendu13,

Postaram się postawić sprawę jasno. Nie jesteśmy tu po to, aby stworzyć dla Ciebie kod i dostarczyć go do Ciebie funkcjonalnie.

Wszyscy jesteśmy tutaj, aby pomagać sobie nawzajem, ale nie po to, aby wykonywać swoją pracę.

Spróbuj zacząć od przeczytania samouczków i innej pomocy oraz naszkicowania kodu bourt. Następnie opowiedz nam o swoich zmartwieniach lub problemach, a my pomożemy Ci...

Nauka kodowania wymaga czasu i zaangażowania. Jeśli dostaniesz gotowe rzeczy. Niczego się nie nauczysz. S

Miłego dnia.

jviendu13 · 19 Wrzesień 2016 08:49

To było łatwe.

Zanim zajmę się kodem zgodnie z tym, co określasz, lepiej zapytać, czy kroki są odpowiednie.

I w przeciwieństwie do tego, co myślisz, zjadłem samouczki i inne fora, które posłużą mi jako przykład. I to przedtem, po i jeszcze teraz. Nawiasem mówiąc, społeczność skupiona wokół VBA wydaje się być bardzo przyjazna dla nowicjuszy xD.

Nawiasem mówiąc, odkryłem, że muszę podać listę folderów, w których znajdują się obrazy, a zatem przyrost od jednego obrazu do drugiego zostanie wykonany sam. -> Co prawdopodobnie wiesz. Nie jestem tu po to, aby prosić o kod, ale raczej o polecenia z Solidworks.

W każdym razie, jak powiedziałem, po prostu biorę to w swoje ręce, postaraj się nie załamać mojego entuzjazmu, proszę.

Moje zmartwienia:

-Przyrost na 50 obrazach folderu : rozwiązany = musisz wyświetlić listę folderu

Wydaje mi się, że polecenie dir nadal muszę się nauczyć, jak go używać po mojej stronie

-Uzyskaj dostęp do właściwości obrazu szkicu : W wyszukiwaniu (wysokość, szerokość, poziomo, pionowo)

Wydaje się, że to poniższe polecenie nie działa lub bardziej prawdopodobne, że nie mogę go poprawnie użyć

   swSketchPicture. GetSize szerokość, wysokość
    Debug.Print " Szerokość: " & szerokość * 1000 & " mm "
    Debug.Print " Wysokość: " & wysokość * 1000 & " mm"

-Pobierz nazwę wstawionego obrazu i użyj go do zmiany nazwy szkicu + konfiguracja: W wyszukiwaniu

Przydatna uwaga : Samouczki są przeznaczone dla programu Excel, a pomoc Solidworks nie pokazuje "poleceń", więc znalezienie tego, czego szukam, jest prawdziwym bólem głowy.

jviendu13 · 19 Wrzesień 2016 08:50

A oto Mój fragment kodu, z którym staram się iść do przodu:

Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Ustaw swApp = _
Aplikacja.SldWorks

Pokój otwarty
Ustaw część = swApp.OpenDoc6("C:\Users\ad36aaen\Documents\Usage\Design SdC\1300\Basic Structures\Structures\Hardware\Hardware.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Hardware.SLDPRT", Fałsz, longstatus
Ustaw część = swApp.ActiveDoc
Ustaw część = swApp.ActiveDoc
Przyciemnij myModelView jako obiekt
Ustaw myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Ustaw myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Ustaw myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

'Pętla dla i=1 do 50(=NbrFic)... dziecko, jeśli
– Planowanie

boolstatus = Part.Extension.SelectByID2("Plan 4mm", "PŁASZCZYZNA", 0, 0, 0, Fałsz, 0, Nic, 0)
"Obraz Equisse
Part.SketchManager.InsertSketch Prawda
Dim SkPicture As Obiekt

'Lista, a nie wstawianie: polecenie Dir

"Musisz uzyskać nazwę obrazu, gdy tylko go wstawisz
Set SkPicture = Part.SketchManager.InsertSketchPicture("C:\Users\ad36aaen\Documents\Usage\Design SdC\1300\Basic Structures\Structures\Hardware\Hardware Photos\P01\HO\TPL_REA390TL.png")
Part.ClearSelection2 Prawda
Part.SketchManager.InsertSketch Prawda
boolstatus = Part.Extension.SelectByID2("Sketch220", "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
Part.ClearSelection2 Prawda
boolstatus = Part.Extension.SelectByID2("Sketch220", "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)

"Imię naszkicowane
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "1")
boolstatus = Part.Extension.SelectByID2("Szkic obrazu1577", "SKETCHBITMAP", 0, 0, 0, Fałsz, 0, Nic, 0)
Part.ClearSelection2 Prawda
boolstatus = Part.Extension.SelectByID2("Szkic obrazu1577", "SKETCHBITMAP", 0, 0, 0, Fałsz, 0, Nic, 0)

"Nazwij szkic obrazu
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "2")
Part.ClearSelection2 Prawda
boolstatus = Part.Extension.SelectByID2("1", "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
boolstatus = Part.Extension.SelectByID2("1", "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)

"Dokumentacja
Przyciemnij funkcję jako obiekt
Set myFeature = Part.FeatureManager.InsertFeatureTreeFolder2(swFeatureTreeFolderType_e.swFeatureTreeFolder_Containing)
boolstatus = Część.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "3")
'Konfiguracja
boolstatus = Part.Extension.SelectByID2("Domyślnie", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)
Part.ClearSelection2 Prawda
boolstatus = Part.Extension.SelectByID2("4", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)
Part.ClearSelection2 Prawda
boolstatus = Part.Extension.SelectByID2("4", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)

'Nazwa konfiguracji
boolstatus = Part.SelectedFeatureProperties(15651274, 1, 1, 0.5, 0.400000005960464, 0, 0, 0, 0, "5")
Part.ClearSelection2 Prawda
boolstatus = Part.Extension.SelectByID2("2", "SKETCHBITMAP", 2.22464985227471E-02, 4.000000000000191E-03, -5.56639089934266E-02, False, 0, Nic, 0)
Part.ClearSelection2 Prawda
Koniec subwoofera

remrem · 19 Wrzesień 2016 11:39

Cóż, z twoim kodem i wyjaśnieniami jest to już znacznie prostsze i pokazuje już wykonaną pracę.

Odpowiedzi na Twoje pytanie:

-Uzyskaj dostęp do właściwości obrazu szkicu : W wyszukiwaniu (wysokość, szerokość, poziomo, pionowo)

Wydaje się, że to poniższe polecenie nie działa lub bardziej prawdopodobne, że nie mogę go poprawnie użyć

   swSketchPicture.GetSize szerokość, wysokość
    Debug.Print " Szerokość: " & szerokość * 1000 & " mm "
    Debug.Print " Wysokość: " & wysokość * 1000 & " mm"

Plik debug.print służy tylko do poznawania wartości debugowania, ale nie do ich modyfikowania.

jviendu13 · 19 Wrzesień 2016 11:47

Tak, widziałem swoją głupotę, to tylko wyświetlanie wartości xD, coś w rodzaju "wykresu". Wybieram więc "setsize".

Myślałem, że mogę uzyskać to, czego chciałem, za pomocą poniższego kodu, ale nie. Kod dodaje mi tylko obraz szkicu bez zmiany wymiarów = Smutek :'(

-> Rozwiązany = Radość :D

SkPicture.SetSize Szerokość, wysokość, ProporcjeProporcjeZablokowane <- Musi tam umieścić wartości --'
Szerokość = 50/1000
Wysokość = 60/1000 NIE A xD
AspectRatioLocked = Fałsz

Teraz, gdy udało mi się zmienić rozmiar, muszę zająć się zmianą nazwy i pętlą xD.

Celem jest więc

-Utwórz pętlę Dir +, aby wyświetlić listę wszystkich moich obrazów w folderze

Pytanie: Widziałem , że można wymienić tylko *.ini, *bmp, ale czy można wziąć pod uwagę tylko początek? jak KT*?

-Za każdym razem pobieramy nazwę obrazu, który przetwarzamy: Tutaj szukam "polecenia", które wywołuje nazwę obrazu, który właśnie wstawiłem. Tak jak szukałem polecenia setsize ;D.

To zbyt dobre VBA, gdy kod działa \o/

remrem · 19 Wrzesień 2016 12:19

To jest dokładnie to, co udało mi się zaobserwować również po swojej stronie.

Jak zajrzę do SW help to nic nie zawiera! Pierwszy raz się z tym spotykam.

Użyłem więc okrężnej drogi:

Oto jak zmienić rozmiar:

Musisz użyć metody setsize.

W parametrze width, następnie parametr height, a na końcu true lub false, aby zablokować współczynnik proporcji

jviendu13 · 19 Wrzesień 2016 12:37

Haha^^

Tak, to zadziałało, znalazłem to tuż wcześniej, a także dowiedziałem się, dlaczego mój kod niczego nie zmienia. Umieszczanie wartości w odpowiednich miejscach bardzo pomaga xD.

Tutaj szukam zmiany nazwy na nazwę obrazu:

- Szukam komendy do pobrania nazwy ostatniego obrazka wstaw/użycia/który ma mi się przed oczami xD

- Dla pętli: Czy jest to polecenie Dir, aby dodać wszystkie obrazy folderu jeden po drugim w pętli?

Pytanie: Widziałem, że można wymienić tylko *.ini, *bmp, ale czy można wziąć pod uwagę tylko początek? jak KT*?

Jeszcze raz dziękuję za poświęcony czas^^

remrem · 19 Wrzesień 2016 12:52

Dla nazwy spróbuj tego:;-)

swSketchPicture.GetFeature.SetImportedFileName ("Nazwa")

Jeśli chodzi o listę plików według rozszerzenia.

Wrócę tu trochę później...

jviendu13 · 19 Wrzesień 2016 13:04

Dla pętli próbowałem tego kodu, ale wywala solidworks :'(

MyImage = Katalog("C:\Użytkownicy\ad36aaen\Dokumenty\P01\HO\")

Dla i = 1 do 3

..

Set SkPicture = Part.SketchManager.InsertSketchPicture(MyImage)

..

MyImage = Katalog
Dalej i

remrem · 19 Wrzesień 2016 15:42

Załączam plik makra, który zawiera listę plików w katalogu, którego nazwa zaczyna się od KT.

Myślę, że powinniśmy zrobić kilka testów, aby zweryfikować, czy jest to obraz za pomocą metody: oFl.Type

makro1.swp

jviendu13 · 19 Wrzesień 2016 16:07

Świetnie, dziękuję.

remrem · 20 Wrzesień 2016 06:24

Witam

Zapomniałem: Musisz dodać odniesienie do Microsoft Scripting Runtime do projektu w Narzędzia / Referencje

Dzień dobry.

jviendu13 · 20 Wrzesień 2016 08:36

Idzie dobrze,

-Zmień rozmiar ok,

-Pętla ok,

-Nazwa prawie ok:

Jeśli nie zostawię punktu na koniec, Nom_EsquisseAP nie jest brane pod uwagę, działa tylko wtedy, gdy jest sens...

Przyglądam się konfiguracjom pochodnym xD

Mój kod:

Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim SkPicture As Obiekt
Przyciemniona instancja jako ISketchPicture
Przyciemnij szerokość jako podwójne
Przyciemnij wysokość jako podwójne
Dim AspectRatioLocked jako wartość logiczna
Wartość przyciemniona Jako wartość logiczna
Dim X Ace Podwójny
Przyciemnij jako podwójne
Dim System As Object          ' System plików
Przyciemnij folder jako katalog obiektu
Dim Files As Object          'Kolekcja plików z katalogu
Dim File As Object          ' File (część kolekcji Files)
dim Nom_Dossier As String      ' Nazwa katalogu
dim Nom_Fichier As String      ' Nazwa pliku
Dim Nom_EsquisseAV As String     ' Nazwa szkicu frontowego
Dim Nom_EsquisseAP As String     ' Nazwa szkicu po
Dim k As liczba całkowita

Sub main()

Ustaw swApp = _
Aplikacja.SldWorks

Ustaw część = swApp.OpenDoc6("C:\Users\ad36aaen\Documents\Usage\Design SdC\1300\Basic Structures\Structures\Hardware\Hardware.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Hardware.SLDPRT", Fałsz, longstatus
Ustaw część = swApp.ActiveDoc

k = 1

'Czytanie katalogu
Nom_Dossier = "C:\Użytkownicy\ad36aaen\Dokumenty\Użycie\Design SdC\1300\Podstawowe Struktury\Struktury\Sprzęt\Sprzęt/Zdjęcia\P01\HO\Test"
Zestaw systemowy = CreateObject("Scripting.FileSystemObject")
Ustaw folder = System.GetFolder(Nom_Dossier)
Set Files = Folder.Files

'Pętla
Dla każdego pliku w plikach
    "Tworzenie imion
    Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
    Nom_EsquisseAV = "Szkic" & k
    Nom_EsquisseAP = Lewo(Fichier.Name, Len(Fichier.Name) - 3)

    "Plan wyboru
    boolstatus = Part.Extension.SelectByID2("Planuj do 4mm", "PŁASZCZYZNA", 0, 0, 0, Fałsz, 0, Nic, 0)

    "Utwórz obraz szkicu
    Part.SketchManager.InsertSketch Prawda
    Set SkPicture = Part.SketchManager.InsertSketchPicture(Nom_Fichier)

    'Zmień rozmiar
    SkPicture.SetSize 50 / 1000, 60 / 1000, Fałsz
    SkPicture.SetOrigin -25/1000, -20/1000

    Part.ClearSelection2 Prawda

    Wybierz Szkic + Zmień nazwę
    boolstatus = Part.Extension.SelectByID2(Nom_EsquisseAV, "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
    boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, Nom_EsquisseAP)

    Usuń stan szkicu => rozjaśni się, gdy będziemy na 1000. szkicu
    boolstatus = Part.Extension.SelectByID2(Nom_EsquisseAP, "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
    Part.EditSuppress2

    Part.ClearSelection2 Prawda

k = k + 1

Następny plik
Koniec subwoofera

jviendu13 · 20 Wrzesień 2016 08:52

To wszystko, skończyłem,

Mimo tego problemu z szyciem tuż po nompie, wszystko działa \o/

Kod dla osób, które chciałyby zobaczyć/mieć:

Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim SkPicture As Obiekt
Przyciemniona instancja jako ISketchPicture
Przyciemnij szerokość jako podwójne
Przyciemnij wysokość jako podwójne
Dim AspectRatioLocked jako wartość logiczna
Wartość przyciemniona Jako wartość logiczna
Dim X Ace Podwójny
Przyciemnij jako podwójne
Dim System As Object          ' System plików
Przyciemnij folder jako katalog obiektu
Dim Files As Object          'Kolekcja plików z katalogu
Dim File As Object          ' File (część kolekcji Files)
dim Nom_Dossier As String      ' Nazwa katalogu
dim Nom_Fichier As String      ' Nazwa pliku
Dim Nom_EsquisseAV As String     ' Nazwa szkicu frontowego
Dim Nom_EsquisseAP As String     ' Nazwa szkicu po

Sub main()

Ustaw swApp = _
Aplikacja.SldWorks

Ustaw część = swApp.OpenDoc6("C:\Users\Hardware\Hardware.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Hardware.SLDPRT", Fałsz, longstatus
Ustaw część = swApp.ActiveDoc

k = 2

'Czytanie katalogu
Nom_Dossier = "C:\Użytkownicy\Sprzęt\Zdjęcia sprzętowe\P01\HO\Test"
Zestaw systemowy = CreateObject("Scripting.FileSystemObject")
Ustaw folder = System.GetFolder(Nom_Dossier)
Set Files = Folder.Files

'Kontroluj każdy plik w katalogu
Dla każdego pliku w plikach
    Tworzenie obrazu szkicu i aktualizowanie wymiarów
    Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
    Nom_EsquisseAP = Lewo(Fichier.Name, Len(Fichier.Name) - 3)

    boolstatus = Part.Extension.SelectByID2("Planuj do 4mm", "PŁASZCZYZNA", 0, 0, 0, Fałsz, 0, Nic, 0)

    Part.SketchManager.InsertSketch Prawda
    Set SkPicture = Part.SketchManager.InsertSketchPicture(Nom_Fichier)

    SkPicture.SetSize 50 / 1000, 60 / 1000, Fałsz
    SkPicture.SetOrigin -25/1000, -20/1000

    Part.ClearSelection2 Prawda

    boolstatus = Part.Extension.SelectByID2("Szkic1", "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
    boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, Nom_EsquisseAP)

    boolstatus = Part.Extension.SelectByID2(Nom_EsquisseAP, "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
    Part.EditSuppress2

    boolstatus = Part.Extension.SelectByID2("AM_P01_HO", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)
    boolstatus = Part.AddConfiguration2("AM_" & Nom_EsquisseAP, "", "", False, False, False, True, 256)

    Part.ClearSelection2 Prawda

Następny plik
Koniec subwoofera

remrem · 20 Wrzesień 2016 09:02

Nie rozumiem, dlaczego na początku są dwa razy Set Part. Dla mnie otwierasz pokój i wypełniasz zmienną Część. Następnie mówisz mu, że zmienna Part jest równa bieżącemu plikowi.

Co do nazwy, to nie rozumiem problemu. Musisz zostawić punkt gdzie?

remrem · 20 Wrzesień 2016 09:20

Trochę posprzątałam. ;-)

Należy zachować ostrożność, ponieważ należy używać deklaracji zmiennych obiektu z ostrożnością.

Zasadniczo pasuje to do powiedzenia w programie, nie wiem, co to będzie, może przejść od pioruna do słonia, to od ciebie zależy, czy sobie poradzisz...

Spróbuj tego: TESTOWAĆ

Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim SkPicture As Obiekt
Dim System As Scripting.FileSystemObject       'System plików
Przyciemnij folder jako folder                            "Katalog"
Dim file As File                              ' file (część kolekcji plików)
dim Nom_Dossier As String                      ' Nazwa katalogu
dim Nom_Fichier As String                      ' Nazwa pliku
Przyciemnij Nom_EsquisseAV Jako ciąg                     ' Nazwa szkicu przedniego
Przyciemnij Nom_EsquisseAP Jako ciąg                     ' Nazwa szkicu po

Sub main()
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.OpenDoc6("C:\Users\Hardware\Hardware.SLDPRT", 1, 0, "", longstatus, longwarnings)

   'Czytanie katalogu
   Nom_Dossier="C:\Użytkownicy\Sprzęt\Zdjęcia sprzętu\P01\HO\Test"
   Zestaw systemowy = CreateObject("Scripting.FileSystemObject")
   Ustaw folder = System.GetFolder(Nom_Dossier)

   'Kontroluj każdy plik w katalogu
   k = 2
   Dla każdego pliku w folderze Folder.Files
       Tworzenie obrazu szkicu i aktualizowanie wymiarów
       Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
       Nom_EsquisseAP = Lewo(Fichier.Name, Len(Fichier.Name) - 3)

       boolstatus = Part.Extension.SelectByID2("Planuj do 4mm", "PŁASZCZYZNA", 0, 0, 0, Fałsz, 0, Nic, 0)

       Part.SketchManager.InsertSketch Prawda
       Ustaw SkPicture = Part.SketchManager.InsertSketchPicture(Nom_Fichier)

       SkPicture.SetSize 50 / 1000, 60 / 1000, Fałsz
       SkPicture.SetOrigin -25/1000, -20/1000

       Part.ClearSelection2 Prawda

       boolstatus = Part.Extension.SelectByID2("Szkic1", "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
       boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, Nom_EsquisseAP)

       boolstatus = Part.Extension.SelectByID2(Nom_EsquisseAP, "SZKIC", 0, 0, 0, Fałsz, 0, Nic, 0)
       Part.EditSuppress2

       boolstatus = Part.Extension.SelectByID2("AM_P01_HO", "KONFIGURACJE", 0, 0, 0, Fałsz, 0, Nic, 0)
       boolstatus = Part.AddConfiguration2("AM_" & Nom_EsquisseAP, "", "", False, False, False, True, 256)

       Part.ClearSelection2 Prawda

   Następny plik
Koniec subwoofera