[BAX]

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

[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рус)

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