Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

Register Log in
  • Congratulations waross on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

CATIA: Geometrical set Lines and curves color

Status
Not open for further replies.
JORGEGSilva

JORGEGSilva

Mechanical
Jul 22, 2022
2
Hello.
I'am trying to create a macro to change the line color in a geometrical set but can't figure out to acess the property that i want.
I have a set of lines that are inside a geometrical set, but they are white i want to change them to another color.
when selecting the geometrical set and acessing to its graphical properties when i change the color in lines and curve color, it changes the color of all the lines inside(what i want) but i'am not being able to acess to that property by macro. can someone help?
example in attachement.
 
 https://files.engineering.com/getfile.aspx?folder=2f9608c4-7dd0-4ba5-bd87-35b5dd28c2ac&file=Snapshot_2022-07-22_191538.jpg
Replies continue below

Recommended for you

Sort by date Sort by votes
Not easier to add your lines to selection and use visproperties.SetRealColor ?
 
Upvote 0 Downvote
Like TudorM said,

You have to go with visproperties.

Then you have access to graphic properties.

CNEXT_sTDAvZzHsi_kttnir.png


Tiago Figueiredo
Tooling Engineer

Youtube channel:
 
Upvote 0 Downvote
Here an example of changing a color of selected elements.

Code: 
Sub CATMain()

On Error GoTo 0

Dim InputObjectType(0)

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim Selection As Selection
Set Selection = partDocument1.Selection

Dim shapeFactory1 As Factory

RED = 175
GREEN = 255
BLUE = 175

If (Selection.Count < 1) Then
   MsgBox "      Nenhum elemento seleccionado !" + Chr(10) + Chr(10) + "     Seleccione os elementos, e repita o comando.    "
   
    Exit Sub
End If

Dim MyPropSet As VisPropertySet
Set MyPropSet = Selection.VisProperties

MyPropSet.SetRealColor RED, GREEN, BLUE, 0

End Sub

Tiago Figueiredo
Tooling Engineer

Youtube channel:
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

sri91
  • Locked
  • Question
Set Font size and color in drawing table
Replies
5
Views
211
sri91
sri91
grisel360
  • Question
Change Geometrical Tolerance values c#
Replies
0
Views
807
grisel360
grisel360
Alexander888
  • Locked
  • Question
How to move items to a geometrical set with macro.
Replies
3
Views
287
Little Cthulhu
Little Cthulhu
chc24
  • Locked
  • Question
Invert normal view CATIA VBA Annotation set
Replies
1
Views
179
chc24
chc24
WireHarnessSteve
  • Locked
  • Question
Generating Parts From Geometrical Sets
Replies
2
Views
98
WireHarnessSteve
WireHarnessSteve

Part and Inventory Search

Sponsor

Back
Top Bottom