Set dashed line in drawing vba catia

[Macro2015]

Hello,

I can not find how to adjust dashed line in drafting for catia. Below is some code for Linetype, but result is still filled line.

How to define a thin dashed line in vba code?

Set Line11 = Fact.CreateLine(22.5, 9.25, 192.5, 9.25)
Line11.Name = "Line11"
CATIA.ActiveDocument.Selection.Add Line11
Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealLineType 4, 0.2
Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealWidth 2, 0.2


Thank you for any suggestions,

 

[ferdo]

Can you try on a test drawing this?

Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument


'-------------- select generated items

Dim selection4 As Selection
Set selection4 = drawingDocument1.Selection

selection4.Search "CATDrwSearch.CATEarlyGenItem,all"

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealLineType 1,0.2 '-----------change line type

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealWidth 1,0.2 '-----------change width


End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU