Вставка блока с ручным позиционированием и редактированием атрибутов
(defun ru-block-insert-mousescaleask-angleask (block_name / old_attdia old_echo)
;;(ru-block-insert-mousescaleask-angleask "ru_detail_number")
(setq old_attdia (getvar "ATTDIA") old_echo (getvar "CMDECHO"))
(setvar "ATTDIA" 1)
(setvar "CMDECHO" 0)
(princ "
Точка вставки: ")
(vl-cmdf "_.INSERT" block_name)
(setvar "CMDECHO" 1)
(while (wcmatch (getvar "CMDNAMES") "*INSERT*")
(command pause)
)
(setvar "ATTDIA" old_attdia)
(setvar "CMDECHO" old_echo)
(princ)
) ;_ end of defun