[BAX]

Как сделать команду copy многоразовой??? Подскажите плиз...

[Torino]

Ты имеешь ввиду многоразовой по-умолчанию? Как в 2005-м Акаде?
Если да, то посади на кнопку макрос ^C^C_select;\_copy;p;;m;

[BAX]

Спасибо, именно это я и имел в виду =)

[Эдуард]

Существует команда multiple которая позволяет
зациклить любую другую команду до выхода
из нее по ESC.

А именно: $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_copy)

[Torino]

Идея такая:
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_copy)

Если что-то в данный момент выделено, то запускается команда _COPY.
Если ничего не выделено, то запускается команда ^C^C_COPY.

Но проблема в том, что я не знаю, как в дизеле написать последовательность команд.
Этот вопрос лучше задать Вове.

[vk]

>Torino
А при чем тут дизель? Аргументы дизельных выражений разделены запятыми, а в последовательностях команд используется пробел или точка с запятой. Можно просто перечислить все команды, которые нужны в цепочке.... Или я чего то не понимаю...

>All
Еще один способ зациклить команду или последовательность - звездочка в начале

Код:

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

*^C^C_.copy

К сожалению, в редких случаях не работает.

[Torino]

>>vk
Я тоже так думал и сделал вот такую кнопку:
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_select;\_copy;p;;m;)

Работать, как и ожидалось, она не хочет :(
Думаю проблема в операторе if (полагаю он не переваривает несколько последовательных команд).
Может быть есть какой-нибудь оператор, объединяющий несколько команд? (типа PROGN в Лиспе)

[plaz]

1. сделал комбинацию (вариант если объект уже выделен): _copy m; Посадил на кнопочку - работает, вставляю в исходный - не работает.
2. комбинация

Код:

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

$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_select;\_copy;p;;m;)

естественно не работает, а

Код:

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

$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_copy;\\m;)

работает, но позволяет выбрать только один объект

Короче фигня получается. Ну где же это Vova
[sm2600]

[plaz]

А как этот макрос выглядит в Acad2005 :?:

[vk]

фигню написал, поэтому убрал

[Vova]

Разобраться в хитросплетениях языка DIESEL может только программист, коим я не являюсь. Тот, кто обратит свой взор в сторону DIESEL, со временем получит преимущество перед чистым лисповиком. Это произойдет когда широкое распространение получит дешевый LT. Я же пользователь и мои знания программирования поверхностны. Поэтому и попытки исследования этого вопроса скорее дилетантские, чем профессиональные.
Слово "Grip" в макросе наводит на мысль о зависимости исполняемой команды от предварительного выделения об-екта грипсами (ручками). Но быстро выясняется, что это не влияет на работы команды Copy, а также команд Move, Rotate, Scale и Stretch, макросы которых похожи. Только переменная Pickfirst влияет на это. Значит, цель макроса другая?.
Давайте препарируем выражение DIESEL из макроса, начиная с внутренних скобок.
$(getvar,cmdnames) выдает имена текущих команд. А ими может быть в том числе и прозрачная команда. (Но когда запускается макрос может ли работать какая-нибудь команда? Хотя ^C^C не стоит в начале макроса)
$(substr,$(getvar,cmdnames),1,4) Эта функция возвращает часть текстовой строки, в данном случае часть имени текущей команды, причем строка состоит из 4-х букв, начиная с первой.
$(eq,$(substr,$(getvar,cmdnames),1,4),grip) Функция Eq, по-видимому происходит от Equal, равный. Она сравнивает 4-х буквенное слово, вытащенное из имени команды в предыдущем действии, со словом «Grip» (И где-же она пытается найти такое слово?). Если такое совпадение произошло, функция выдает 1, а если нет, то 0.
И последняя функцие If (Если) За ней стоят два варианта команды _Copy и ^C^C_Copy. Если функция If получает 1, должна сработать первая команда, а если 0, то вторая.
Чтобы убедиться в правильности этой логики я сделал следующее: Вместо Copy подставил Erase, сначала до ^C^C, а потом после. И убедился, что всегда исполняется вторая команда. И даже если вместо команды подставить какой-то сложный работающий макрос, он и исполниться. Как будто совсем нет здесь выражения DIESEL!Значит, если логика верна, функция If всегда выдает 0, то есть не находит действующей на данный момент команды, первые 4 буквы имени которой есть Grip. При каких обстоятельствах такая команда может появиться?
А может, моя логика неверна...
Напоминаю для исследователей, что проверить работу выражений DIESEL можно через Modemacro. А с чем ее кушать, почитайте здесь
http://www.cad.dp.ua/stats/content.p...nt=diesel.html Это глава из моей книги, которую, как будто,на нашем форуме не очень читают, хотя я получаю хорошие отзывы. А книга, между прочим, учит логически мыслить

