[BAX]

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

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