Hallo
Ich habe ein Makro, das eine "Nom_Modificateur" -Eigenschaft in einem Teil hinzufügt, Das Problem ist, dass, wenn ich mein Layout öffne (immer noch im Makro), sich der Hintergrund nicht ändert, ich gezwungen bin, den Hintergrundplan zu bearbeiten, dann den Block zu explodieren und das von mir angegebene erscheint. Um zu wissen, ob ich den Block von Anfang an geplatzt habe, funktioniert das Makro einwandfrei. Aber ich möchte den Block nicht brechen, weil ich ein anderes Makro habe, das auch Sauberkeit schreibt, das sich in der Cartridge befindet und das funktioniert, während der Code identisch ist.
Hier ist der Code:
Set Part = swApp.OpenDoc6(Datei, 1, 0, "", longstatus, longwarnings)
Legen Sie swApp = Application.SldWorks fest
"Wir erhalten das aktive Dokument
Festlegen von swModel = swApp.ActiveDoc
swCustPropMgr.Add3 "Type_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Date_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Index", swCustomInfoText-Zeichenfolge, 2
Wenn string = "02" Dann
swCustPropMgr.Add3 "Raison_Modification_A02", swCustomInfoText, Grund, 2
swCustPropMgr.Add3 "Nom_Modificateur_A02", swCustomInfoText, Nom_Modif, 2
ElseIf string = "03" Dann
swCustPropMgr.Add3 "Raison_Modification_A03", swCustomInfoText, Ursache, 2
swCustPropMgr.Add3 "Nom_Modificateur_A03", swCustomInfoText, Nom_Modif, 2
ElseIf string = "04" Dann
swCustPropMgr.Add3 "Raison_Modification_A04", swCustomInfoText, Grund, 2
swCustPropMgr.Add3 "Nom_Modificateur_A04", swCustomInfoText, Nom_Modif, 2
Ende, wenn
swApp.CloseDoc Dateiname
Vielen Dank