[Vova]

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

[plaz]

Так какже , все таки, этот макрос выглядит в Acad2005 :?: :?: :?:

[Vova]

Макрос Copy в 2005 такой-же $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_copy)

[plaz]

Так в чем же разница? Почему они ведут себя по разному?

По моему копирование зацикливается гораздо проще
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),grip),_copy,^C^C_copy) _m
(т.е. к стандартной команде в конце подписывается _m)
только объект нада выделить до того как нажмешь на кнпку

я думаю в 2005 появилась эта самая grip и теперь все работает, хотя ндо проверить. 2005-го у меня нет

[Vova]

Вован> Хорошо не получается: 1. Для одноразового копирования нет выбора рамкой. 2. После выбора объектов (поштучно) надо дважды щелкнуть ПК (чтобы пропустить запрос на "М"). 3. Для множественного копирования надо предварительно выделять. Не слишком ли много условностей? Надо выбрать для себя, чем вы пользуетесь чаще-многоразовой или одноразовой Copy, и такую кнопку себе оставить. Вот если бы кто-то разгадал, зачем в команде DIESEL, если и без него получается...

Насчёт дизеля не знаю, но, если интересует результат, может быть(?) вот так обойтись:

Код:

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

^C^C^P(ssget)(vl-cmdf "_.copy" "_p" "" "_m")(while (not (zerop (getvar "cmdactive")))(vl-cmdf pause))(princ)

[plaz]

Вроде все работает, и вроде без глюков. Спасибо

[Vova]

Здесь цитата из второго постинга этой темы: "Ты имеешь ввиду многоразовой по-умолчанию? Как в 2005-м Акаде?
Если да, то посади на кнопку макрос ^C^C_select;\_copy;p;;m;"
Чем последний вавариант (Alaspher) отличается от первого (Torino)?

[Vova]

Поспешил. Разница есть в предварительном выборе. Лисп работает универсальней

[Vova]

http://www.autocad.ru/cgi-bin/f1/board.cgi?t=13017ar

[Vova]

Сообщение от Alaspher Насчёт дизеля не знаю, но, если интересует результат, может быть(?) вот так обойтись: Код: [Выделить все] ^C^C^P(ssget)(vl-cmdf "_.copy" "_p" "" "_m")(while (not (zerop (getvar "cmdactive")))(vl-cmdf pause))(princ)

В отличие от макроса ^C^C_select;\_copy;p;;m;, который не работает, если сначала выделить объекты, вариант Alasper может копировать и заранее выделенные объекты. Но есть другая напасть. Команда Pan (ладонь) во время действия команды превращается в -Pan и работает как в старых версиях. А это уже неудобно-к хорошему быстро привыкаешь. Так что из двух зол я бы выбрал меньшее, то есть макрос ^C^C_select;\_copy;p;;m; Но есть вариант без неудобств, команда из Express Copym о которой все забыли.
Кстати, команда (-Pan) очень удобна чтобы двигать модель во Viewports и вообще когда надо, потому-что она слушается Ortho и Osnap. Я ее часто использую.

[plaz]

В отличие от макроса ^C^C_select;\_copy;p;;m;, который не работает, если сначала выделить объекты, вариант Alasper может копировать и заранее выделенные объекты. Но есть другая напасть. Команда Pan (ладонь) во время действия команды превращается в -Pan и работает как в старых версиях. А это уже неудобно-к хорошему быстро привыкаешь.

