Dim drawDoc As DrawingDocument
drawDoc = ThisApplication.ActiveDocument
Dim segment As DrawingCurveSegment
segment = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Select a segment.")
Dim curve As DrawingCurve
curve = segment.Parent
Dim newColor As Color
newColor = ThisApplication.TransientObjects.CreateColor(255, 255, 200)
curve.Color=newColor
' Да, цвет меняет, но и меняет тип линии и толщину...