1. Пользоваться форумом на планшетах и телефонах стало удобнее благодаря Tapatalk

скрипт на прямоугольник

Тема в разделе "CorelDraw", создана пользователем -, 4 май 2006.

Модераторы: Артер
  1. Guest

    хорошо бы заиметь такой скрипт: при нажатии на кнопку "прямоугольник" появлялся бы запрос на размеры этого самого прямоугольника. После заполнения полей фигура бы размещалась, например, в центре листа.
     
  2. Guest

    Это как-то быстрей, двойного клика на инструменте прямоугольник и того же "заполнения полей"?
     
  3. LuiNet

    LuiNet Пользователь сайта

    С нами с:
    24.10.2006
    Сообщения:
    25
    Симпатии:
    0
    Баллы:
    2
    Ну прям как в иллюстраторе!
    F6 > рисуем любой прямоугольник > задаем размеры на панели свойств (напр. 100 >Tab> 100) > Enter > P. Все, он в центре листа.
    Что может быть проще, зачем еще скрипт?
     
  4. Guest

    после отрисовки прямоугольника "руками" и правки размеров некорректно выглядят скругленные углы :(
     
  5. LuiNet

    LuiNet Пользователь сайта

    С нами с:
    24.10.2006
    Сообщения:
    25
    Симпатии:
    0
    Баллы:
    2
    Да, это действительно важно. Можно включить привязку к сетке ( задав сетку, напр. 1 мм).
     
  6. Guest

    все это не подходит. в идеале было бы, если б после нажатия на инструмент "прямоугольник" поля "размеры" на Property Bar БЫЛИ АКТИВНЫ!!!
     
  7. Kerch

    Kerch Активный участник

    С нами с:
    13.09.2006
    Сообщения:
    63
    Симпатии:
    0
    Баллы:
    5
    Sub Start()
    Dim s As Shape
    If Application.Documents.Count = 0 Then
    MsgBox "Нет открытых документов.", vbOKOnly, "Нет документа"
    Exit Sub
    End If
    ActiveDocument.Unit = cdrMillimeter
    x = InputBox("Ширина", , 1)
    y = InputBox("Высота", , 1)
    Set s = ActiveLayer.CreateRectangle2(0, 0, x, y)
    SendKeys "p", True
    End Sub
     
  8. Guest

    уже что-то. Теперь бы еще привязать к кнопке, а кнопку вынести на Toolbox ;). Да, и `SendKeys "p", True` не работает почему-то
     
  9. Kerch

    Kerch Активный участник

    С нами с:
    13.09.2006
    Сообщения:
    63
    Симпатии:
    0
    Баллы:
    5
    blizzz Написал:
    -------------------------------------------------------
    > уже что-то. Теперь бы еще привязать к кнопке, а
    > кнопку вынести на Toolbox .

    Много раз обсуждалось как это делается. Ищите по форуму.

    >Да, и `SendKeys "p",
    > True` не работает почему-то

    Не работает если запускать из-под окна редактора VBA
    Если через Play то должно работать. Если конечно кнопка "P" не переназначена на другую команду.


     
Модераторы: Артер

Поделиться этой страницей