Question

lisp CAD二次开发

我在自己编写图层置为当前的命令时，为什么不能在这个里面加回车
象这样(DEFUN C:CU () (COMMAND "-LAYER" "S" "" ))来自己选择对象？只能这样(DEFUN C:CU () (COMMAND "-LAYER" "S" ))还要回车？

Answer 1

1、启动AutoCAD 2006，选择“工具”→“Auto LISP”→“Visual LISP编辑器”选项。

2、进入“Visual LISP编辑器”窗口，如图所示：

3、“文件”—“新建”打开“程序编辑窗口”，编写程序代码。

4、在以上“程序代码编辑”窗口输入所需代码。

5、加载和调试Auto LISP程序，单击“加载活动编辑窗口”按钮，对刚刚编制的代码进行运行。如图所示，表示代码书写正确没有语法错误，加载成功。

6、返回AutoCAD2006界面，在命令行输入Lisp，接着自动运行程序Lisp，打印输出“Hello World!”并在窗口中绘制一个圆，与预期效果一样，说明程序编制没有逻辑错误。如果存在逻辑错误还需返回进行调试。

7、至此就完成了简单的CAD二次开发，并可以将程序保存，下次加载使用。

Answer 2

这样写
(DEFUN C:CU () (COMMAND "-LAYER" "S" (ssget) "" ))

还可以这样写
(DEFUN C:CU () (COMMAND "-LAYER" "S" pause "" ))

晕，楼主赶紧收掉这个问题吧，