[Linkor]

Добрый день! Гуру форума, подстажите, пожалуйста, как поменять цвет линии на vba на значение по слою.
Пишу lineobj.TrueColor.ColorIndex = acByLayer - не работает. В чём ошибка?

[Boxa]

Код:

[Выделить все]

Sub Example_TrueColor()
    Dim line As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
    Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    line.TrueColor.ColorIndex = 256
    ZoomAll
End Sub

[Linkor]

не помогает
у меня такой код:
Sub NormalBlock()
Dim obj As AcadObject
Dim block As AcadBlock
Dim col As AcadAcCmColor

For Each block In ThisDrawing.Blocks

nameBlk = block.name
If Left(nameBlk, 1) <> "*" Then
For Each obj In block
obj.Layer = "0"
obj.Linetype = "BYLAYER"
'Set col = obj.TrueColor

obj.TrueColor.ColorIndex = 256
obj.Lineweight = acLnWtByLayer
Next obj
End If
Next block

End Sub

[Boxa]

а автокад какой?
Если мне не изменяет память, то truecolor появился не так давно...

попробуйте так

Код:

[Выделить все]

Sub Example_TrueColor()
    Dim line As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
    Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    'line.TrueColor.ColorIndex = 256
    line.color = acByLayer
    ZoomAll
End Sub

Зы.
Думается мне что вы пытаетесь написать нормализатор блоков...
вот тут посмотрите готовый вариант http://forum.dwg.ru/showthread.php?t=66355
команда BGBLFIX - Нормализация блоков

[Linkor]

Acad2009, color работает, хотя в хелпе у объекта такого свойства нет.
Большое спасибо!
_______________
Пытаюсь, ага. Но я немного знаю vba, а лисп некогда изучать (может и стоило бы). А 10 строк написать10 минут (ну правда в этот раз труколор подкачал)