Результаты поиска

Ответ: SmartBreakApart - макрос для раскомбинирования очень сложных объектов. Так там тема изначально называется "How to detect holes in combined curve objects?". У ТС проблема была именно в том, что и Вы написали: при разъединении формы-контейнеры заливались сплошь, и...

Ответ: SmartBreakApart - макрос для раскомбинирования очень сложных объектов. Да, я нашла эту тему на англоязычном форуме, они там решают проблему дырок (ну или формы-матрешки, Russian dolls). Попробовала написать свой вариант, без сортировки по размерам (она по-любому кажется тут лишней)...

Ответ: дублируется абрис Не преобразовывая абрис в самостоятельный объект? да, сейчас попробовала, получается, спасибо.

Ответ: дублируется абрис То есть вообще-то абрис нужно бывает преобразовывать в объект, например, для гравировки по контуру. Как тогда все же избежать дублирования линий?

Ответ: дублируется абрис например, в каких случаях? Быстрее же скопом?

Ответ: дублируется абрис понятно, спасибо

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

Ответ: SmartBreakApart - макрос для раскомбинирования очень сложных объектов. Читаю, не могу въехать в алгоритм, вроде бы проверяется расположение объектов друг относительно друга и т.п. А как разбивка-то происходит? Наверное, я бы проще сделала - все сложные объекты по несколько раз...

Ответ: как нарисовать дугу под уклоном? Позже сообразила, что поторопилась. Вот так правильней: Dim s1 As Shape Dim i As Long, iE As Long Dim x As Double x = 20 For i = 1 To 5 Set s1 = ActiveLayer.CreateRectangle(x * (i - 1), x, x * i, 0) Next i iE = ActiveLayer.Shapes.Count Set s1 =...

Ответ: как нарисовать дугу под уклоном? Вы, во-первых, зря присваиваете переменными имена методов. Хоть бы iCount какой-нибудь.Во-вторых, сколько у Вас фигур? Конечно, цикл работает быстрее без постоянного пересчета, но это имеет значение при больших объемах вычислений. У Вас можно как-то так...

Ответ: как нарисовать дугу под уклоном? честно говоря, насчет weld и прочих средств у меня сомнения. Откуда я знаю, в какую сторону ориентирован этот эллипс? А вдруг противоположно моей кривой? Я их объединю, а фреза потом начнет прыгать туда-сюда. Или нет? Или в арткаме рассыплется внезапно...

Ответ: как нарисовать дугу под уклоном? да, хорошенький вопрос, а куда ставить тот вспомогательный узел, из которого потом получится дуга? То есть по условной горизонтали понятно - в центре воображаемой окружности, то есть радиус примерно от предыдущей точки. Но по условной вертикали...

Ответ: как нарисовать дугу под уклоном? Большое спасибо! Fillet вроде бы работает. Она тут предпочтительней, так как все в одном объекте и так как можно задать радиус (с cdrSmoothNode я не знаю, можно или нет) И на вс. случай: после вызова Fillet количество узлов в кривой увеличивается. Я их...

Ответ: как нарисовать дугу под уклоном? я отказалась от обработки subpath как объектов, по следующим соображениям (возможно, неверным) мне для управляющей программы фрезеровки нужна сплошная последовательная линия. Поэтому все ее участки создаются как последовательные subpath. Конечно, можно...

Нужно программными средствами рисовать дуги. Простая дуга (полукруг на горизонтальной линии) у меня получилась. Вот так: rad = 50 otr = rad * 0.55 xAb = 0 yAb = 0 ugol = 90 plecho = rad / 3 Set crv = CreateCurve(ActiveDocument) Set sp = crv.CreateSubPath(xAb - plecho, yAb)...

Ответ: макрос или автоматизация проектирования упаковки Это как раз то, чем я сейчас занимаюсь - типа задаешь всякие параметры, а Corel рисует по ним полностью раскрой (кучу линий). Оно вообще для фрезеровки предполагается, ну неважно. У меня только все формулы в Corele, вроде так проще, чем...

Ответ: Числовые значения при редактировании узлов Я, наверное, не понимаю, в чем вопрос, вот же код: Dim s As Shape, n As Node Set s = ActiveLayer.Shapes(1) Set n = s.Curve.Nodes(1) n.SetPosition 0, 0 а если массово менять, то понять алгоритм смены и сделать обработку массива...

Ответ: Автоматизация Баркодов Если еще актуально, то я так делаю: striBar = "2" ' - ehto 1 цифра Do Until Len(SNum) = 7 SNum = "0" & SNum ' - это системный номер артикула Loop Do Until Len(pcsQu) > 3 pcsQu = "0" & pcsQu ' - это количества Loop striBar = striBar & SNum & pcsQu 'For i...

Ответ: Заполнение фигуры рисунком Я знаю два способа: матричное заполнение и концентрическое. При обоих создаются линии в границах объекта, которые потом преобразуются в цепочки маленьких объектов (кружочков или чего-то еще, неважно). Коды такие: Sub MATRIXizPOLOSOK() ' - MATRIX 2...