Rzeczywiście, działa poprzez stworzenie planu.
U mnie działa idealnie. Nazwa szkicu jest konfiguracją nie ma sensu.
Kod:
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
Dim Nom_EsquisseAV As String ' Nazwa szkicu frontowego
słońce Nom_EsquisseAP jako ciąg znaków ' nazwa szkicu po
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.OpenDoc6("C:\Users\rmorel\Desktop\Part1.SLDPRT", 1, 0, "", longstatus, longwarnings)
'Czytanie katalogu
Nom_Dossier = "C:\Użytkownicy\rmorel\Pulpit\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) - 4)
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, "", "", Fałsz, Fałsz, Fałsz, Prawda, 256)
Part.ClearSelection2 Prawda
Następny plik
Koniec subwoofera