• На форуме с 7 ноября 2008г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как менять цвет объектов Автокада в VBA?

Черчу кривые в Автокаде с помощью AcadLWPolyline в VBA. По-умолчанию полилинии чертятся чёрным цветом. Пытался менять цвет с помощью TrueColor  (PLine.TrueColor.ColorIndex = acGreen или PLine.TrueColor.SetRGB 1, 250, 1) - не получается. Как же всё-таки изменять цвет полилинии?

  • AlexV
  • Активный участник
  • Откуда: С-Пб
  • На форуме с 19 июня 2003г.
  • Сообщений: 330
  • Спасибо: 4

Re: Как менять цвет объектов Автокада в VBA?

А зачем TrueColor? Можно же просто через .color

Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
plineObj.color = acGreen

Если использовать TrueColor, то судя по справке:

Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")'или "AutoCAD.AcCmColor.17" и т.д.
Call color.SetRGB(80, 100, 244)
plineObj.TrueColor = color