стыковка объектов

soloman / 21.06.2014, 17:34
Форум: 
CorelDRAW
Версия программы: 
17.0.0.491

Всем привет! Часто приходится собирать много файлов в один для печати на широкоформатном плоттере и всегда есть неудобство при сборке, связанное со стыковкой объектов. Например, есть два прямоугольника, разных, мне необходимо, чтобы они соприкасались своими сторонами. Есть ли какой-то докер для этого, а toe лучше hotkey? Спасибо!

dastin / 21.06.2014, 22:47

посмотрите ecut
а также прямоугольный раскрой - если действительно опрямоугольниках речь - описания там нет, но можете оценить в пробном режиме

soloman / 21.06.2014, 23:50

2000 рупий? Совершенно не готов. А что в кореле нет такой команды?

Sancho / 22.06.2014, 00:40

CdrToolsEx, функция Distribute Objects, 300р

shark / 24.06.2014, 22:23

давно, когда еще только начинал осваивать VB, написал простенький макрос, который располагает выделенные объекты друг за другом. Делюсь:

Sub ArrangeRight()
    Dim sr As ShapeRange
    Dim cnt As Integer
    Dim x#, y#, w#, h#, x1#, y1#, w1#, h1#, w2#, h2#
    Set sr = ActiveSelectionRange
    If sr.Count < 2 Then Exit Sub
    ActiveDocument.ReferencePoint = cdrTopLeft
    ActiveDocument.BeginCommandGroup "Arrange_right"
    For cnt = 2 To sr.Count
        sr(cnt - 1).GetBoundingBox x, y, w, h, True
        sr(cnt).GetBoundingBox x1, y1, w1, h1, True
        sr(cnt).GetSize w2, h2
        If (w1 - w2) > 0 Then ' add width of outline
            w1 = (w1 - w2) / 2
            h1 = (h1 - h2) / 2
        Else
            w1 = 0: h1 = 0
        End If
        sr(cnt).SetPosition x + w + w1, y + (h - h1)
    Next cnt
    ActiveDocument.EndCommandGroup
End Sub
soloman / 25.06.2014, 00:41

Спасибо! Надеюсь удастся поставить. А как располагает, встык?

shark / 25.06.2014, 02:30

располагает встык, друг за другом с учетом толщины контура. Все объекты располагаются в порядке выделения справа за последним выделенным. Поскольку сам работаю с широкоформатной печатью, то часто пользуюсь несколькими макросами для компоновки макетов друг за другом или на некотором расстоянии между ними

soloman / 25.06.2014, 02:47

Может еще что-то для кроя посоветуете? Очень хочется оптимизировать работу.

shark / 25.06.2014, 16:02

посоветовать ничего не смогу, ибо не пользуюсь сторонними макросами, а пишу свои

soloman / 25.06.2014, 16:12

А ваш макрос только по правой стороне делает группировку? Или может по нижней части?

shark / 25.06.2014, 19:38

чтобы объекты располагались по нисходящей друг за другом замените строчку с SetPosition на
.SetPosition x + w1, y - h1. Это перемещение объекта на указанные координаты. Где-то тут на форуме есть мой старый макрос Numeranger, с его помощью можно располагать объекты по рядам/столбцам и задавать расстояние между ними

Страницы