[Скандербег]

Может кто встречался с таким артефактом и может пояснить где чего искать.
В скрипте лиспа, помимо всего прочего, есть команда копирования:

Код:

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

   (command "_.copy" pp (polar pp2 (dr 270) (* 0.1 d)) "" pp1 "М" n pp3 "") ; 1-вариант
;  (command "_.copy" "С" (polar pp (dr 80) (* 0.2 d)) (polar pp pi (* 0.2 d))  pp1 "М" n pp3 "") ;2 - вариант

Приведенные варианты отличаются разным способом выделения полилиний, которые затем копируются n-е количество раз (d - масштабный коэффициент).
Когда команда рисования применяется к новому чертежу (создается новый пустой файл чертежа), то ни первый, ни
второй варианты не срабатывают - не выделяют полилинии и вместо ожидаемого массива на чертеже пустота.
Стоит применить команду повторно на этом же чертеже (предварительно все нарисованное удаляется), то команда copy
работает нормально. Но только по первому варианту (объекты выделяются по точкам на линиях).
Во втором варианте линии не выделяются рамкой ни при каких обстоятельствах.

[Profan]

Сообщение от Скандербег В скрипте лиспа, помимо всего прочего, есть команда копирования: Код:

А в "скрипте лиспа" помимо всего прочего есть команда отрисовки полилиний, если уж речь идет о новом пустом чертеже?

[Скандербег]

Да, конечно, есть. Потому как при повторном выполнении команды (функции) копии линий появляются в нужном количестве.

[Profan]

А как может команда _COPY работать нормально, если "предварительно все нарисованное удаляется"?
Весь "скрипт" нельзя выложить?

[Скандербег]

Скрипт длинный. А удаляется все в модели командой (command "_erase" "_all" ""), а далее происходит рисование по новой всего
чертежа, где разумеется есть все нужные линии. Фрагмент, предваряющий копирование:

Код:

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

   (setq pp1 p23)
  (setq pp (polar pp1 (dr 270) (* 0.5 d)))
    (setq d1 (polar pp1 pi (* 0.15 d)))
  (setq pp2 (polar d1 (dr 90) (* 0.15 d)))
  (setq pp3 (polar pp1 pi (* 0.3 d)))
  (command "_.pline" pp pp1 pp2 pp3 "")
  (command "_.pline" pp2 (polar pp2 (dr 270) (* 0.65 d)) "")
  (command "_.copy" pp (polar pp2 (dr 270) (* 0.1 d)) "" pp1 "М" n pp3 "") 

----- добавлено через ~11 ч. -----
Привожу тестовый скрипт, при выполнении которого копирование ведет себя непонятно.

Код:

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

 (defun dr (a) (* pi (/ a 180.0)))

(defun C:ktst ()
  (command "_erase" "_all" "")
  (setq p (getpoint "\nВведите координаты точки: "))
  (setq
    p1 (polar p (dr 90) 10)
    p2 (polar p1 (dr 135) 3)  
    p3 (polar p2 (dr 225) 3)  
  )
  (command "_.pline" p p1 p2 p3 "")
  (command "_.copy" p "" p1 "М" 5 p3 "")

  (command "_zoom" "_e")
)

Условия: Autocad 2013 (руссифицированный).
В автокаде создается пустой файл чертежа. Загружается скрипт (файл назван ktst.lsp).
Выполняется команда "ktst". Вместо 5-ти копий вижу одну нарисованную полилинию.
Команда выполняется повторно ничего не меняя в скрипте: появляются все 5 копий.
В этом для меня и загадка.

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

1. Привязки.
2. Локализация переменных.

[Скандербег]

