CAD二次开发(LISP)

或在控制台" " 在"Command:"提示下键入 "提示下键入!elist或在控制台"_$"提示下键入 或在控制台 elist，即可得到以下该图元的图元表。 ，即可得到以下该图元的图元表。
((name: ef69500>)； 69500>) ((-1 . <Entity name: 7ef69500>)；图元名 "TEXT")； (0 . "TEXT")；图元种类 name: ef67 00>) 67d >)； (330 . <Entity name: 7ef67d00>)；软指针句柄 19F") F")； (5 . "19F")；图元描述字 "AcDbEntity")；AutoCAD图元 (100 . "AcDbEntity")；AutoCAD图元 (67 . 0)；模型空间 "Model")； (410 . "Model")；模型空间标识 (8 . "0") ；所在图层名 AutoCAD文本 (100 . "AcDbText") ；AutoCAD文本 10. 20. (10 10.0 20.0 0.0) ；定位点坐标 (40 . 5.0)；文本字高 (1 . "ABCDE")；文本内容 "ABCDE")；
a
(defun c:keyway()
b
输入定位点： (setq pc (getpoint "输入定位点： ")) 输入轴的直径： (setq d (getdist pc "输入轴的直径：")) 输入键槽的宽度： (setq b (getdist pc "输入键槽的宽度："))

7. 2 AutoLISP程序设计语言
常用控制字符的表示方法 控制字符 反斜杠 双引号“ ’ ” Esc键 回车键 换行 Tab键 用“\”为前导的转义字符表示 \\ 双引号“ ’ ” \e \r \n \t 用“\”为前导的ASCII码数值表 示 \014 \042 \033 \015 \012 \011
(print “AutoLISP welcome you!”))
2.启动AutoCAD，加载AutoLISP应用程序 在command命令提示符下键入： (load “d:/lisp/myautolisp.lsp”) 3. 运行defun定义的函数 在command命令提示行下键入：welcome，回车
7. 2 AutoLISP程序设计语言
二、表达式
一、AutoLISP简介
4. AutoLISP的特点
AutoLISP语言是在普通LISP语言基础上，扩充了许多适用于CAD应用的特殊功能 而形成的，是一种仅能用解释方式运行于AutoCAD内部的解释型程序设计语言。 AutoLISP把数据和程序统一表达为表结构，因此可以把程序当作数据来处理，也可 以把数据当作程序来执行。 AutoLISP语言中的程序运行过程就是对函数求值得过程，在函数求值过程中实现函 数功能。 AutoLISP语言的主要控制结构采用递归方式，程序设计简单易懂。
AutoLISP程序阅读函数时，按照从左到右的规则进行。
二、AutoLISP的程序结构
AutoLISP程序是由标准表组成的，因此程序中所有的括号都必须左右匹配；
操作符（函数名）必须放在标准表中第一个元素的位置。标准表中的函数与参 数、参数与参数之间至少要用一个空格来分开。
2个标准表之间和表内的多余空格和回车都是不需要的，因此一个表可以占多 行，一行内也可写多个表。 AutoLISP程序中用“ ；”作注释，程序执行时会自动跳过每一行中分号以后的 部分。注释可放于程序中的任何地方。 AutoLISP程序的扩展名为（.lsp），并以ASCII码文本文件的形式表达，可用文 本编辑软件进行编辑。

(exp num) 三. 实例
(exp 1.0) ; ; ; 返回2.71828 (exp 2.0) ; ; ; 返回9.02501 (exp -0.4) ; ; ; 返回0.67032
expt
一. 功能 该函数返回以数number为底数的power次幂的值。
二. 格式 (expt number power)
三. 说明 调用此函数时﹐如果提供的两个变元都是整数﹐结果也是整数；否
则﹐结果是实数。 四. 实例
(expt 2 4) ; ; ; 返回16 (expt 3.0 2.0) ; ; ; 返回9.0
fix
一. 功能 截尾取整函数。
二. 格式 (fix num)
三. 说明 fix截去数num的小数部分﹐而返回它的整数部分。 如果num大于最大可能的整数（在32位平台上最大可能整数是
cos
一． 功能 返回以弧度表示的一个角度的余弦值。
二． 格式 (cos angle)
三． 说明 四. 实例
(cos 0.0) ; ; ; 返回1.0 (cos pi) ; ; ; 返回-1.0
exp
一. 功能 该函数返回e的次幂num的值﹐e为自然对数的底数﹐即
e=2.718282…。exp函数总是返回一个实型数。 二. 格式
atan
一. 功能 返回一个数的反正切值，单位为弧度。
二. 格式 (atan num1[num2])
三. 说明 调用atan函数时，若仅提供变元num1,则本函数返回数num1的反正
切值，单位为弧度。如果提供了num1和num2这两个变元，atan函数返回 num1/num2的反正切值，单位为弧度。如果num2是零，则返回的角度为 正或为负的1.570796弧度(+90度或-90度)，取决于num1是正还是负。所 返回的角度范围是-Pi/2至+Pi/2弧度。 四. 实例

CAD二次开发Visual_LISP指南CAD二次开发是指在CAD软件平台上进行个性化开发和定制化编程，以满足用户特定需求Visual LISP是AutoCAD软件的一种编程语言，通过使用Visual LISP语言可以对AutoCAD进行二次开发。

下面是CAD二次开发Visual LISP的指南，希望对开发人员有所帮助。

一、入门准备1.学习基础知识在开始进行CAD二次开发前，需要充分了解AutoCAD软件的基本功能和特点，熟悉CAD软件的界面、命令、对象模型以及常用API（应用程序接口）等。

2.掌握Visual LISP语言Visual LISP是CAD软件平台上的一种编程语言，与AutoLISP类似。

学习和掌握Visual LISP语言是进行CAD二次开发的基础。

可以通过学习书籍、在线教程和参考文档等途径来提高自己的编程能力。

3.安装开发工具需要安装CAD软件的开发工具，例如AutoCAD自带的AutoCAD Developer Tools或者Visual LISP IDE等。

这些工具提供了编写、调试和管理二次开发项目的必要环境。

二、开始二次开发1.确定需求在进行CAD二次开发前，需要明确开发的具体需求和目的。

这可以包括添加自定义命令、修改现有功能、创建用户界面等等。

确保清晰地定义需求和目标，以便更好地进行开发工作。

2.编写代码通过Visual LISP语言编写代码来实现二次开发的需求。

VisualLISP提供了一系列的函数和命令，可以对AutoCAD的对象模型进行访问和操作。

根据需求，编写相应的函数、宏和命令，实现具体的功能。

3.调试和测试在编写代码后，进行调试和测试是不可或缺的步骤。

通过运行调试器、打印日志、进行单元测试等方式来验证代码的正确性和稳定性。

及时修复和调整代码中的问题，确保其能够正常运行。

4.文档和发布完成开发工作后，建议对代码进行适当的文档整理和注释，方便后续的维护和管理。