Het werkt inderdaad door een plan te maken.
Het werkt perfect voor mij. De naam van de schets is van de configuratie hebben niet het punt.
De code:
Dim swApp als object
Deel dimmen als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Dim SkPicture als object
Dim systeem als Scripting.FileSystemObject 'Bestandssysteem
Map dimmen als map 'Directory'
Dim Bestand Als Bestand ' Bestand (Onderdeel van de Bestanden Verzameling)
Dim Nom_Dossier als tekenreeks ' Directorynaam
Dim Nom_Fichier als tekenreeks ' bestandsnaam
Dim Nom_EsquisseAV als snaar ' Voorschets Naam
Zon Nom_EsquisseAP Als String ' Schets Naam Na
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Set Part = swApp.OpenDoc6("C:\Users\rmorel\Desktop\Part1.SLDPRT", 1, 0, "", longstatus, longwarnings)
'Het lezen van de directory
Nom_Dossier = "C:\Gebruikers\rmorel\Desktop\Test"
Systeemset = CreateObject("Scripting.FileSystemObject")
Map instellen = System.GetFolder(Nom_Dossier)
'Beheer elk bestand in de directory
k = 2
Voor elk bestand in map.Files
Schetsafbeelding maken en afmetingen bijwerken
Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
Nom_EsquisseAP = Links(Fichier.Name, Len(Fichier.Name) - 4)
boolstatus = Part.Extension.SelectByID2("Plan tot 4mm", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Deel.SketchManager.InsertSketch Waar
Stel SkPicture = Part.SketchManager.InsertSketchPicture(Nom_Fichier) in
SkPicture.SetSize 50 / 1000, 60 / 1000, Onwaar
SkPicture.SetOrigin -25/1000, -20/1000
Deel.ClearSelection2 Waar
boolstatus = Part.Extension.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, Nom_EsquisseAP)
boolstatus = Part.Extension.SelectByID2(Nom_EsquisseAP, "SCHETS", 0, 0, 0, Onwaar, 0, Niets, 0)
Deel.EditSuppress2
boolstatus = Part.Extension.SelectByID2("AM_P01_HO", "CONFIGURATIES", 0, 0, 0, False, 0, Niets, 0)
boolstatus = Part.AddConfiguration2("AM_" & Nom_EsquisseAP, "", "", Onwaar, Onwaar, Onwaar, Waar, 256)
Deel.ClearSelection2 Waar
Volgend bestand
Einde Sub