如何自己编写CAD Lisp程序

CAD怎么自己编lisp程序

做了隐藏和显示两个命令.

我编写的简单，功能不太全.你看着用吧

复制下列代码，创建acad.lsp.放在在CAD安装目录第一层文件夹下，可自动加载啊：

；在命令行输入该命令hidsel，然后选择图元，结果没选的被改到隐藏层

(defun C:hidsel(/ all；所有图元

xs；非隐藏图元

yc；隐藏图元

n nam dat)

(setvar ＂CMDECHO＂ 0)；关闭命令回显

(command ＂_layer＂ ＂n＂ ＂临时隐藏图层＂ ＂＂)（command ＂_layer＂ ＂off＂ ＂临时隐藏图层＂ ＂＂）

(setvar ＂CMDECHO＂ 1)

(setq all (ssget ＂x＂)）；选择所有

(setq xs (ssget)）；选择非隐藏图元

(setq n -1 yc all)；运算隐藏图元

(repeat (sslength xs)

(setq n (+ n 1))

(setq nam (ssname xs n)）；返回第N个图元的名称

(setq yc (ssdel nam yc))

)

(setq N -1)；隐藏

(repeat (sslength yc)

(setq N (+ n 1))

(setq nam (ssname yc n)）；返回第N个图元的名称

(setq dat (entget nam));DAT储存第N个图元数据

(entmod (subst (cons 8 ＂临时隐藏图层＂) （Assoc 8 dat） dat））；将yc集合隐藏

)

(setq all nil xs nil yc nil n nil nam nil dat nil)；清除数据占用内存

(princ)

)

；显示所有图元

(defun c:shoal(/ all n nam dat)

(setq all (ssget ＂x＂)）；选择所有

(setq N -1)；隐藏

(repeat (sslength all)

(setq N (+ n 1))

(setq nam (ssname all n)）；返回第N个图元的名称

(setq dat (entget nam));DAT储存第N个图元数据

(entmod (subst (cons 8 ＂0＂) (Assoc 8 dat) dat））；将yc集合隐藏

)

(setvar ＂CMDECHO＂ 0)

(COMMAND ＂PURGE＂ ＂LA＂ ＂临时隐藏图层＂ ＂Y＂ ＂Y＂ ＂＂)

(setvar ＂CMDECHO＂ 1)

(setq all nil n nil nam nil dat nil)；清除数据占用内存

(princ)

)

CAD里面的lisp有什么作用啊怎么用要具体的能让我明白加分

lisp本身就是cad所属的开发程序，他提供一些简单的函数计算，剩下的就全是针对autocad的绘图功能了。lisp程序类似与数据库中的存储过程，可以批量的处理绘制cad图形。

学习lisp是很简单的，只要掌握了几个主要命令的使用就行，就是对语句格式要很研，本身lisp的函数相当多，不必去记。

加载LISP

1. 可以使用APPLOAD命令，然后去找到要加载的LISP文件，加载即可。

2. 可以自己从文件管理器把LISP文件拖动到ACAD的图形窗口，也可以加载

3. 在命令行后用，（load ＂c:\\temp\\xxx.lsp＂）也可以加载，路径名请输入实际的路径。

另：对于一个LSP程序，（defun 后面的既是命令或者函数，一般程序应该有提示，若没有，标志符c：后面的单词是可以在ACAD下使用的命令，既可以在COMMAND：后面直接输入，即可执行。

有几个CAD中的LISP语言怎么编程

AutoLISP语言是在普通的LISP语言基础上，又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言。它是一种解释性值语言，速度较慢，难以保密，可用任何文字编辑软件编辑，用纯文本的格式保存。例如：

(setq i 1)；就是代码i值是1

(command ＂CIRCLE＂ '(0 0) 100）；命令在坐标原点绘制半径100的圆。

AutoLISP语言中的一切成分都是以函数形式给出的，它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些函数，再调用其它函数。例如：

(setq pt1 (getpoint ＂\n请选择圆心插入点＂)）

(command ＂CIRCLE＂ pt1 100)；命令这个插入点绘制圆，半径为100

AutoLISP把数据和程序统一表达为表结构，故可把程序当作数据来处理，也可把数据当作程序来执行。

例如：一条直线，起点坐标'（0 0），端点坐标'（1000 0），图层为0层，颜色为1【红色】这个是一条直线的一些数据，怎么执行变为程序代码如下：

(entmake (list '(0 . ＂LINE＂) '(8 . ＂0＂) '(62 . 1) '(10 0 0) '(11 1000 0)))

以上可以直观的看数据，也可以粘贴到AutoCAD的命令行，就绘制出以上要的直线。

AutoLISP语言中程序运行过程就是对函数值的过程，是在对函数值的过程中实现函数的功能。在AutoCAD里面，所有的对象可以看成是由无数的点构成，每个点都有自己的坐标，函数的运行就是计算出这些点的数值，根据得到的数值进行判断。

AutoLISP语言的主要控制结构是采用递归方式。递归方式的使用，使得程序设计简单易懂。例如：

(setq &k1 (entsel)）；选择对象

(setq &k1 (car &k1)）；提取图元

(setq #g1 (entget &k1)）；取得属性列表

(setq c0 (cdr (assoc 0 #g1)））；取得图元名称

以上是一个个的写下来，可以写成以下：

(setq c0 (cdr (assoc 0 (entget (car (entsel)）））））；简单易懂

由于autolisp简单，容易，所以上手很快。编写程序后，可以大大的提高绘图效率，有名的【天正】插件，就是绘图的好帮手。

autolisp程序也有不足的地方，如提取坐标，这个只能在图元属性里面提取，这样的话会有局限性，法向坐标1与-1的坐标值相同，但是图形的位置不同，造成计算坐标的困难，所以提取坐标值，最好使用VLAX函数来提取。