如何设置多线段颜色？

zzol9970

我想把一条多线段设置为红色，概要代码如下：
    Dim col As AcadAcCmColor
    Set col = New AcadAcCmColor
    col.SetRGB 255, 0, 0

     …………此处省略若干行
    Set objPline = ThisDrawing.ActiveDocument.ModelSpace.AddPolyline(ptArr)
    objPline.ConstantWidth = width
    objPline.TrueColor = col
    objPline.Update

但是运行结果失败，运行到第二行 Set col = New AcadAcCmColor就中断了，请大神指教！

pmq

objPline.Color = acRed  或  objPline.Color = 4