《机械CAD上机手册及习题集》由会员分享，可在线阅读，更多相关《机械CAD上机手册及习题集（28页珍藏版）》请在金锄头文库上搜索。
1、 1 机机 械械 CAD 上 机 手 册 及 习 题 集 上 机 手 册 及 习 题 集 韩小平韩小平 郑德聪郑德聪 编著编著 山西农业大学工程技术学院山西农业大学工程技术学院 2008.5. 目 录 Visual LISP 编程练习 .1 AUTO CAD 二维绘图练习 .8 AUTO CAD 三维绘图练习 .22 AUTO CAD 国家标准 .24 1 1 Visual LISP 编程练习编程练习 1.1 按如图所示的变量编写用户自定义函数，并按图所给数值进行调试。 编程思路： （1）确定函数名 Draw 及参数，换名变量 BP、L1、L2、W1、W2；不换名变量 SP。 （2）具体操作：
2、command : vlisp 显示 Visual LISP 编辑窗口，键入程序。 （3）程序清单： (defun draw (bp L1 L2 w1 w2 / sp) (setvar “cmdecho“ 0) (setvar “snapmode“ 0) (command “layer“ “n“ “obj“ “c“ “1“ “obj“ “s“ “obj“ “) (command “pline“ bp (setq sp (polar bp 0 L2) (setq sp (polar sp (/ pi 2.0) w1) (setq sp (polar sp (- pi) (- L2 L1) (se
3、tq sp (polar sp (/ pi 2.0) (- w2 w1) (polar sp (- pi) L1) “close“ ) (setvar “cmdecho“ 1) (setvar “snapmode“ 1) (command “zoom“ “a“) ) 注意：函数加载后，调用时输入(draw (20 40) 30 60 15 30),其中实参应与(defun draw(bp L1 L2 w1 w2)的换名变量严格一一对应。 2 1.2 按如图所示的变量编写用户自定义函数，并按图所给数值进行调试。 程序清单： (defun board (bp L w d r / p1 p2 p3
4、p4 p5 r1 bpx bpy) (setvar “snapmode“ 0) ;关闭目标捕捉功能 (setvar “cmdecho“ 0) ;关闭程序执行过程在文本屏幕中的显 示 (command “layer“ “n“ “obj,cen“ “c“ “1“ “obj“ ;设置层 obj 和 cen “c“ “4“ “cen“ “l“ “center2“ “cen“ “s“ “obj“ “ “ltscale“ 15) (setq p1 (polar bp(- pi) (+ r(/ L 2.0) ;求得 P1 的坐标 (setq p2 (polar p1 0 (+ L (* r 2.0) ;以
5、P1 为基点求 P2 的 坐标 (setq p3 (polar p1 (- (/ pi 2.0) (+ r (/ w 2.0);以 P1 为基点求 P3 的 坐标 (setq p4 (polar p2 (/ pi 2.0) (+ r (/ w 2.0) ;以 P2 为基点求 P4 的 坐标 (command “rectangle“ “fillet“ r p3 p4) ;画带圆的矩形 (setq bpx (car bp) bpy (cadr bp) (setq p5 (list (+ (/ L 2.0) bpx) (+ (/ w 2.0) bpy) ;求出小圆的圆心 (setq r1 (/ d
6、2.0) (command “circle“ p5 r1) ;绘制右上角的一个小 圆 (setq ss1 (ssget “L“) ;建立实体选择集 (command “array“ ss1 “ “R“ 2 2 (- w) (- L) ;方形阵列画 4 个小 圆 (command “layer“ “s“ “cen“ “) ；调中心线层 (command “line“ (list (car bp) (+ (cadr p4) 3.0) (list (car bp) (- (cadr p3) 3.0) “ ;画出长的垂直中 心线 “line“ (list (- (car p1) 3.0) (cadr
7、bp) (list (+ (car p2) 3.0) (cadr bp) “ ;画出长的水平中 心线 ) (command “line“ (list (car p5) (+ (cadr p5) r1 3.0) 3 (list (car p5) (- (cadr p5) r1 3.0) “ ) ;画出小圆的垂直中 心线 (setq ss2 (ssget “L“) (command “array“ ss2 “ “R“ 2 2 (- w) (- L) ;阵列刚画的中心线 (command “line“ (list (- (car p5) r1 3.0) (cadr p5) (list (+ (car
8、 p5) r1 3.0) (cadr p5) “ ) ;画出小圆的水平中 心线 (setq ss3 (ssget “L“) (command “array“ ss3 “ “R“ 2 2 (- w) (- L) ;阵列刚画的中心线 (command “zoom“ “a“) (setvar “snapmode“ 1) (setvar “cmdecho“ 1) (command “zoom“ “a“) ) 注意：函数调用后，再输入(board (100 80) 34 20 8 8) 1.3 按图 14-3 所示的变量，在 Visual Lisp 环境下编写成程序，并用图中数值调试程序，标注 L 和
9、w 两个尺寸。 程序清单: (defun FL1 (bp r1 d2 d3 L w) (setq bpx (car bp) bpy (cadr bp) 4 (setq r2 (/ d2 2.0) r3 (/ d3 2.0) (setq bp1 (list (- bpx r2) bpy) (setq p1 (list (- bpx r1 5.0) bpy) p2 (list (+ bpx r1 5.0) bpy) (setq p3 (list bpx (- bpy w 5.0) p4 (list bpx (+ bpy r1 5.0) (setq p5 (list (- bpx r2 r3 5.0
10、) bpy) p6 (list (+ (- bpx r2) r3 5.00) bpy) ;求出所给各点的坐 标 (command “layer“ “n“ “obj,cen,dim“ “c“ “1“ “obj“ “c“ “4“ “cen,dim“ “lt“ “center2“ “cen“ “s“obj“ “ “ltscale“ 20) ;设置 3 各图 层 (command “arc“ (list (+ bpx r1) bpy) (list bpx (+ bpy r1) (list (- bpx r1) bpy) ;用 3 各点绘制圆 弧 “line“(setq bp2 (list (- bpx
11、 r1) bpy) (setq bp3 (polar bp2 (- (/ pi 2.0) w) (setq bp4 (polar bp3 0.0 L) (setq bp5 (polar bp4 (/ PI 2.0) W) (POLAR BP5 Pi (- L (* r1 2.0) “ “circle“ bp1 r3) (command “array“ “L“ “ “p“ bp “5“ “360“ “y“) ;圆形阵列刚画的 圆 (command “layer“ “s“ “cen“ “) ;调中心线 层 (command “circle“ bp r2 “line“ p1 p2 “ “line“
12、p3 p4 “ “line“ p5 p6 “) (command “array“ “L“ “ “p“ bp “5“ “360“ “y“) ;阵列 p5p6 中心 线 (setq bp6 (list (car bp3) (- (cadr bp3) 8.0) (setq bp7 (list (+ (car bp4) 8.0) (cadr bp4) (command “layer“ “s“ “dim“ “ “dim“ “dimasz“ “4.0“ “dimgap“ “1.5“ “dimtxt“ “3.5“ “hor“ bp3 bp4 bp6 L “ver“ bp4 bp5 bp7 w) ;标注 L
13、和 w 两个尺 寸 (command) ) 注意：函数调用后，再输入(FL1 (140 100) 60 90 20 180 60)。 5 2 Auto CAD 二维绘图练习二维绘图练习 设计一个适合于一般工程图绘制的摸板， 包括层、 文本、 尺寸标柱、 基准块、带属性的粗糙度块、标题栏等设置内容。并按照图示尺寸绘制下列零件图及装配图。 6 7 8 9 10 11 12 13 14 15 16 17 45。018 19 3 Auto CAD 三维绘图练习三维绘图练习 说明：在 1、2 题的图中，分别将系统变量 ISOLINES、FACETRES 和 DISPSILH 设置成不同的值，然后执行 REGEN 命令和 HIDE 命令观察显示效果。分别在不同光源、场景、材质等设置下进行渲染。 3.1 绘制如图所示的图形并添加材质渲染。 20 3.2 绘制如图所示的图形并渲染。 21 4 CAD 机械制图国家标准机械制图国家标准 22 23 24 25 26
