Chip 2004 April/CMCD0404.ISO/Software/Demo/conceptdraw/data1.cab/Samples__Basic/SimpleDrawing/DrawLines/DrawLines.cdb

Text File | 2004-02-13 | 6.1 KB | 131 lines

Sub DrawLines()
    Dim active_page As Page        'Ссылка на активную страницу активного документа.
    Dim new_Shape As Shape        'Ссылка на объект-шэйп, представляющий новый построенный прямоугольник.
    Dim line_color As Color        'Ссылка на объект Color для LineColor текущего объекта.

    'Получаем ссылку на активную страницу текущего документа.
    set active_page = thisDoc.ActivePage
    'Очистить документ от всех находящихся в нем сейчас шэйпов.
    active_page.RemoveAllShapes()

    'На активной странице создается новый объект-отрезок по координатам концов.
    'Ссылка на этот объект присваивается переменной new_Shape.
    Set new_Shape = active_page.DrawLine(150,820,350,1120)
    'Получаем ссылку на объект Color, содержащий информацию о цвете линии Shap'а
    Set line_color = new_Shape.PenColor
    'Устанавливаем цвет линии объекта, используя индексное представление цвета.
    line_color.Index = 1
    'Устанавливаем ширину линии объекта.
    new_Shape.PenWeight = 28
    'Устанавливаем Pattern линии объекта.
    new_Shape.PenPattern = 1

    'На активной странице создается новый объект-сектор окружности.
    'Создается по координатам концов и точки на окружности.
    'Ссылка на этот объект присваивается переменной new_Shape.
    Set new_Shape = active_page.DrawSector(150, 820, 350, 820, 250, 680)
    Set line_color = new_Shape.PenColor
    line_color.Index = 1
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawSector(150, 1120, 350, 1120, 250, 1300)
    Set line_color = new_Shape.PenColor
    line_color.Index = 1
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    'Создаем шэйп, изображающий линию типа Arc.
    'Построение шэйпа происходит между двумя функциями, объявляющими о начале
    'создания шэйпа (метод BeginShape объекта Page) и о завершении его создания
    '(метод EndShape объекта Page). Ссылка на строящийся объект присваивается
    'переменной new_Shape.
    Set new_Shape = active_page.BeginShape()
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1
    'Получаем ссылку на объект Color, содержащий информацию о цвете линии Shap'а.
    Set line_color = new_Shape.PenColor
    'Устанавливаем  цвет линии объекта используя RGB представление цвета.
    'Устанавливаем свойства для каждой составляющей RGB (Red, Green and Blue ) отдельно.
    line_color.Red = 255
    line_color.Green = 127
    line_color.Blue = 0
    'Задаеем координаты начала объекта
    active_page.MoveTo(810, 710)
    'От текущей точки, заданной методом MoveTo, строим Arc по координатам конца
    'и точки, лежащей на Arc.
    active_page.ArcTo(810, 1260, 460, 985)
    active_page.EndShape()

    Set new_Shape = active_page.DrawLine(810,660,810,1310)
    Set line_color = new_Shape.PenColor
    'Устанавливаем  цвет линии объекта используя RGB представление цвета.
    'Устанавливаем свойства для всех составляющих RGB одновременно.
    line_color.SetRGB(255,127,0)
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawLine(900,670,900,1310)
    Set line_color = new_Shape.PenColor
    line_color.SetRGB(255,191,0)
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawLine(1200,820,1200,1310)
    Set line_color = new_Shape.PenColor
    line_color.Index = 2
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawLine(1500,820,1500,1310)
    Set line_color = new_Shape.PenColor
    line_color.Index = 2
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawSector(900, 820, 1200, 820, 1050, 680)
    Set line_color = new_Shape.PenColor
    line_color.SetRGB(255,191,0)
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawSector(1200, 820, 1500, 820, 1350, 680)
    Set line_color = new_Shape.PenColor
    line_color.Index = 2
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawLine(1600,650,1600,1500)
    Set line_color = new_Shape.PenColor
    line_color.SetRGB(192,220,192)
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.BeginShape()
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1
    Set line_color = new_Shape.PenColor
    line_color.SetRGB(192,220,192)
    active_page.MoveTo(1600, 700)
    active_page.ArcTo(1600, 1250, 1900, 975)
    active_page.EndShape()

    Set new_Shape = active_page.DrawLine(2000,380,2000,1310)
    Set line_color = new_Shape.PenColor
    line_color.SetRGB(32,255,255)
    new_Shape.PenWeight = 28
    'Устанавливаем Pattern линии объекта. Выбираем одну из пунктирных линий.
    new_Shape.PenPattern = 10

    Set new_Shape = active_page.DrawSector(2666, 1220, 2766, 900, 2117, 900)
    Set line_color = new_Shape.PenColor
    line_color.Index = 120
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1

    Set new_Shape = active_page.DrawLine(2766, 900, 2117, 900)
    Set line_color = new_Shape.PenColor
    line_color.Index = 120
    new_Shape.PenWeight = 28
    new_Shape.PenPattern = 1
End Sub