А в чем проблема? Крутил и так и эдак, не могу получить Вашего результата. Pan через колесо работает отлично!

[Vova]

Я имел в виду взять Pan не через колесо (у некоторых мышей оно тугое) а с кнопки. Кроме того, долго держать колесо прижатым -а бывает, надо на другой конец чертежа идти- палец устает, даже если оно и не очень тугое.

[Соня]

Самое интересно, что автор вопроса остался доволен уже после ПЕРВОЙ реплики вас то куда понесло?

[Torino]

Если бы не понесло, то не появилось бы решение в виде "^C^C^P(ssget)(vl-cmdf "_.copy" "_p" "" "_m")(while (not (zerop (getvar "cmdactive")))(vl-cmdf pause))(princ)" (© Alaspher)
Которое меня, например, кое-чему научило

[plaz]

Сообщение от Vova Я имел в виду взять Pan не через колесо (у некоторых мышей оно тугое) а с кнопки. Кроме того, долго держать колесо прижатым -а бывает, надо на другой конец чертежа идти- палец устает, даже если оно и не очень тугое.

Ну это кто как привык, по мне так проще тем же самым колесом откатить zoom'ом назад, а затем приблизить в уже нужное место. Дело привычки.

[Vova]

Сообщение от plaz Ну это кто как привык, по мне так проще тем же самым колесом откатить zoom'ом назад, а затем приблизить в уже нужное место. Дело привычки.

Я так и делаю. Но если в программе есть ограничения, это уже не хорощо

[Torino]

>>Vova
По совету Эдуарда в этом случае (и вообще при работе лисп-приложения) надо пользоваться аналогом команды PAN, командой RTPAN (а также ZOOM -> RTZOOM)
А еще лучше колесом мыши.

[plaz]

Сообщение от Vova Но если в программе есть ограничения, это уже не хорощо

Ограничения будут всегда. Надо либо к ним приспосабливаться, либо как то их обходить, возможно не всегда самым оптимальным способом. В этом макросе, хоть и не без помощи Лиспа, очень хорошо решена проблема "select - command" и наоборот. Для меня это наиболее важно чем PAN.

2Torino & 2All:
А што это за команда RTPAN? С командной строки работает без нареканий, а вот в Хелпе про нее ни слова!

[Alaspher]

Сообщение от plaz А што это за команда RTPAN? С командной строки работает без нареканий, а вот в Хелпе про нее ни слова!

Если мне не изменяет память, это команды времён R13 - тогда обычный PAN был, как нынешний -PAN.

P.S. "RT..." - означает 'Real Time'

[Джек]

Сообщение от Torino Ты имеешь ввиду многоразовой по-умолчанию? Как в 2005-м Акаде? Если да, то посади на кнопку макрос ^C^C_select;\_copy;p;;m;

А как это будет выглядеть в лиспе?

[Кочетков Андрей]

>>Джек

Взято с предыдущей страницы.

By Alaspher:

Код:

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

^C^C^P(ssget)(vl-cmdf "_.copy" "_p" "" "_m")(while (not (zerop (getvar "cmdactive")))(vl-cmdf pause))(princ)

[Джек]

Сообщение от Кочетков Андрей >>Джек Взято с предыдущей страницы. By Alaspher: Код: [Выделить все] ^C^C^P(ssget)(vl-cmdf "_.copy" "_p" "" "_m")(while (not (zerop (getvar "cmdactive")))(vl-cmdf pause))(princ)

Я имею ввиду не в макрасе , а в лиспе. :roll:

[VVA]

Убери ^C^C^P, останется лисп

Код:

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

(ssget) ;;;Выбор объектов. Объекты заносятся 
           ;;;в текущий (_previous) набор
(vl-cmdf 
"_.copy"  ;_Команда _copy
"_p"        ;_ссылка на текущий (_previous) набор
 ""          ;_подтверждение окончательного выбора
 "_m")    ;_ выбираем опцию несколько (_multiple)
