[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)