麻烦高手改一下程序

tzan8752

(defun c:qq1 ()   
     (setvar "cmdecho" 0)
(command "insert" "c:\\BT图.dwg" "0,0" "1" "" "")
(entdel(entlast))
(setq a (getstring "\n请输入 ：BT4"))
a (strcat "*" a)
(if (= a "")       
(setq a "BT4")       
)
(WHILE(setq p1 (getpoint "\n 请选择插入位置:  "))
(command "insert" a p1 "" ""))
(princ)
)
麻烦给位高手帮忙看看：想把输入BT4改成直接调用BT4，不输入BT4，程序直接到“请选择插入位置”

xj6019

那就把无用的都删掉呗
(defun c:qq1 ()   
        (setvar "cmdecho" 0)
        (command "insert" "c:\\BT图.dwg" "0,0" "1" "" "")
        (entdel(entlast))
        (WHILE(setq p1 (getpoint "\n 请选择插入位置:  "))
                (command "insert" "BT4" p1 "" ""))
        (princ)
)

tzan8752

xj6019 发表于 2022-11-25 21:08
那就把无用的都删掉呗
(defun c:qq1 ()   
        (setvar "cmdecho" 0)

谢谢！为什么会提示：“指定旋转角度 <0>:”，能否把旋转角度取消。

xj6019

好像cad不同版本插入块command 末尾需要的  ""  个数不同  你末尾加一个  不行加两个，或者删一个，多试几次  总有一个是对的

tzan8752

xj6019 发表于 2022-11-25 22:22
好像cad不同版本插入块command 末尾需要的  ""  个数不同  你末尾加一个  不行加两个，或者删一个，多试几 ...

谢谢专家指点