Question

求lisp程序

把画好的4张图 a1.dwg 、a2.dwg、b1.dwg b2.dwg,放进cad安装程序的support文件夹。

然后新建一个cad图，比如说在图中
输入命令a，空格后出现1、2两个选项，然后我输入1，选择插入点，则图“a1.dwg”插入此图中；
输入命令b，空格后出现1/2两个选项，然后我输入1，选择插入点，则图“b1.dwg”插入此图中...

请问这个lisp程序怎么编写啊？谢谢：）
要自己选择插入点。

Answer 1

(defun c:a()
(vl-load-com)
(setq old (getvar "cmdecho")
path (strcat (Vlax-Get (Vlax-Get-Acad-Object) 'Path) "\\Support")
files (vl-directory-files path "*.dwg" 1)
)
(setvar "cmdecho" 0)
(command "_undo" "be")
(initget "1 2")
(setq wjh (getkword "\n1/2<1>:"))
(if (= wjh nil) (setq wjh "1"))
(setq wjm (strcat path "\\a" wjh ".dwg"))
(if (member (strcat "a" wjh ".dwg") files)
(if (setq pt (getpoint "\n插入点:"))
(progn
(command "_insert" wjm pt 1 1 1)
(command "_zoom" "e")
)
)
(alert (strcat wjm ", 不存在!"))
)

(command "_undo" "e")
(setvar "cmdecho" old)
(princ)
)

(defun c:b()
(vl-load-com)
(setq old (getvar "cmdecho")
path (strcat (Vlax-Get (Vlax-Get-Acad-Object) 'Path) "\\Support")
files (vl-directory-files path "*.dwg" 1)
)
(setvar "cmdecho" 0)
(command "_undo" "be")
(initget "1 2")
(setq wjh (getkword "\n1/2/<1>:"))
(if (= wjh nil) (setq wjh "1"))
(setq wjm (strcat path "\\b" wjh ".dwg"))
(if (member (strcat "b" wjh ".dwg") files)
(if (setq pt (getpoint "\n插入点:"))
(progn
(command "_insert" wjm pt 1 1 1)
(command "_zoom" "e")
)
)
(alert (strcat wjm ", 不存在!"))
)

(command "_undo" "e")
(setvar "cmdecho" old)
(princ)
)

追问

高手啊，还是存在角度的问题啊。。插入后，图形和水平方向总是呈1°的角度。。。。怎么设置才能插入后和原图一样？