帮吧下面程序修改下，高手速速来 谢谢
帮吧下面程序修改下，改为自动搜寻图块路径所在位置 ，意思就是我在CAD内OP里文件添加设置好图块目录文件后，在AP加载命令，这程序就自动会找到图块所在位置(defun c:KK ()
(setvar "cmdecho" 0) ;指令执行过程不响应
(PRINC "\n【开心CAD外挂】---插入图块（目录下)功能")(PRINC)
(command "insert" "d:\\33.dwg" "0,0" "1" "" "")
;(command "insert" "E:\\33.dwg" "0,0" "1" "" "");此行可添加图档所在位置（也可加行）
(entdel(entlast))
(setq a (getstring "\n输入块名:")
a (strcat "*" a)
)
(WHILE(setq p1 (getpoint "\n插入点:"))
(command "insert" a p1 "" ""))
(princ)
)
页:
[1]