[Yuzer]

Здравствуйте.
Сегодня столкнулся с трудностью: между двумя точками на одинаковом расстоянии нужно вставить n объектов.
Рисую линию, делю ее и вставляю по точкам объекты. Процесс долгий, тем более если количество объектов потом нужно менять (т.е. я их удаляю и заново повторяю процедуру).
Подскажите, пожалуйста, решение.

[Diman111]

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

Код:

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

(DEFUN C:dividecopy (/)
  (setvar "cmdecho" 0)
  (setq ss (ssadd))
  (setq ss (ssget))
  (setq pt1 (getpoint "\nНачальная точка: "))
  (setq pt2 (getpoint pt1 "\nКонечная точка: "))
  (setq dist (DISTANCE pt1 pt2))
  (setq alfa (ANGLE pt1 pt2))
  (setq N-divide (getint "\nКоличество копий: "))
  (setq dist-divide (/ dist (1+ N-divide)))
  (setq dist-divide-i dist-divide)
  (setq  i 1)
  (while (<= i N-divide)
    (setq Next-divide-pt (polar pt1 alfa dist-divide-i))
    (command "_.COPY" ss "" pt1 Next-divide-pt)
    (setq dist-divide-i (+ dist-divide-i dist-divide))
    (setq i (1+ i))
  )
  (setvar "cmdecho" 1)
  (princ)
)

[VVA]

Сообщение от Yuzer C этим лиспом не получается... Подгрузил лисп, прописываю в строке: copytr Что делаю не так?

Подредактируй немного файл. Добавь выделенное красным. И почитай здесь Что такое это (vl-load-com) ?

Код:

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

(defun c:copytr ()
  (vl-load-com)
  (pl:copytr)
  (princ)
)

[Yuzer]

Спасибо огромное!

[VVA]

Yuzer, Еще есть CopyM из Express Tools

Command: COPYM Select objects: Select the objects to be copied Base point: Specify a base point Second point or [Repeat (last)/Divide/Measure/Array (dynamic)/Undo] <exit>:

Там и Divide и Measure. Исправленная версия от Алексея
Может будет интересен еще оди вариант: Alternative copy

[Yuzer]

VVA, в экспресах удобно, что есть базовая точка. Спасибо - не знал.
Если честно, то не понял в чем отличие версии Алексея (проверял на скорую руку).
Alternative copy подгрузил, но запустить не получилось (результат появился при заключении в скобки (nc), хотя должно было запустится сразу:

Команда: nc Неизвестная команда "NC". Для вызова справки нажмите F1. Команда: (nc) ; ошибка: no function definition: NC

[Nike]

Сообщение от Yuzer Команда: nc Неизвестная команда "NC". Для вызова справки нажмите F1.

может все-таки "new-copy"? Где ты там нашел "NC"

[Yuzer]

Nike, начало лиспа:

defun c:nc ( / ss start next adoc _cmdecho oBjLst)

тем более по ссылке VVA есть маленький видеоролик

p.s. new-copy я тоже пробовал.

[Nike]

аа, код со второй страницы..
У меня работает

[VVA]

Сообщение от Yuzer Если честно, то не понял в чем отличие версии Алексея (проверял на скорую руку).

Ни в чем. Та тема называется "Ошибки Express Tools". В #27 посте была описана проблема. Будем надеяться, что Алексей ее исправил.

Сообщение от Yuzer Alternative copy подгрузил, но запустить не получилось

Там 2 NC. Ты грузил этот? Может плохо скопировал? Иногда не захватывается скобка в начале или конце кода

[Yuzer]

Часть не копирнулась.
Спасибо за разъяснения.

[gomer]

Сообщение от Yuzer Что делаю не так?

Все так...
в программе отсутствует функция (vl-load-com)
Ой, Можно ли сделать, чтоб сразу к новому можно было переходить... Или сообщения удалять? Хотя б последнее

[Кулик Алексей aka kpblc]

Сообщение от gomer сразу к новому можно было переходить...

См.аттач.

Сообщение от gomer Или сообщения удалять? Хотя б последнее

Я случайно создал тему не в том разделе или случайно продублировал тему / пост. Что делать?

[Garand]

Здравствуйте!
Имеется несколько иная задача: нужно расставить объекты через задаваемый интервал на определенном отрезке, но так, чтобы этот массив объектов разместился равноудаленно от его концов. (т.е., симметрично центру). Кто-нибудь сможет предложить решение? (а если еще такое же распределение по площади - вообще будет супер).

[Любознательный]

Большая просьба доработать код программы kpblc'а (разрешение автора имеется) test, приведенной на http://forum.dwg.ru/showpost.php?p=580435&postcount=13, добавив проверку и выполнение следующего:
1 если дистанция между точками меньше или равна 10400, то количество сегментов 2,
если больше 10400, но меньше или равна 20800, то количество сегментов 4,
если больше 20800, но меньше или равна 31200, то количество сегментов 6 и т.д.
2 удалить все четные точки.

Если интересует для чего это - для прикидки расположения дымовых датчиков пожарной сигнализации на плане помещения, нормируемое максимальное расстояние от датчика до стены 5,3 м, между датчиками 10,5 м.

Буду премного благодарен.

[Nike]

Любознательный, мож тебе готовую программу подкинуть? http://dwg.ru/dnl/522

[Любознательный]

Спасибо, изучаю.

[Profan]

Nike, а еще какие-нибудь у тебя сырые проги есть?

[Nike]

Profan, есть одна.
"nanoCAD" называется.

[Profan]

Тьфу, блин.

[Nike]

Profan, навалом всякого барахла. Всё отсюда да с кадюзера. А что интересует?