 - (defun c:tt ()
- (setvar "CMDECHO" 0)
- (setq nm (if (= (type nm) 'STR) nm ""))
- (if (setq nm (getfiled "选择要插入的图块" nm "dwg" 2)) (progn
- (command "_.INSERT" nm PAUSE 1 1 0)
- (command "_.EXPLODE" "L")
- (setq ss (ssget "P" '((0 . "*TEXT"))))
- (command "_.MOVE" ss "" PAUSE PAUSE)
- ))
- (setvar "CMDECHO" 1)
- (princ)
- )
|