lisp编程 在打开的CAD图中，插入另一已画好的cad图

(defun c:shuru(/ file dwg pt sx sy)
(setvar "cmdecho" 0)
(setq file (getstring "\n输入待输入的图形文件名:"))
(if (not file)(exit)
(progn
(setq dwg(findfile(strcat file ".dwg")))
(if(not dwg)(exit)
(progn
(setq pt(getpoint "\n指定插入点:"))
(if(not pt)(exit)
(progn
(setq sx(getreal "\指定X比例<1>:"))
(if(not sx)(setq sx 1))
(setq sy(getreal "\指定Y比例<1>:"))
(if(not sy)(setq sy 1))
(command "-insert" dwg pt sx sy "0")
)
)
)
)
)
)
(setvar "cmdecho" 0)
(princ)
)
;;事实上真的是直接使用Insert命令也差不多!除非要批量插入才编程
;;顺手写了段小代码，自己按需要修改一下再用

这个不需要编程吧，cad中的insert命令可以解决这个问题。