|
CATIA V5 Programmierung : Farbauswahl über Toolbar
michi79 am 30.03.2009 um 15:57 Uhr (0)
Hallo, ich möchte bestimmete Farben über eine selbstdefinierte Toolbar auswählen können. Die Farbe soll in der Toolbar dargestellt werden und duch Klick auf die Farbe soll die Selection entsprechendeingefärbt werden. Was mir Probleme macht ist die Darstellung. Dakann man ja eigentlich nur Icons verwenden. Ich würde das jetzt über selbst erstellte Icons lösen. Gibt es einen besseren Weg ? GrussMichi
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter im Parameterset
michi79 am 13.03.2009 um 11:01 Uhr (0)
Hallo Zoltan, wenn ich in eine Part bin (Products.Count)=0 nehme ich von dort den Wert aus ReferenceProduct (set oRefProduct=oProduct.ReferenceProduct) Im Strukturbaum des VBA-Editors steht dort aber "The method ReferenceProduct failed" Bin ich an der falschen Stelle oder was hat das zu bedeuten ? Gruss Michi
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter im Parameterset
michi79 am 09.03.2009 um 10:40 Uhr (0)
Hallo, vielen Dank für eure Beiträge. Aber mein Problem ist das ich die Parameter im Parameterset nicht korrekt ansprechen kann. Die Struktur ist wie folgt: /Parameters/MeinParameterset/unbekannteAnzahlParameterCode: Sub CATMain()Dim oActiveDoc As Document Set oActiveDoc = CATIA.ActiveDocument Dim parameters1 As ParametersSet parameters1 = oActiveDoc.Part.ParametersDim ParameterSet1 As ParameterSetSet ParameterSet1 = parameters1.RootParameterSetDim parameterSets1 As ParameterSetsSet parameterSets1 = parame ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter im Parameterset
michi79 am 11.03.2009 um 10:21 Uhr (0)
Hallo Lusilnie,ich habe das Script Stückliste zählen als Vorlage genommen. http://ww3.cad.de/foren/ubb/Forum137/HTML/003224.shtml Im Bereich der CATParts sieht mein Eintrag wie folgt aus .... For Each oProduct In oProducts oProduct.ApplyWorkMode DESIGN_MODE If oProduct.Products.Count 0 Then RekursivDurchBaum oProduct.Products Else Set oRefProduct = oProduct.ReferenceProduct Set oRefDocument = oRefProduct.Parent If TypeName(oRefDocument) = "PartDocument" Then ...
|
| In das Form CATIA V5 Programmierung wechseln |
