[swkx]

Вопрос о применении _INSERT поднимался столько раз, что даже неудобно начинать опять, но и пересмотреть все сообщения тоже нереально))
Поэтому напомните, плиз, почему ввод с командной строки
_-insert и (vl-cmdf "_-insert") даёт одинаковые результаты, а
_insert и (vl-cmdf "_insert") разные:в 1-м случае выдается диалоговое окно, во 2-м ввод имени блока и параметров предлагается с ком. строки ?
AutoCAD 2009.

[Лиспер]

Я просто код не проверял и особо не анализировал. Некогда было...

[swkx]

Понятно.
Ну теперь можно и не анализировать, вопрос решился.

[AlexCondor]

Прошу помощи у знатоков! Вопрос в принципе по теме.
Раньше пользовался макросом, потом захотелось, чтобы команду можно было быстро повторить по пробелу или Enter'ом, составил код:

Код:

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

 (defun c:insertfile ()
  (setq cmdold (getvar "cmdecho"))
  (command "_.undo" "_begin")
  (setvar "cmdecho" 0)
  (command "_.insert" "~" "\\" "" "" "")
  (command "_.explode" "_last")
  (command "_.purge" "_blocks" "" "n")
  (command "_.undo" "_end")
  (setvar "cmdecho" cmdold)
  (princ)
)

Все работает вроде правильно, но вопрос в тильде. Если нажать Esc при выборе файла, закрывается диалог выбора, но не прерывается вся команда. Как изменить чтобы команда прерывалась полностью.

[skkkk]

AlexCondor, вот так:

Код:

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

 (defun c:insertfile ( / *error* cmdold)
	(defun *error* (msg)   
		(if cmdold (setvar "cmdecho" cmdold))
		(princ msg)
		(princ)
	) ;defun *error*
	(setq cmdold (getvar "cmdecho"))
	(setvar "cmdecho" 0)
	(command "_.undo" "_begin")
	(command "_.-insert" "~")
	(if (> (getvar "CMDACTIVE") 0) 
		(progn
			(command "\\" "" "" "")
			(command "_.explode" "_last")
			(command "_.purge" "_blocks" "" "_n")
		)
		(princ "*Прервано*")
	)
	(command "_.undo" "_end")
	(setvar "cmdecho" cmdold)
	(princ)
)

[AlexCondor]

skkkk,
Спасибо, огромный респект!

[ShaggyDoc]

но вопрос в тильде.

А может вопрос "а зачем так"? Что мы видим - вставляется блок из файла, расчленяется, а потом "пуржатся" блоки. Похоже на внедрение "библиотеки блоков". Это можно сделать проще - в момент встави блока сделать искусственное прерывание. Сам он не вставится, а все определения из файла-блока попадут в чертеж. Фрагмент:

Код:

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

  
(vl-cmdf "_.INSERT" block_file_name) ;; начинаем вставку блока
(vl-cmdf) ;; искусственно прерываем

[AlexCondor]

Сообщение от ShaggyDoc Что мы видим - вставляется блок из файла,

Нет, мне нужно просто найти, выбрать и вставить файл в текущий чертеж, причем не блоком. ESC - если решил сделать иначе. Внедрение библиотеки это уже последствия. Подскажите, как это сделать желательно одной командой, не затрагивая определений блоков.