(while (not (zerop (getvar "cmdactive"))) ;_Пока активна команда copy
(vl-cmdf pause)) ;_Делаем паузу на текущем запросе 
                         ;_(а он сейчас либо базовая точка,
                         ;_ либо вторая точка перемещения)
(princ)

[Джек]

Сообщение от VVA Убери ^C^C^P, останется лисп Код: [Выделить все] (ssget) ;;;Выбор объектов. Объекты заносятся ;;;в текущий (_previous) набор (vl-cmdf "_.copy" ;_Команда _copy "_p" ;_ссылка на текущий (_previous) набор "" ;_подтверждение окончательного выбора "_m") ;_ выбираем опцию несколько (_multiple) (while (not (zerop (getvar "cmdactive"))) ;_Пока активна команда copy (vl-cmdf pause)) ;_Делаем паузу на текущем запросе ;_(а он сейчас либо базовая точка, ;_ либо вторая точка перемещения) (princ)

Это я понял!
Совсем я запутался
Дело в том у меня перед командой копировать - вставка блока. вот я и хочу копировать вставленный блок (зная точку вставки) :roll:

[Джек]

Спасибо всем - кто помог мне в написании лиспа.
Вот мой код:

Код:

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

(defun c:qqq ()
 (command "_insert" "заглушка_вода"  pause "1" "1" pause  )
  (setq pt2 (getvar "lastpoint"))
(vl-cmdf "_.copy" "_last" ""  "_m" pt2)
  (while (not (zerop (getvar "cmdactive")))
    (vl-cmdf pause)
    );;while
  (princ)
)

Ошибки и замечания принимаю :roll:

[VVA]

Замечания (лоск)
В командной строке пусто, надо догадываться, что от тебя требуется указать: угол поворота или точку?
Вот вариант, где все видно

Код:

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

(defun c:qqq ( / pt2)
  (setvar "CMDECHO" 0)
  (princ "\nТочка вставки:")
 (command "_insert" "заглушка_вода"  pause "1" "1")
  (princ "\nУгол поворота")
  (command pause) 
  (setq pt2 (getvar "lastpoint")) 
(vl-cmdf "_.copy" "_last" ""  "_m" pt2) 
  (while (not (zerop (getvar "cmdactive")))
    (princ "\nУкажите току копирования: ")
    (vl-cmdf pause) 
    );;while 
  (princ) 
)

Неудобство в том, что тянется поятоянно резиновая линия.
Вот вариант без нее

Код:

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

(defun c:qqq1 ( / *error* blk pt tt)
  (defun *error* (msg)
      (princ msg)(if blk (entdel blk))(princ))
  (setvar "CMDECHO" 0)
  (princ "\nТочка вставки:")
 (command "_insert" "заглушка_вода"  pause "1" "1")
  (princ "\nУгол поворота")
  (command pause) 
  (setq blk (vlax-vla-object->ename(vla-copy (vlax-ename->vla-object (entlast)))))
  (setq pt (getvar "LASTPOINT") tt t)
(while  tt
  (princ "\n Укажите ТОЧКУ (ENTER-Хватит): ")
  (command "_.CHANGE" blk "" "" pause "")
  (setq tt (getvar "LASTPOINT"))
  (if (equal tt pt 0.000001)
    (progn
      (entdel blk)
      (setq tt nil))
    (progn
      (setq blk (vlax-vla-object->ename(vla-copy (vlax-ename->vla-object (entlast)))))
      (setq pt (getvar "LASTPOINT"))
      )))
  (princ)
  )

[Джек]

VVA -спасибо тебе большое - все работает!!!!!

[Mek]

Апну старенькую тему. По заголовку подходит к моей проблеме.

Стандартная команда Копировать копирует только один раз. После этого отключается, как будто гномик в клавиатуре на Esc нажал. Буквально вчера и никогда раньше такого не было.
Как вернуть? (Автокад 2008рус)

Всё, разобрались. Поначалу в реЖим не могли зайти...