Недавний контент ekali

  1. E

    SmartBreakApart - макрос для раскомбинирования очень сложных объектов.

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

    SmartBreakApart - макрос для раскомбинирования очень сложных объектов.

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

    дублируется абрис

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

    дублируется абрис

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

    дублируется абрис

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

    дублируется абрис

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

    дублируется абрис

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

    SmartBreakApart - макрос для раскомбинирования очень сложных объектов.

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

    как нарисовать дугу под уклоном?

    Ответ: как нарисовать дугу под уклоном? Позже сообразила, что поторопилась. Вот так правильней: 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 =...
  10. E

    как нарисовать дугу под уклоном?

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

    как нарисовать дугу под уклоном?

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

    как нарисовать дугу под уклоном?

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

    как нарисовать дугу под уклоном?

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

    как нарисовать дугу под уклоном?

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

    как нарисовать дугу под уклоном?

    Нужно программными средствами рисовать дуги. Простая дуга (полукруг на горизонтальной линии) у меня получилась. Вот так: 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)...