[Yuzer]

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

[Nike]

не могу понять, чем тебя не устраивает _divide

[Yuzer]

Всю цепочку действий нужно повторять в случае изменения числа объектов

[Nike]

ну удалил старые и снова - (command "_divide" Линия "_b" Блок Промежуток)
делов то..

[Yuzer]

Так я снова получу точки, в которые нужно вставить заново объекты

[Nike]

Опция "_b" вставляет вместо точек блоки, а блоками ты можешь распределить любую фигуру

[Yuzer]

Nike, меня устроит: выбрать объект/указать 2 точки/указать число раз

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

А что за объекты расставляешь?

[Yuzer]

когда как: отрезки, круги, блоки, в общем разное...

[Nike]

попробуй это (не помню откуда и чье)

Код:

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

(defun C:MASSIV1 ()
  (setvar "cmdecho" 0)
  (setvar "osnapcoord" 1)
  (prompt "\nВыберите объекты: ")
  (setq old_error *error*)
  (setq *error* ERR_)
  (setq
    LL (ssget)
    W  (entget (ssname LL 0))
    TN (cdr (assoc 10 W))
    S  (getreal "\n Шаг копирования: ")
  ) ;setq
  (setq
    UG (getangle "\n Направление копирования: <горизонтально> ")
  ) ;
  (if (= UG nil)
    (setq UG 0)
  ) ;if
  (setq
    L  (getdist "\n Участок копирования: ")
    Q  (fix (/ L S))
    TK (polar TN UG S)
    N  2
  ) ;_ end of setq
  (command "_.undo" "_be")
  (repeat Q
    (command "_.copy" LL "" TN TK)
    (setq
      S1 (* S N)
      TK (polar TN UG S1)
      N  (+ 1 N)
    ) ;_ end of setq
  ) ;repeat
  (command "_.undo" "_end")
  (setq *error* old_error)
)   ;setq
(defun ERR_ (msg)
  (command "_.undo" "_end")
  (setq *error* old_error)
  (princ)
) ;_ end of defun

[Yuzer]

Спасибо. Offtop: Вещь явно понравилась
Но тут задается шаг, а мне нужно равномерное распределение.

[superkot007]

Yuzer, есть "извратный" метод с привлечением Excel (ну Калькулятора на худой конец)
Разность координат точек делишь на n-1 (если требуется n объектов ВСЕГО). Получаешь т.н. "приращения" по осям. А дальше уже просто - через Массив задаешь расстояние между рядами/столбцами (для этого и требовалось считать "приращение"), угол наклона - и все...

В общем через ...., но когда "прямых" знаний не хватает, то вполне...

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

Создает точки, но модифицировать код, думаю, особого труда не составит:

Код:

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

(vl-load-com)

(defun test (/ adoc pt1 pt2 range step base ang)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (= (type (setq pt1 (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getpoint "\nПервая точка <Отмена> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           (= (type (setq pt2 (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getpoint pt1 "\nВторая точка <Отмена> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           (= (type (setq range (vl-catch-all-apply
                                  (function
                                    (lambda ()
                                      (getint "\nКоличество сегментов <Отмена> : ")
                                      ) ;_ end of lambda
                                    ) ;_ end of function
                                  ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'int
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (setq step (/ (distance pt1 pt2) range)
            base pt1
            ang  (angle pt1 pt2)
            ) ;_ end of setq
      (repeat range
        (entmakex (list (cons 0 "POINT")
                        (cons 10 (setq base (polar base ang step)))
                        ) ;_ end of list
                  ) ;_ end of entmakex
        ) ;_ end of repeat
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Yuzer]

Кулик Алексей, ну это уже не по моей части...

superkot007, действительно ацкий способ.

[Nike]

Сообщение от Yuzer Но тут задается шаг, а мне нужно равномерное распределение.

тогда так:

Код:

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

(defun C:MASSIV1 ()
  (setvar "cmdecho" 0)
  (setvar "osnapcoord" 1)
  (prompt "\nВыберите объекты: ")
  (setq old_error *error*)
  (setq *error* ERR_)
  (setq
    LL (ssget)
    W  (entget (ssname LL 0))
    TN (cdr (assoc 10 W))
    Q  (getint "\n Число копий: ")
  ) ;setq
  (setq
    UG (getangle "\n Направление копирования: <горизонтально> ")
  ) ;
  (if (= UG nil)
    (setq UG 0)
  ) ;if
  (setq
    L  (getdist "\n Участок копирования: ")
    S  (/ L Q)
    TK (polar TN UG S)
    N  2
  ) ;_ end of setq
  (command "_.undo" "_be")
  (repeat Q
    (command "_.copy" LL "" TN TK)
    (setq
      S1 (* S N)
      TK (polar TN UG S1)
      N  (+ 1 N)
    ) ;_ end of setq
  ) ;repeat
  (command "_.undo" "_end")
  (setq *error* old_error)
)   ;setq
(defun ERR_ (msg)
  (command "_.undo" "_end")
  (setq *error* old_error)
  (princ)
) ;_ end of defun

[Yuzer]

Спасибо!!!

[Jonas]

Давно пользуюсь, не помню чъя программа но премного благодарен.

[Yuzer]

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

Команда: copytr ; ошибка: no function definition: VLAX-GET-ACAD-OBJECT

Что делаю не так?

[Jonas]

Может не перезагрузил Акад?

[Елпанов Евгений]

Сообщение от Jonas Давно пользуюсь, не помню чъя программа но премного благодарен.

Внутри написано:

Copyright ©2004 Пётр Лоскутов (Alaspher)

[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, навалом всякого барахла. Всё отсюда да с кадюзера. А что интересует?

[Profan]

Да по слаботочке.

[Nike]

Вот такая шняга есть - http://dwg.ru/dnl/11426
Несколько простых функций линии рисовать да блоки нумеровать. Больше ничего.

[Profan]

Это я, кажись, стибрил уже.