第四章_Auto_LISP的绘图功能

“对象捕捉”工具栏的按钮 K. 捕捉垂足： L. 捕捉到平行线： P. 无捕捉： Q. 对象捕捉设置：
4.3 自动追踪
4.3.1 对于自动追踪的认识

作用：自动追踪可以帮助用户通过与前一点或与其他 对象的特定关系来快速定位点，从而快速、精确的绘 制图形。 自动追踪包括极轴追踪和对象捕捉追踪。
示例操作：

4.3.2 极轴追踪

作用：有助于按相对于前一点的角度增量和特定距离来 确定点的位置。 设置极轴追踪的属性：“工具”菜单—“草图设置” 增量角；
示例说明：




附加角；
“极轴角测量”选项区域中的“相对上一段” 打开或关闭方法：

举例：


说明： 正交模式和极轴追踪模式不能同时打开。 指定极轴角度：如果用户要沿着特定的角度只追踪一 次，可以在命令行提示指定下一点时，键入由左尖括 号<引导的角度值。
实际操作：

4.2.2 使用对象捕捉的方法
1. 使用“对象捕捉”工具栏的按钮

打开“对象捕捉”工具栏。 介绍各按钮
示例操作

2. 使用“对象捕捉”快捷菜单
示例操作（Shift键（或Ctrl键）+右键） 3. 使用“对象捕捉”字符命令 示例操作
4. 使用自动捕捉功能

特点：先设置好需要的对象捕捉模式，以后当光标移 动到这些几何点附近的时候，系统就会自动捕捉到这 些点。这种对象捕捉功能会一直持续到人为取消为止。 设置对象自动捕捉模式：“工具”菜单—“草图设置” 退出对象捕捉的自动模式：
第四章 辅助绘图
本章提要

AutoCAD绘图最大的特点在于能够精确地定 形和定位。AutoCAD提供了几个精确定形和 定位的辅助工具。第一章介绍了重要的定形定 位工具——空间坐标。本章主要介绍其他的几 个工具——对象捕捉、栅格和捕捉、正交化和 自动追踪。

2.3 AutoLISP的程序控制
基本逻辑函数： a)AND函数 b)OR函数 c) NOT函数 d)NULL函数 关系函数 a)=函数 b)/=函数 c) <及<=函数 d)>及>=函数 e) eq函数 d) equal函数
条件与循环函数 ①if函数 ②progn函数 ③cond函数 ④while函数(例题：求解百元买百鸡问题) ⑤repeat函数
2.4、AutoLisp语言基本系统内部函数介绍
1、赋值函数SETQ 2、禁止求值函数QUOTE或 ’ 3、算术运算函数 ＋ ﹑－ ﹑ ﹡ ﹑ ／ 4、增量、减量和绝对值函数(1+ number)、(1- number)、 abs 5、三角函数 sin cos atan 6、表构造函数 list和表处理函数car cdr 及它们的组合函数， nth last函数。 7、基本输出函数 prompt prin1 princ print
'e 12 'e 15 'e 20 'e 25.5 'e 37 'e 44.5 'e 58
'f 8 'f 10 'f 12.5 'f 17 'f 24 'f 29 'f 38
'h1 5.5 'h1 6 'h1 7.5 'h1 10 'h1 12 'h1 15 'h1 18
'b0 10.2) 'b0 13.4) 'b0 17.4) 'b0 22.6) 'b0 32.9) 'b0 38.9) 'b0 50.6)
练习
1.已知长方体的长、宽、高,编程求其体积. 2.对下面的S-表达式求值: (1) (/ (1- 3) (1+ 3) 2.0) (2) (/ (1- 3.0) (1+ 3) 2.0) (3) (* (max 3 4 5) (min 3 4 5)) (4) (min (max 3 1 4) (max 2 7 1)) (5) (+ (* 45 2) (/ 45 2) 2.0)

