用宏自定义图框时如何定义线型及颜色?

用宏自定义图框时如何定义线型及颜色?
如题:如何定义某些线条的线型及颜色,文字的颜色等...

谢谢!

w我也想知道

CATIA.ActiveDocument.Selection.Add Line
    CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 1,1
    CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 255, 255, 255, 0
    CATIA.ActiveDocument.Selection.clear

请问在宏定义在怎样读取3d图中自定义属性？
比方说在3d图中自定义属性：company；属性值：XXX；怎样在2d图中自动读取该值？

3楼的这个
CATIA.ActiveDocument.Selection.Add Line
    CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 1,1
    CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 255, 255, 255, 0
    CATIA.ActiveDocument.Selection.clear
是什么意思。能说得详细点吗？

请教高手之中。顶一下

图框模版中加以下代码：
Sub CATColorGeometry()       
        SelectAll "..Name=Frame_Outside_Border_*" '选择名称为Frame_Outside_Border_*的图框线
        CATIA.ActiveDocument.Selection.VisProperties.SetRealWidth 2,1 '设置选择图框线的线宽
        CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 128, 0, 128, 0 '设置选择图框线的颜色
        CATIA.ActiveDocument.Selection.VisProperties.SetLayer catVisLayerBasic, 26 '设置选择图框线的图层
        CATIA.ActiveDocument.Selection.VisProperties.SetPick catUnpickable '设置选择图框线的可拾取性
        CATIA.ActiveDocument.Selection.clear '清除选择的图框线
End Sub
图框创建代码中加入中间那句代码
Sub CATDrw_Creation( targetSheet as CATIABase )
    CATColorGeometry 'To change the geometry color
End Sub