Macro to add arrow in Cat drawing (Change thickness)

[FabienF]

Hello,

I am new to automation in Catia and I need help . I need to automatically generate drawings containing arrows. So far everything works fine except for thethickness of the arrows.

I have used

Set MyArrow1 = MyDrawingViews.ActiveView.Arrows.Add(X1 coord, Y1 coord, X2 coord, Y2 coord)

to create the arrow, but I need to increase its thickness.

Can someone help me with the command to use to change the thickness of an arrow in a catdrawing? After many researches on the Internet I cannot find a way.

Thanking you in advance.

 

[TiagoFigueiredo]

Don't now if it will work, but try this:

  selection1.Add (MyArrow1 )
    CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 2, 1
    CATIA.ActiveDocument.Selection.Clear

Number 2 is the number of the item of the thickness.

Tiago Figueiredo
Tooling Engineer

Youtube channel:

https://www.youtube.com/channel/UC1qdlBeJJEgMgpPLVJoOIOw

 

[FabienF]

Thank you Tiago. It works with this code:


Set MyArrow1 = MyDrawingViews.ActiveView.Arrows.Add(x1,y1,x2,y2)
CATIA.ActiveDocument.Selection.Add MyArrow1
CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 2, 1
CATIA.ActiveDocument.Selection.Clear

 

[TiagoFigueiredo]

Tiago Figueiredo
Tooling Engineer

Youtube channel:

https://www.youtube.com/channel/UC1qdlBeJJEgMgpPLVJoOIOw