zzol9970 发表于 2014-6-17 20:33:18

如何设置多线段颜色？

我想把一条多线段设置为红色，概要代码如下：
    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 发表于 2014-11-4 20:01:02

objPline.Color = acRed或objPline.Color = 4
页: [1]
查看完整版本: 如何设置多线段颜色？