Question

AutoCAD中，用lisp语言如何建立一个新的窗口。

Answer 1

你的意思是用LISP建立一个新的CAD文档么？如果是的话，可以这样：
(vl-load-com)
(vla-add (vla-get-documents (vlax-get-acad-object)) "")
但当前的图档还是之前的当前图档，不知道是不是我CAD有问题，强行设置新建的图档为当前图档时，会提示错误，设置新建图档为当前图档如下：
(vl-load-com)
(setq dwg (vla-add (vla-get-documents (vlax-get-acad-object)) ""))
(vla-put-activedocument (vlax-get-acad-object) dwg)

追问

我的置为了当前图档。但是程序一直处于加载状态，自动执行时，可以看出错误循环：(LAMBDA (CMD / NOM_CMD NATIVE_CMD) (PROGN (SETQ NOM_CMD (STRCAT "C:" CMD)) (SETQ NATIVE_CMD (STRCAT "\"_" CMD "\"")) (IF (NOT (EVAL (READ NOM_CMD))) (EVAL (READ (STRCAT "(defun " NOM_CMD "()" "(setq m:err *error* *error* *merrmsg*)" 、、、、、、、

追答

你上面发的代码是？是不是你某个LISP文件有错误？感觉像LISP病毒的样子

Answer 2

是要DCL调用吧 属于高阶应用了 我在R14时代的东东可能用不上了

可以参考下： http://wenku.baidu.com/view/33ab48649b6648d7c1c7467e.html