Уже было сделано.
Привязки отключены (setvar "OSMODE" 0).
Переменные локализованы (defun C:ktst (/ p p1 p2 p3)...
Увы. История точно такая же - на новом чертеже копий нет.
Может опытных разработчиков такой факт натолкнет на мысль:

Код:

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

 (defun C:ktst (/ p p1 p2 p3)
  (command "_erase" "_all" "")
  (setvar "OSMODE" 0)
  (setq p (getpoint "\nВведите координаты точки: "))
  (command "_zoom" "_e") ;<---
  (command "_.line" p (polar p (dr 90) 1) "");<---
  (command "_zoom" "_e");<---
  (setq
    p1 (polar p (dr 90) 10)
    p2 (polar p1 (dr 135) 3)  
    p3 (polar p2 (dr 225) 3)  
  )
  (command "_.pline" p p1 p2 p3 "")
  (command "_.copy" p "" p1 "М" 5 p3 "")
  (command "_zoom" "_e")
)

Три дополнительных команды (отммечены <---) каким-то образом влияют на копирование и все копии появляются на новом чертеже.
Но, понятно, что это не дело.

[Profan]

Я думаю, что здесь не "непонятное поведение соманды "_COPY", а некорректный способ выбора объектов.

[Скандербег]

Не возражаю. Надо было как-то назвать тему. Тоже заметил, что именно в выборе проблема.
С другой стороны, почему выбор объекта по точке на нем - некорректен?
И как тогда корректно выбрать объекты?

[VVA]

Скандербег, Поясни, что за опция "М" в команде копирования?

Код:

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

(command "_.copy" p "" p1 "М" 5 p3 "")

Сообщение от Скандербег И как тогда корректно выбрать объекты?

Запоминать.

Код:

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

(defun dr (a) (* pi (/ a 180.0)))
(defun C:ktst (/ p p1 p2 p3 ss i len)
  (command "_erase" "_all" "")
  ;;; (setvar "OSMODE" 0)
  (if (setq p (getpoint "\nВведите координаты точки <вход>: "))
    (progn
      (setq ss (ssadd)) ;_Создаем пустой набор
      (command "_zoom" "_e") ;<---
      (command "_.line" "_non" p "_non" (polar p (dr 90) 1) "");<---
      (ssadd  (entlast) ss) ;_добавляем линию к набору
      (command "_zoom" "_e");<---
      (setq
        p1 (polar p (dr 90) 10)
        p2 (polar p1 (dr 135) 3)
        p3 (polar p2 (dr 225) 3)
        len (distance p1 p3)
        i 0
        )
      (command "_.pline" "_non" p "_non" p1 "_non" p2 "_non" p3 "")
      (ssadd  (entlast) ss) ;_добавляем полилинию к набору
      (repeat 5
        (command "_.copy" ss "" "_non" p1 "_non" (polar p1 0 (* (setq i (1+ i)) len)))
        (while (> (getvar "CMDACTIVE") 0) (command ""))
        )
      (command "_zoom" "_e")
      )
    )
)

[Скандербег]

что за опция "М" в команде копирования?

В русскоязычном Автокаде это "Массив" (в старых англоязычных версиях, насколько помню, был "Array"). Именно эта опция и позволяет обходится без цикла.
Почему в моем автокаде проходит смесь латинских и русских опций и названий команд я, конечно, не знаю, но работает.

Спасибо за подсказку. Попробую. "Запоминать" в голову приходило, но как это делать не нашел.

----- добавлено через ~29 мин. -----
VVA, "запоминание" срабатывает отлично. Спасибо большое.

Не подскажете решение похожей проблемы выбора объектов в команде TRIM.
Нужно обрезать линии, которые я тоже в лиспе выбираю точками на них.
Отсюда та же проблема - на новом чертеже объекты не выбираются и линии не обрезаются (на уже "запачканном" чертеже обрезка идет нормально).
Но в этой ситуации, как я понимаю, запоминание объектов не поможет, т.к. нужно выбирать именно точку в том месте линии, которая идет под обрезку.
Здесь может помочь выбор объекта рамкой, но с опциями рамки для выбора объектов не разобрался - объекты не выбираются.
Какие на самом деле опции нужны для выбора с рамкой?

[VVA]

Сообщение от Скандербег В русскоязычном Автокаде это "Массив"

Моя рабочая лошадка пока 2009. Похоже массив появился позднее

Сообщение от Скандербег Не подскажете решение похожей проблемы выбора объектов в команде TRIM. ... Но в этой ситуации, как я понимаю, запоминание объектов не поможет т.к. нужно выбирать именно точку в том месте линии, которая идет под обрезку.

Поможет, но запоминать нужно другим способом: имя примитива и точка. Команде trim нужно передавать список в таком же виде, какой возвращает функция (entsel)
Информация для анализа
trim и offset из сценария scr пост #4 п.5
Программный TRIM пост #8 последняя строчка

[Скандербег]

Спасибо большое. Замечательный материал. Получилось справиться со всеми вылезающими болячками.