[dima_kuzminki]

Есть большая группа отрезков (или полилиний ) , более сотни, равной длины . Нужно С одного конца выделить участок в несколько метров (1/30 общей длины).
Как это сделать?
В конце концов устроило бы разбиение всех отрезков на равные части командой _divide но эта команда работает похоже только с одним объектом?
Объединение отрезков в группу не помогло,с группой команда не работает

[Boxa]

ИМХО, вполне очевидно, что готового решения нет и нужно писать программу, если задача разовая, то нужно ли это, НО...
но, если перевернуть задачу с ног на голову, то обычный пользователь может справится с задачей, без программирования, простым скриптом.
Примерно, как то так:
- взрываем/приводим все полилинии к простым линиям
- извлекаем данные (_DATAEXTRACTION) о начале и конце каждой линии (вершины полилинии увы не извлекаются таким способом)
- В Excel для каждой линии считаем координаты вершины отстоящей на расстоянии 1/30 длины линии от начала,тут посоветую вспомнить про вектора и не мучатся с теоремой Пифагора. Уточню, вектора проходят в 8-9 классах школы, так что это по силам каждому.
- Там же, в Excel, формируем scr файл, с помощью которого не делим одну линию на две части, а создаем две новые линии
- Запускаем scr файл в автокаде и получаем то, что хотели.

На форуме и вообще в интернете много информации как писать scr файлы, как работать в excel, так что все в Ваших руках.
Собственно все.

[dima_kuzminki]

Спасибо. Скрипт-файл ранее не создавал. Теоретически все понятно. Но неужели в пакетах утилит известных нет утилиты для деления для группы обьектов?

[Boxa]

Сообщение от dima_kuzminki Но неужели в пакетах утилит известных нет утилиты для деления для группы обьектов?

Задача достаточно специфическая. Вы конечно можете еще несколько дней искать или ждать, что Вам дадут ссылку на что-то подобное, или кто нибудь из местных самаритян напишет эту программу специально для Вас или в течении пары часов с нуля разобраться, как решать подобные задачи самому и поднять свой уровень владения автокадом на новый уровень.
Еще раз, все в Ваших руках.

[Сергей812]

А для начала надо определиться с условиями:

Сообщение от dima_kuzminki Нужно С одного конца выделить участок в несколько метров (1/30 общей длины).

Это команда _Measure

Сообщение от dima_kuzminki В конце концов устроило бы разбиение всех отрезков на равные части командой _divide

а это действительно команда _Divide.

Но это две разных команды.

[axoxc]

Может вас команда lengthen спасет? Скопировать все линии, первую часть сделать 29\30 длины, а вторую 1\30 длины, потом совместить.

[dima_kuzminki]

А lengthen работает с группой отрезков? Проблема именно в этом. Или тут только макрос поможет?

[Сергей812]

Сообщение от dima_kuzminki Проблема именно в этом. Или тут только макрос поможет?

Получаете из выделенных примитивов все отрезки:

Код:

[Выделить все]

 (ssget "_I" '((0 . "LINE"))))

а далее каждый примитив из полученного набора подставляете в нужную команду через ту же vl-cmdf. В инете найдете достаточно примеров кода - если хотите действительно решить задачу.

[Fogel]

А ещё есть команда масштаб (с опцией копирования) - брать за базу конец отрезка и давать 1/30 - ничего пересчитывать нигде не надо

[Сергей812]

Сообщение от Fogel А ещё есть команда масштаб (с опцией копирования) - брать за базу конец отрезка и давать 1/30 - ничего пересчитывать нигде не надо

для группы отрезков не укажешь одну базовую точку.

[Fogel]

Разумеется. Просто как вариант "действующего вещества". Взять все отрезки списком и обрабатывать в цикле по очереди

[Сергей812]

Сообщение от Fogel Разумеется. Просто как вариант "действующего вещества". Взять все отрезки списком и обрабатывать в цикле по очереди

тут еще вопрос встает - с какой стороны отрезка нужно отмерить 1/30 длины. В заголовке ветки мелькало про

Сообщение от dima_kuzminki (или полилиний ) , более сотни, равной длины

а как они расположены - тайна великая, похожа. Люди так боятся дать исходные данные полностью - будто кто-то украдет их "суперидею" и сделает на ней "состояние", что ли)

[koMon]

Сообщение от Boxa или кто нибудь из местных самаритян напишет эту программу специально для Вас

Сообщение от dima_kuzminki Скрипт-файл ранее не создавал.

а лиспами приходилось пользоваться?

[poobschatso]

