dim rulename1 als String = "1" 'Name der Regel 1
dim rulename2 als String = "2" 'Name der Regel 2
dim topasm als Montagedokument = thisdoc.document
' Aufforderung an den Benutzer, ein einzelnes Teil auszuwählen
dim invapp als Erfinder. Anwendungsbereich
dim selectobject as object = invapp.commandmanager.pick(selectionfilterenum.kassemblyoccurrencefilter, "select a part")
wenn selektiertesObjekt nicht nichts ist und auch Art von selektiertenObjekten ist Komponentegenauigkeit dann
dim selektiert als Komponenteoccurrence = ctype(selectedobject, partoccurrence)
dim doc als Dokument = selektiert.definition.document
Die erste ilogische Regel
ilogicvb.automation.runexternalrule(doc, rulename1)
' die zweite ilogische Regel ausführen
ilogicvb.automation.runexternalrule(doc, rulename2)
' die Farbe des Teils auf r255 g143 b47 ändern
dim trans als Transaktion = thisapplication.transactionmanager.starttransaction(topasm, "set custom color")
Versuch
' erstellen oder abrufen Sie den Auftritt Asset
dim customappearance als Asset
Versuch
customappearance = topasm.assets.item("customcolor")
Fang ex als Ausnahme
customappearance = topasm.assets.add(assettypeenum.kassettypeappearance, "generic", "customcolor")
Ende Versuch
' die Farbe des Vermögenswerts ändern
dim colorassetvalue als colorassetvalue = customappearance.item("generic_diffuse")
colorassetvalue.value = invapp.transientobjects.createcolor(255, 143, 47)
' das Aussehen auf das ausgewählte Teil anwenden
selectpart.appearance = Customappearance
messagebox.show("beide Regeln ausgeführt und Teilfarbe erfolgreich aktualisiert.", "success", messageboxbuttons.ok, messageboxicon.information)
Fang ex als Ausnahme
messagebox.show("error set part color: " & ex.message, "error", messageboxbuttons.ok, messageboxicon.error)
endlich
trans.end()
Ende Versuch
andere
messagebox.show("kein gültiger Teil ausgewählt.", "error", messageboxbuttons.ok, messageboxicon.error)
Ende