Question

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

用CAD 里面编程 讲已经画好的 1.DWG 2.DWG 3.DWG 已经放到SUPPORT 里面
用LISP 编程 主要输入命令 比如 shuru 就能让你选择插入 是 1 2 3 ，在输入1 就插入1.dwg 并让你自己选择插入的比例，角度。。。帮忙。。谢谢。。

Answer 1

(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命令也差不多!除非要批量插入才编程
;;顺手写了段小代码，自己按需要修改一下再用

Answer 2

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