In der Tat funktioniert es, indem es einen Plan erstellt.
Bei mir funktioniert das perfekt. Der Name der Skizze ist von der Konfiguration, die nicht den Punkt hat.
Der Code:
Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
SkBild als Objekt dimmen
Dim System As Scripting.FileSystemObject 'Dateisystem
Dim-Ordner als Ordner 'Verzeichnis'
Dim-Datei als Datei ' Datei (Teil der Dateisammlung)
Dim Nom_Dossier As String ' Verzeichnisname
Dim Nom_Fichier As String ' Dateiname
Dim Nom_EsquisseAV As String ' Name der vorderen Skizze
Sun Nom_EsquisseAP As String ' Skizzenname nach
Sub main()
Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.OpenDoc6("C:\Users\rmorel\Desktop\Part1.SLDPRT", 1, 0, "", longstatus, longwarnings)
'Lesen des Verzeichnisses
Nom_Dossier = "C:\Benutzer\rmorel\Desktop\Test"
Systemsatz = CreateObject("Scripting.FileSystemObject")
Set Folder = System.GetFolder(Nom_Dossier)
'Kontrollieren Sie jede Datei im Verzeichnis
k = 2
Für jede Datei in Folder.Files
Erstellen eines Skizzenbilds und Aktualisieren von Bemaßungen
Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
Nom_EsquisseAP = Links(Fichier.Name, Len(Fichier.Name) - 4)
boolstatus = Part.Extension.SelectByID2("Plan bis 4mm", "PLANE", 0, 0, 0, Falsch, 0, Nichts, 0)
Part.SketchManager.InsertSketch True
Set SkPicture = Part.SketchManager.InsertSketchPicture(Nom_Fichier)
SkPicture.SetSize 50 / 1000, 60 / 1000, False
SkPicture.SetOrigin -25/1000, -20/1000
Part.ClearSelection2 Wahr
boolstatus = Part.Extension.SelectByID2("Skizze1", "SKIZZE", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, Nom_EsquisseAP)
boolstatus = Part.Extension.SelectByID2(Nom_EsquisseAP, "SKIZZE", 0, 0, 0, Falsch, 0, Nichts, 0)
Teil.BearbeitenUnterdrücken2
boolstatus = Part.Extension.SelectByID2("AM_P01_HO", "KONFIGURATIONEN", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = Part.AddConfiguration2("AM_" & Nom_EsquisseAP, "", "", Falsch, Falsch, Falsch, Wahr, 256)
Part.ClearSelection2 Wahr
Nächste Datei
Ende Sub