Změna barvy je vcelku jednoduchá, viz následující příklad.

Sub CATMain()

' deklarace promennych

Dim oPart As PartDocument

Dim oPartBody As Body

Dim oSelection As Selection



Set PartDocument = CATIA.ActiveDocument ' aktivni dokument

Set oPartBody = PartDocument.Part.MainBody ' objekt PartBody

Set oSelection = PartDocument.Selection ' objekt vyberu



oSelection.Clear ' vycistime vyber



oSelection.Add oPartBody ' vybereme PartBody

oSelection.VisProperties.SetRealColor 255, 128, 128, 0 ' zmenime barvu



oSelection.Clear



End Sub

Jak byste si představoval přiřazení hmotnosti? Ta přeci vychází z hustoty a objemu...

Mohl by ste mi doporučit nějakou literaturu na programování maker? Ve visual basic nějaké zkušenosti mám, ale spíš mám problemy když se mám odkazovat na nějakou geometrii a definovat vlastnosti viz barva atd. děkuji

Následující skript, mě do nového partu vloží nové Body1. U tohoto Body1 bych potřeboval změnit barvu např. modrá.

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Add()

part1.Update

End Sub

Každému body bych potřeboval definovat materiál viz obr. Snad už je to trochu srozumitelné. Asi to není nejlepší příklad na využití makra, ale někde se začít musí :)
Děkuji za pomoc.

Tohle už mi myslím pomůže. díky