CAD二次开发练习（打开程序的时候要把捕捉关掉）南通大学-机械工程学院(defun c:lx1()(setq p0(getpoint"确定基点:"))(setq l1(getreal"\n输入长方形的宽:"))(setq l2(getreal"\n输入长方形的长:"))(setq d1(getreal"\n输入圆孔的直径:"))(setq t1(getreal"\n输入键槽的高度:"))(setq b1(getreal"\n输入键槽的宽度:"))(setq r1(*0.5d1))(setq h1(+r1t1))(setq p1(polar p00(*0.6l1)))(setq p2(polar p0(*0.5pi)(*0.6l2))) (setq p3(polar p0pi(*0.6l1)))(setq p4(polar p0(*-0.5pi)(*0.6l2)))(setq p5(polar p00(*0.5l1)))(setq p6(polar p5(*0.5pi)(*0.5l2))) (setq p7(polar p6pi l1))(setq p8(polar p7(*-0.5pi)l2)) (setq p9(polar p80l1))(setq p10(polar p0(*0.5pi)h1))(setq p11(polar p100(*0.5b1)))(setq p12(polar p11pi b1))(setq p13(polar p0pi(*0.5b1)))(setq p14(polar p130b1))(setq p15(polar p0(*0.5pi)r1))(setq p16(polar p0(*0pi)r1));为标注设定的点(setq p17(polar p7(*0.5pi)8))(setq p18(polar p10(*0.5pi)t1))(setq p19(polar p0(*0.25pi)(*1.2r1))) (setq p20(polar p0pi(*1.2r1)))(setq p21(polar p00(*0.7l1)))(setq p22(polar p0(*-0.5pi)r1)) (setq p23(polar p0(*0.25pi)r1)) (setq p24(polar p0(*-0.25pi)(*1.2r1))) (setq p25(polar p0(*-0.75pi)(*1.2r1))) (setq p26(polar p0(*0.75pi)(*1.2r1))) ;基本指令操作(command"pline"p6p7p8p9p6"") (command"circle"p0r1"") (command"line"p14p11"") (command"line"p11p12"") (command"line"p12p13"") (command"_trim"p13p14""p15"") (command"_trim"p16""p13p14"")；保存当前图层，并建立center这个图层(setq ss(getvar"clayer"))(command"-layer""m""center""c""红色""center""l""center""center""")；如图可以看到具体相应的操作，“m”为生成图层，这个图层的名称为“center”，“c”为线条定义颜色，为红色，选定当前的center图层，“l”为选择线型，选用中心线的线型，选定当前的center图层。

用LISP语言自定义AutoCAD命令AutoLISP语言作为AutoCAD的二次开发工具，虽然在功能、运行速度和保密性等方面比起ARX等工具要逊色一些，但由于它易学易用，交互性好，灵活性强，对于那些经常使用AutoCAD进行绘图的普通用户来说，不失为一种理想的开发工具。

下面就介绍用AutoLISP 语言自定义的几个AutoCAD绘图命令，可以起到简化操作、提高作图效率的作用。

一、键槽尺寸视图的绘制命令“jct”在绘制轴、齿轮或带轮等零件图时，经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图，比较麻烦；由于键槽的尺寸随轴径的变化而变化，所以我们可以用LISP程序来实现自动绘图。

加载下面的程序，在命令行中键入”jct”并回车，通过人机交互的形式输入有关参数，可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。

代码示例如下所示。

(defun C:jct ()(setq pt0 (getpoint "\n 请输入视图的中心位置点:"))(initget 7)(setq loop T)(while loop(setq d (getreal "\n请输入键槽处的轴径(12<d<130)(mm):"))(if(or (< d 12) (> d 130))(alert "轴径数据输入错误!\n\n请重新输入!")(setq loop nil));if);while(cond;根据轴径检索键槽尺寸((and (> d 12) (<= d 17)) (setq b 5 t1 3.0 t2 2.3));b表示键槽的宽度((and (> d 17) (<= d 22)) (setq b 6 t1 3.5 t2 2.8));t1表示轴上键槽的深度((and (> d 22) (<= d 30)) (setq b 8 t1 4.0 t2 3.3));t2表示轮毂上键槽的高度((and (> d 30) (<= d 38)) (setq b 10 t1 5.0 t2 3.3))((and (> d 38) (<= d 44)) (setq b 12 t1 5.0 t2 3.3))((and (> d 44) (<= d 50)) (setq b 14 t1 5.5 t2 3.8))((and (> d 50) (<= d 58)) (setq b 16 t1 6.0 t2 4.3))((and (> d 58) (<= d 65)) (setq b 18 t1 7.0 t2 4.4))((and (> d 65) (<= d 75)) (setq b 20 t1 7.5 t2 4.9))((and (> d 75) (<= d 85)) (setq b 22 t1 9.0 t2 5.4))((and (> d 85) (<= d 95)) (setq b 25 t1 9.0 t2 5.4))((and (> d 95) (<= d 110)) (setq b 28 t1 10.0 t2 6.4))((and (> d 110) (<= d 130)) (setq b 32 t1 11.0 t2 7.4)))(command "circle" pt0 "d" d)(command "zoom" "a")(setq s1 (ssget "l" ))(setq di (-(* (/ d 2.0) (/ d 2.0)) (* (/ b 2.0) (/ b 2.0)))dx (sqrt di)dy (/ b 2.0)pt1 (list (+ (car pt0) dx) (+ (cadr pt0) dy)))(initget "Zc Lc");Zc表示画轴键槽的剖视图,Lc表示画轮毂键槽的端面视图(setq zrl (getkword "\n 画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?"))(if (= zrl "Zc")(progn;计算轴键槽上点的坐标(setq pt2 (list (+ (car pt0) (-(/ d 2.0) t1)) (+ (cadr pt0) dy))pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 0 (- dx (- (/ d 2.0) t1)))));progn);if(if (= zrl "Lc")(progn;计算轮毂键槽上点的坐标(setq pt2 (list (+ (car pt0) (+(/ d 2.0) t2)) (+ (cadr pt0) dy))pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 (- pi) (- (+ (/ d 2.0) t2) dx))));progn);if(command "pline" pt1 pt2 pt3 pt4 "");画键槽(setq s2 (ssget "l"))(command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")(command "ltscale" 8)(command "line" (polar pt0 (- pi) (+ (/ d 2.0) 10));画中心线(polar pt0 0 (+ (/ d 2.0) 10)) "")(command "line" (polar pt0(-(/ pi 2.0)) (+ (/ d 2.0) 10))(polar pt0 (/ pi 2.0) (+ (/ d 2.0) 10)) "")(command "layer" "s" 0 "")(if (= zrl "Zc")(progn(setq s3 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s3 "");修剪形成键槽(command "hatch" "U" "45" "2" "n" s1 s2 ""));画轴上键槽处剖视图的剖面线);if(if (= zrl "Lc")(progn(setq s4 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s4 "");修剪形成键槽(command "rotate" s1 s2 "" pt0 90));将轮毂键槽的端面视图旋转90度);if);end defun二、螺纹孔剖视图的绘制命令“lwk”在绘制机械零件图时，经常要画螺纹孔的剖视图，同样由于螺纹孔的有关尺寸都随螺纹的公称直径而变化，我们可以用下面的程序自动完成其剖视图的绘制。