Hallo
Ik heb een macro die een "Nom_Modificateur" eigenschap toevoegt in een deel, Het probleem is dat wanneer ik mijn lay-out open (nog steeds in de macro) de achtergrond niet verandert, ik ben gedwongen om de achtergrond plan te bewerken en vervolgens het blok te laten ontploffen en de mijn gegeven verschijnt. Om te weten of ik vanaf het begin het blok laat barsten, werkt de macro perfect. Maar ik wil de blokkade niet doorbreken omdat ik een andere macro heb die ook reinheid schrijft die in de cartridge zit en die werkt terwijl de code identiek is.
Hier is de code:
Deel instellen = swApp.OpenDoc6(Bestand, 1, 0, "", longstatus, longwarnings)
Stel swApp = Toepassing.SldWorks in
'We krijgen het actieve document
Stel swModel = swApp.ActiveDoc in
swCustPropMgr.Add3 "Type_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Date_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Index", swCustomInfoText string, 2
Als string = "02" Dan
swCustPropMgr.Add3 "Raison_Modification_A02", swCustomInfoText, Reden, 2
swCustPropMgr.Add3 "Nom_Modificateur_A02", swCustomInfoText, Nom_Modif, 2
ElseIf string = "03" Dan
swCustPropMgr.Add3 "Raison_Modification_A03", swCustomInfoText, Reden, 2
swCustPropMgr.Add3 "Nom_Modificateur_A03", swCustomInfoText, Nom_Modif, 2
ElseIf string = "04" Dan
swCustPropMgr.Add3 "Raison_Modification_A04", swCustomInfoText, Reden, 2
swCustPropMgr.Add3 "Nom_Modificateur_A04", swCustomInfoText, Nom_Modif, 2
Einde als
swApp.CloseDoc Bestandsnaam
Bedankt