[smallmazila7]

Доброго времени суток!
У меня такой вопрос: как на языке lisp имитровать нажатие клавиши Enter при задании строкового параметра команды в командной строке?
к примеру:
Команда: _-purge
Тип неиспользуемых объектов
[Блоки/Рзмстили/Слои/типыЛин/мАтериалы/Пстили/Формы/Тстили/Млстили/тблстИли/визУальные стили/Зарегприл/Все]: _r
Имена удаляемых элементов <*>:
И на этом этапе я остановился.
пробовал:
(command "")
(command " ")
не помогает.

lisp код выглядит так:
(setq activeDocument (vla-get-activedocument (vlax-get-acad-object)))
(vla-sendcommand activeDocument "_-purge ")
(vla-sendcommand activeDocument "_r ")
(command "???????")


Решение:
(vla-sendcommand activeDocument "\n")
имитирует нажатие клавиши Enter при задании строкового параметра в командной строке.

если передать "\n" в качестве параметра command,
то такой вариант не проходит
(command "'\n") - не работает
Версия AutoCAD 2008

[Лиспер]

В лиспе: (command "")
(vla-sendcommand "CommandName" + vbCr) - можно и так попробовать

[smallmazila7]

2Лиспер
вопрос был

Имитация нажатия Enter при вводе строкового параметра команды в командной строке

под строковым параметром понимается ввод имени файла, либо строки фильтра удаляемых элементов как в

Имена удаляемых элементов <*>:

если здесь прописать просто (command ""), то указанная пустая строка, я так понял, воспринимается не как Enter, а как пустая строка.

[Лиспер]

Вообще-то полную очистку файла можно делать и некомандными методами:

Код:

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

(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

А частичную - через очистку соответствующих таблиц с отловом ошибок. Думаю, это решение будет более качественным.

[Profan]

(vl-cmdf "_-purge" "_r" "" "_n")

Сообщение от Profan (vl-cmdf "_-purge" "_r" "" "_n")

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

Код:

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

(vl-load-com)

(defun _dwgru-purge-apps (doc / err)
                         ;|
*    Очищает от зарегистрированных приложений указанный документ
*    Параметры вызова:
	doc		vla-указатель на обрабатываемый документ. nil -> текущий
*    Примеры вызова:
(_dwgru-purge-apps nil)
|;
  (if (not doc)
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (if (= (type doc) 'vla-object)
    (vlax-for app (vla-get-registeredapplications doc)
      (if (vl-catch-all-error-p (setq err (vl-catch-all-apply
                                            (function
                                              (lambda ()
                                                (vla-delete app)
                                                ) ;_ end of lambda
                                              ) ;_ end of function
                                            ) ;_ end of vl-catch-all-apply
                                      ) ;_ end of setq
                                ) ;_ end of vl-catch-all-error-p
        (princ (strcat "\nВ документе "
                       (vla-get-name doc)
                       " не могу удалить приложение "
                       (vla-get-name app)
                       " : "
                       (vl-catch-all-error-message err)
                       ) ;_ end of strcat
               ) ;_ end of princ
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of if
  ) ;_ end of defun

[smallmazila7]

всем спасибо за ответы