CAD lisp 求助一段代码实现在进行 *** 作之前获取图层信息

(setq #k (getvar "clayer")) ;;取得当前图层

(setq #os (getvar "osmode"));;得到捕捉设置

(setvar "clayer" "0")       ;;切换到图层0

(setvar "osmode" 0)         ;;画圆过程必须关闭捕捉

(command "circle" pt 5)     ;;画圆

(setvar "clayer" #k)        ;;恢复原来图层

(setvar "osmode" #os)       ;;恢复捕捉设置

本节通过一个简单的实例来讲述LISP程序的创建过程，介绍编制LISP程序的一些基本步骤，以及LISP程序在AutoCAD中的加载和运行的方法。首先来创建一个最简单的LISP程序—-“Hellolsp”，在AutoCAD 2002中加载并运行该程序，将会在命令行出现－“Hello, Visual LISP!”。

3621 Visual LISP与AutoCAD的通信

用户可以直接在AutoCAD命令行中键入AutoLISP表达式。AutoCAD通过括号来确认AutoLISP表达式。AutoCAD每当发现一个左括号，就确认为AutoLISP表达式，并由AutoLISP求表达式的值后返回AutoCAD，AutoCAD使用返回结果并继续进行其他工作。

注意 在AutoLISP表达式中，左、右括号必须配对，否则AutoCAD将给出提示符n>，n表示右括号丢失数目。

此外，在AutoCAD中调用并执行AutoLISP程序。在AutoLISP程序中采用COMMAND函数来与AutoCAD命令程序处理器通信，COMMAND从AutoLISP获得命令并将其传给AutoCAD。

GET类函数就是需要你输入给出的，楼上列举的例子都是需要用户输入的所以是GET类，如果你长期写程序你还会发现ENT类的函数，那个就是获取的，给你举个例子ENTLAST这个函数是返回最后一个图元名，这类前面是ent的都是从图纸中去获取的，还有set类及get类你可以看看他们的区别一个是设置系统变量一个是获取系统变量！

以上就是关于CAD lisp 求助一段代码实现在进行 *** 作之前获取图层信息全部的内容，包括:CAD lisp 求助一段代码实现在进行 *** 作之前获取图层信息、lisp 获取cad安装路径、在lisp中，什么叫get类函数他们都有哪些都有什么用途呀等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！