Witam
Mam makro, które dodaje właściwość "Nom_Modificateur" w części, Problem polega na tym, że gdy otwieram mój układ (nadal w makrze) tło się nie zmienia, jestem zmuszony edytować plan tła, a następnie rozbić blok i pojawia się mój podany. Aby wiedzieć, czy od początku rozsadziłem blok, makro działa idealnie. Ale nie chcę łamać bloku, ponieważ mam inne makro, które również pisze czystość, które jest w kartridżu i działa, gdy kod jest identyczny.
Oto kod:
Ustaw część = swApp.OpenDoc6(Plik, 1, 0, "", longstatus, longwarnings)
Ustaw swApp = Application.SldWorks
"Dostajemy aktywny dokument
Ustaw swModel = swApp.ActiveDoc
swCustPropMgr.Add3 "Type_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Date_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Indeks", ciąg swCustomInfoText, 2
Jeśli ciąg = "02" Następnie
swCustPropMgr.Add3 "Raison_Modification_A02", swCustomInfoText, Powód, 2
swCustPropMgr.Add3 "Nom_Modificateur_A02", swCustomInfoText, Nom_Modif, 2
ElseIf string = "03" Następnie
swCustPropMgr.Add3 "Raison_Modification_A03", swCustomInfoText, Powód, 2
swCustPropMgr.Add3 "Nom_Modificateur_A03", swCustomInfoText, Nom_Modif, 2
ElseIf string = "04" Następnie
swCustPropMgr.Add3 "Raison_Modification_A04", swCustomInfoText, Powód, 2
swCustPropMgr.Add3 "Nom_Modificateur_A04", swCustomInfoText, Nom_Modif, 2
Zakończ jeżeli:
swApp.CloseDoc Nazwa pliku
Dziękuję