Лисп Segment Curve от Ли Мака может подойдет?
http://www.lee-mac.com/segmentcurve.html

[kp+]

imho, этот лисп еще ближе к теме, а может даже то, что доктор прописал: http://www.urbanlisp.com/command/24/multiple-divide/

Offtop:

Сообщение от Сергей812 а как они расположены - тайна великая, похожа. Люди так боятся дать исходные данные полностью - будто кто-то украдет их "суперидею" и сделает на ней "состояние", что ли)

Обычно дело не в "охраняемых тайнах" и "суперидеях", а в "службах безопасности", которые "бдят", и которыми сейчас обзаводятся многие фирмы численностью более 3,5 человек, независимо от того, надо оно или нет. С другой стороны, далеко не всегда есть смысл выкладывать исходные данные на форум ПОЛНОСТЬЮ. В 99,9% случаев достаточно ХАРАКТЕРНОГО фрагмента, содержащего достаточно информации о проблеме и не содержащего никаких тайн - ни настоящих, ни воображаемых.

[koMon]

Сообщение от kp+ этот лисп еще ближе к теме, а может даже то, что доктор прописал

да как-то

[Сергей812]

Offtop:

Сообщение от kp+ в "службах безопасности", которые "бдят", и которыми сейчас обзаводятся многие фирмы численностью более 3,5 человек, независимо от того, надо оно или нет.

где так серьезно с СБ - там зачастую и инета нет на рабочих местах, и прямой эл.почты, и носители информации заблокированы)) А вообще есть древнее высказывание вида: чтобы задать правильный вопрос - надо знать половину ответа) Явно деление на 1/30 не является конечным требуемым результатом, имхо))

[kp+]

Сообщение от koMon да как-то

Да, согласен, платная медицина - зло. Но вот что прописал участковый районной поликлиники:
https://forums.autodesk.com/t5/visua...s/td-p/3893696

Код:

[Выделить все]

(vl-load-com)

(defun c:PointAtMid (/ *error* ss acDoc oSpace tab)

  (defun *error* (msg)
    (if acDoc
      (vla-endundomark acDoc)
    )
    (cond ((not msg))                                                   ; Normal exit
          ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
          ((princ (strcat "\n** Error: " msg " ** ")))                  ; Fatal error, display it
    )
    (princ)
  )

  (if (setq ss (ssget '((0 . "LINE,LWPOLYLINE"))))
    (progn
      (vla-startundomark
        (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
      )
      (setq oSpace
             (apply
               (if (setq tileMode (= 1 (getvar 'tilemode)))
                 'vla-get-modelspace
                 'vla-get-paperspace
               )
               (list acDoc)
             )
      )
      (setq tab (getvar 'ctab))
      (vlax-for x (setq ss (vla-get-activeselectionset acDoc))
        (vla-addpoint
          oSpace
          (vlax-3d-point
            (vlax-curve-getpointatdist x (* 0.5 (vla-get-length x)))
          )
        )
      )
      (vla-delete ss)
    )
    (prompt "\n** Nothing selected ** ")
  )
  (*error* nil)
)

пропорция разделения выделена красным.

[koMon]

Сообщение от kp+ платная медицина - зло

да этот платный доктор прямо-таки какой-то средневековый шарлатан. если продайджестировать, что он там понаписал в преамбуле, то получится следующее. я написал лисп, протестировал его на своём компе, скомпилировал его в fas и теперь его продаю его вам. лисп должен работать на вашем компе, но это не обязательно, на его работоспособность могут влиять разные факторы и это не моя проблема. потраченные деньги никогда не возвращаются, отчётные документы не предоставляются. купленный лисп работает 1 год, если вы заинтересованы в дальнейшем использовании лиспа вам нужно покупать его ещё раз. и тому подобное.

Сообщение от kp+ Но вот что прописал участковый районной поликлиники:

а этот участковый терапевт явно испытывает крен в сторону гомеопатии))) я бы сделал хирургическое вмешательство и почикал бы отрезки на кусочки)))

[kp+]

ТС говорит,

Сообщение от dima_kuzminki В конце концов устроило бы разбиение всех отрезков на равные части командой _divide

которая как раз ставит на линии точки (или блоки), как и рецепт участкового (только он ставит одну точку в заранее определенном месте).
Соответственно, участковый выдал вполне правильный рецепт.

Offtop:

Сообщение от koMon я бы сделал хирургическое вмешательство и почикал бы отрезки на кусочки)))

Ох уж эти хирурги! Все бы им резать и резать! Дадим таблетку - само отпадет! (С)