tzan8752 发表于 2022-11-25 20:42:17

麻烦高手改一下程序

(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 发表于 2022-11-25 20:42:18

那就把无用的都删掉呗
(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 发表于 2022-11-25 21:25:22

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


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

xj6019 发表于 2022-11-25 22:22:16

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

tzan8752 发表于 2022-11-26 12:06:45

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

谢谢专家指点{:1_1:}
页: [1]
查看完整版本: 麻烦高手改一下程序