如何自己编写CAD Lisp程序
CAD怎么自己编lisp程序做了隐藏和显示两个命令.我编写的简单，功能不太全.你看着用吧复制下列代码，创建acad.lsp.放在在CAD安装目录第一层文件夹下，可自动加载啊：；在命令行输入该命令hidsel，然后选择图元，结果没选的被改到隐藏层(defunC:hidsel(/all；所有图元xs；非隐藏图元yc；隐藏图元nnamdat)(setvar＂CMDECHO＂0)；关闭命令回显(command＂_layer＂＂n＂＂临时隐藏图层＂＂＂)（command＂_layer＂＂off＂＂临时隐藏图层＂＂＂
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函数来提取。
正软商城本月促销专区，汇集办公、设计、安全、影音、系统工具及AI软件等正版软件优惠活动，提供限时折扣、特价授权和优惠购买信息，活动库存及价格以页面实时展示为准。
正软商城装机必备专区，精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件，帮助用户快速完成新电脑软件配置。
正软商城Windows软件专区，汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件，提供软件介绍、系统要求、正版授权及购买下载服务。
正软商城macOS软件专区，精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具，提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。
正软商城iOS软件专区，精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用，提供功能介绍、适用设备、系统要求和正版获取方式等信息。
正软商城AI软件专区，汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具，提供功能介绍、适用平台、收费方式及正版购买信息。
正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法，同时介绍常用PDF软件和工具的使用技巧。
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
