帮吧下面程序修改下，高手速速来 谢谢

243811238

帮吧下面程序修改下，改为自动搜寻图块路径所在位置 ，意思就是我在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)
)