AutoLisp编程授课讲义2015年 1

"2,3"
'(2 3) (list 2 3)
(setq pt (list 2 3))正确 (setq pt "2,3")错 误 11、 (command "line" "0,0" "1,1" "")程 序 没 问 题 ， 但 记 住 用 "zoom" "e"察 看 一 下 。
12、一些简单 的错误， 说明有些 学生 上课没有认真 听讲
4、 已 知 直 线 L2:2x+3y=2， 求 两 直 线 交 点 (x=0.625,y=0.25)
(defun jd() (setq a1 2.0 b1 -1.0 c1 1.0 a2 2.0 b2 3.0 c2 2.0 ) (setq upx (- (* c1 b2) (* c2 b1)) upy (- (* a1 c2) (* a2 c1)) dw (- (* a1 b2) (* a2 b1)) ) (setq x (/ upx dw) y (/ upy dw) )
四、表的构造与表中元素提取
1、使用 list 函数构造表。(list 1 2 3)
2、 使 用 car/cadr/caddr/cadddr/last 或 nth 函 数 提 取 任 意 位 置 的 元 素 。
五、赋值语句
x=2.4 x=a2 x=a2+b2
(setq x 2.4) (setq x (expt a 2)) (setq x (+ (* a a) (* b b)))
(defun sqtab() (setq a 3.0) (setq b 4.0) (setq c1 (+ (* a a) (* b b))) (setq c (sqrt c1)) (print "c=")(print c)
)
七、程序编写注意事项
1、 左 右 括 号 要 成 对 出 现 (( ()) ) 、 ( ( ））
2、函数必须 放在表中 的第一个 元素 位置，例如 (/ a b)、(sqrt a)等 3、函数运算 符与参数 之间至少 用一 个空格隔开 (/ a b) 4、字符不分 大小写 5、 ";"后 面 为 注 释 ， 便 于 程 序 的 理 解 和 调 试 6、 查 看 变 量 值 可 以 在 命 令 行 后 面 输 入 “ !a” 即 可 ， 其 中 a 为 变 量 名 。
ቤተ መጻሕፍቲ ባይዱ
2、 实 数 型 （ REAL）
3、 字 符 串 （ STRING）
4、 表
（ LIST）
例 1：
(setq a 3)
;a 为整数型
(setq b 3.0) ;b 为实数型
(setq c “3”) ;c 为 字 符 串
计 算 (/ a 2)、(/ a 2.0)、(/ b 2)、(/ c 2)
结果，并分析不同结果产生的原因。
第一讲 AutoLisp 语言概述
一、LISP 语言的产生
1960 年 MIT 的 J.McCarthy 提 出 ， 全 称 为 List Processing Language， 即 计 算 机 表 处 理 语 言 。 在 人 工 智 能 领 域 得 到 广 泛 应 用 。 AutoDesk 公 司 将 其 引 入 AutoCAD 中 ， 称 为 AutoLisp 语 言 ， 由 于 AutoCAD 软 件 的 垄 断 地 位 ， 使 得 AutoLisp 成 为 开 发 AutoCAD 的 最主要工具，并且成为当今世界上计算机辅助设计与绘图最广泛采用的语言。
)
利 用 AutoCAD 命 令 ，绘 出 相 关 的 A 点 、直 线 、对 称 点 、投 影 点 ，交 点 等 ，并 验 算编 程结果是否正确。 附上可能使用的公式： 1、 点 （ x1,y1） 关 于 直 线 ax+by+c=0 的 对 称 点 （ x2,y2） 为
x2=x1-2a(a*x1+b*y1+c)/(a^2+b^2) y2=y1-2b(a*x1+b*y1+c)/(a^2+b^2) 2、 点 （ x1,y1） 在 直 线 ax+by+c=0 上 的 投 影 点 （ x0,y0） 为 x0=(b^2*x1-ab*y1-ac)/(a^2+b^2) y0=(a^2*y1-ab*x1-bc)/(a^2+b^2) 3、 点 （ x1,y1） 到 直 线 ax+by+c=0 的 距 离 为 ： d=|ax1+by1+c|/(a^2+b^2)
初学者常犯错误集锦
1、将表达式 用一条语 句写完， 正确 方法是采用中 间变量过 度一下 ！ 2、 命 令 中 出 现 中 文 符 号 ， 特 别 是 “ ” (比 较 "") 和 (（ 3、 在 构 造 表 时 ， '和 list 的 区 别 ， 建 议 初 学 者 一 律 使 用 list 构 造 表 4、 命 令 应 该 写 全 。 例 如 (command "l" "2,3" "0,0" "")是 错 误 的
课后练习题：已知三点坐标 A(0,0)、B(3,5)、C(5,3)
1、绘出过上 述三点的 外接圆
思 路 ：第 一 步 求 出 中 垂 线 方 程 ；第 二 步 求 出 任 意 两 条 中 垂 线 的 交 点 即 为 圆 心 ，并 求 出 半径；第三步利用圆心与半径绘出圆。 2、绘出过上 述三点的 内切圆
例 题 1： 已 知点 A（ 11， -3） 和 直 线 L1: 2x-y=1， 求
1、 点 A 关 于 直 线 L1 的 对 称 点 （ x=-8.2,y=6.6）
;;点关于直线的 对称点 (defun duichen()
(setq x1 11.0) (setq y1 -3.0) (setq a 2
3、点 A 到直线 的距离 (d=10.7331)
;;点到直线的距 离，答案是 10.7331 (defun juli()
(setq x1 11 y1 -3.0) (setq a 2 b -1 c -1.0) (setq up1 (+ (* a x1) (* b y1) c)) (setq up (abs up1)) (setq dw (sqrt (+ (* a a) (* b b)))) (setq d (/ up dw)) (princ d)(princ) )
六、AutoLisp 程序的加载及运行
两种方式： 1、单行程序，或少数几行程序，直接在命令行下运行即可。在命令行 下 逐行运行某 个 程序是最简单、最有效的调试方式。该方式的缺点是程序不能保存。 2、多行程序 的加载
在任何文 本编辑器 上建立扩 展名 为*.lsp 的文件，输入 源程序后 保存 。然后在命令 行 下使用“appload”加载该 程序即可 。 例 3：一个简单程序的加载及运行
2、 点 A 在 直 线 上 的 投 影 点 (x=1.4,y=1.8)
;;点关于直线的 投影点 (defun tyd()
(setq x1 11.0 y1 -3.0
) (setq a 2.0
b -1.0 c -1.0 ) (setq up1 (+ (* b b x1) (* a b y1 -1) (* a c -1)) up2 (+ (* a a y1) (* a b x1 -1) (* b c -1)) dw (+ (* a a) (* b b)) ) (setq x0 (/ up1 dw) y0 (/ up2 dw) ) )
(\ a b)
反斜杠错误，正确的是(/ a b)
13、养成良好 的编程习 惯：程序 名、 关键变量最好 有意义， 无论英文 或中 文 ；复杂语句
及关键语句应加上注释；养成退格习惯
14、程序没有 问题，但 绘图结果 与实 际不一致 ，有 可能是捕 捉没有关 闭， 最好在程序开 始 时 加 上 (command "osnap" "off")
(command "polygon" "4" "2,3" "i" "5")
(command "polygon" 4 "2,3" "i" 5)
(command "polygon" 4 (list 2 3) "i" 5)
(command "polygon" 4 '(2 3) "i" 5) 都 是 正 确 的 书 写 方 式 9、(defun juli()...)与(defun c:juli()...)的区别 ：前者调用 方式是 (juli)，后 者 调用方式是在 命令行下直接 输入 juli。 10、构造表的 三种方法,建议初学 者使 用 list 造表
小提示： 当表达式较复杂时，应用中间变 量过度，以便程序的理解及调试。
例 2： 写 出 x ax0 by0 c 的 表 达 式 a2 b2
(setq up (+ (* a x0) (* b y0) c)) (setq dw1 (+ (* a a) (* b b))) (setq dw (sqrt dw1)) (setq x (/ up dw))
小知识： 程序设计语言的两种基本类
型：解释型与编译型。
二、AutoLisp 语言特点
1、 与 AutoCAD 结 合 的 特 别 好 。 2、是函数型 语言，在 程序中可 方便 的定义和调用 函数。 3、执行程序 的过程就 是对函数 求值 的过程。