轴承系列标准件参数化程序建库设计

(setq p6 (polar p5 0 (-(/(- D d1)4.0)(+(/(- D d1)(* b 2.0))r)))) "a" "ce" (setq o2 (polar p6 (/ pi 2.0)r)) (setq p7 (polar o2 0 r))"l" (setq p8 (polar p7 (/ pi 2) (- b(* r 2.0)))) "a" "ce" (setq o3 (polar p8 pi r)) (setq p9 (polar o3 (/ pi 2)r)) "l" (setq p10 (polar p9 pi (-(/(- D d1)4.0)(+(/(- D d1)(* b 2.0))r)))) "a" "ce" (setq o4 (polar p10 (-(/ pi 2.0))r)) (setq p11 (polar o4 pi r))"l" (setq p12 (polar p11 (-(/ pi 2)) (-(/ b 2.0)(+(/(- D d1)8.0)r)))) (setq p13 (polar p12 0 (-(/(- D d1)8.0)(/(- D d1)(* b 2.0)))))p1 "cl") (command "zoom" "e") (setq s1(entlast)) (command "mirror" "l" "" "0,0" "0,1" "") (setq s2(entlast)) (command "zoom" "e") (command "move" s1 s2 "" "0,0" (list (/(+ d1 D)4.0) 0)) (command "revolve" s1 "" "y" "") (setq s1(entlast)) (command "layer" "m" 2 "c" 41 "" "l" "continuous" "" "") (command "revolve" s2 "" "y" "") (setq s2(entlast)) (command "zoom" "e") (command "layer" "m" 3 "c" 4 "" "l" "continuous" "" "") ;
采用下拉列表框方式完成国家标准某一类型下轴承型号与对应参数的输入。 在此 基础上，用 DCL 对话框语言描述用户界面设计，并用 AutoLisp 中的对话框调用 函数完成对话框调用以实现轴承系列中若干类型下各种型号的参数化绘形绘制。
四、设计步骤：
1、轴承系列二维、三维参数化编程设计思想
轴承标准件的二维与三维参数化模型分别用来插入到机械产品二维设计装 配图和三维仿真装配图中，因此，设计时要考虑插入点的位置。根据国家标准，
(command "vpoint" "1,1,1") (command "ucs" "x" "") ;画保持架 (command "cylinder" "" (+(+(/ d1 2.0)(/(- D d1)4.0))(/(- D d1) (* b 4.0))) (+(/ b 4.0)(/(- D d1)16.0))) (setq s3(entlast)) (command "cylinder" "" (+(+(/ d1 2.0)(/(- D d1)4.0))(/(- D d1) (* b 4.0))) (-(+(/ b 4.0)(/(- D d1)16.0)))) (command "union" s3 "l" "") (setq s3(entlast)) (command "cylinder" "" (-(+(/ d1 2.0)(/(- D d1)4.0))(/(- D d1) (* b 4.0))) (+(/ b 4.0)(/(- D d1)16.0))) (setq s4(entlast)) (command "cylinder" "" (-(+(/ d1 2.0)(/(- D d1)4.0))(/(- D d1) (* b 4.0))) (-(+(/ b 4.0)(/(- D d1)16.0)))) (command "union" s4 "l" "") (command "subtract" s3 "" s4 "") (setq s3(entlast)) (command "cylinder" (list (/(+ D d1)4.0) 0 0) (/(- D d1)8.0) (/(- D d1)8.0)) (setq s5(entlast)) (command "cylinder" (list (/(+ D d1)4.0) 0 0) (/(- D d1)8.0) (-(/(- D d1)8.0))) (command "union" s5 "l" "")
图1
单列向心球轴承三维参数化建模设计
图2
机械产品柱塞泵三维爆炸图中的单列向心球轴承模型。
图 3wenku.baidu.com轴承系列二维参数化模型
下面仅是圆柱滚子轴承三维参数化设计程序代码： ;==========定义圆住滚子轴承子程序===================================== (defun 3d-yuanzhu(d1 D b / s1 s2 s3 s4 s5 s6) (command "zoom" "w" "-100,-100" "100,100") (command "layer" "m" 1 "c" 63 "" "l" "continuous" "" "") (setq osm(getvar "osmode")) (setvar "osmode" 0) (setvar "blipmode" 0) (setvar "cmdecho" 0) (setq r 0.6) (setq p0 (list 0 0 0) n 10) (command "pline" (setq p1 (polar p0 0 (/(- D d1)8.0))) (setq p2 (polar p1 (-(/ pi 2))(/(- D d1)8.0))) (setq p3 (polar p2 pi (-(/(- D d1)8.0)(/(- D d1)(* b 2.0))))) (setq p4 (polar p3 (-(/ pi 2)) (-(/ b 2.0)(+(/(- D d1)8.0)r)))) "a" "ce" (setq o1 (polar p4 0 r)) (setq p5 (polar o1 (-(/ pi 2))r)) "l" ;r 指倒角半径 ;取消小十字标
图4
用户选项对话框
图 5 轴承参数选项对话框
图 4 是机器中标准件轴承系列选择项用户界面对话框设计， 图 4 是单列向心 球轴承二维参数化绘图用户应用程序的对话框界面, 该用户界面是在图 3 打开参 数输入窗口后弹出的下一级输入数据对话框。 图 5 界面的构件组成主要考虑轴承 有多种系列，因此采用单选按纽，为了方便用户的数据查找和数据锁定，设计了 打开参数输入窗口二级用户界面对话框，用图象方式向用户显示参数，用下拉列 表框给出所选轴承各参数所对应的数据。下面是图 3、图 4 对话框的 DCL 代码。
机械工程学院大学生课外科技训练
轴承系列标准件参数化程序建库设计
（AutoCAD 二次开发）
设计者：机械设计制造及其自动化 0522 班 指导教师： 一、标准件参数化设计建库的重要性： 唐晓初 王墅 张强
标准件参数化建库设计可大大的提升原有的绘图效率,将原本繁琐的过程 化成程序自动化产生。参数化可以让效率提升至少十倍以上,让复杂图形在瞬 间完成。用 AutoLISP 语言实现轴承系列参数设计，可让用户通过开发出的界 面实现轴承系列的自动选型、自动查询工程数据库。根据所选型号和参数自动 生成二维、三维图形，插入到需要装配的平面图形和实体模型中，从而提高设 计绘图效率。 二、设计内容 1、 以轴承系列标准型号与参数为依据，实现轴承系列的二维、三维参数化数学 建模，根据数学模型，用 AutoLISP 语言编程在 AutoCAD 环境下实现计算机仿 真模型。 2、 采用 DCL 对话框控制语言完成用户界面设计。其中包括选择轴承类型、选择 图形显示方式（平面或立体）、选择型号、显示图形参数。 3、 建立工程数据库。该数据库提供相应的轴承类型、型号与参数。
(setq s5(entlast))
(command "array" "l" "" "p" "0,0" n "" "") (repeat 10 (command "subtract" s3 ) ; 画滚子 (command "layer" "m" 4 "c" 1 "" "l" "continuous" "" "") (command "cylinder" (list (/(+ D d1)4.0) 0 0) (/(- D d1)8.0) (/(- D d1)8.0)) (setq s6(entlast)) (command "cylinder" (list (/(+ D d1)4.0) 0 0) (/(- D d1)8.0) (-(/(- D d1)8.0))) (command "union" s6 "l" "") (setq s6(entlast)) (command "array" "l" "" "p" "0,0" n "" "") (command "vpoint" "0,0,1") (command "ucs" "x" -90) (command "zoom" "e") (prin1) (command "exit") ) 2、对话框用户界面程序及用户界面设计思想 "" "l" "")
设计参数定义为：轴承的内径、外径和厚度。分别分析各种模型的结构特征，建 立二维、三维模型绘图坐标点与输入参数对应关系的数学模型，充分运用 AutoCAD 内嵌的 AutoLisp 语言提供的二维平面绘图函数和三维实体建模函数， 综合应用各种坐标变换方法和图形编辑方法，采用 AutoLisp 语言编制轴承的二 维、三维计算机辅助建模程序。图 1 为采用 AutoLisp 语言编制的单列向心球轴 承三维参数化建模设计模型。 图 2 为单列向心球轴承在机械产品柱塞泵三维爆炸 图中的模型。
对话框是目前广为流行的一种人机交互界面。由于对话框可以向用户提供 图形和文本并存的可视化环境， 与没有对话框的用户应用程序必须从命令行输入 参数的方式相比， 对话框中用户所需数据的查找， 参数的输入和所绘图形的选择 更加直观，快捷，同时参数的输入不分先后顺序，还可以方便地进行修改以及对 相关数据的查询。 AutoCAD 为用户设计对话框提供了定义用户对话框界面的对话 框控 制 语言 DCL(Dialog-box Control Language) 和可 编 程 对话框 PDB 函 数 (Programmable Dialog box)（或 ADS，ARX）驱动用户的对话框。利用 AutoCAD 自身的良好资源， 用户在对 AutoCAD 进行二次开发时， 可以设计出满足不同专业 和不同需要的带有对话框的用户应用程序， 以进一步缩短设计周期， 提高设计效 率。 对话框是由构件所组成的树状结构， 对话框控制语言 DCL 就是描述对话框的 ASCII 文本文件，它包括对一个对话框（或多个对话框）构件或子构件的定义。 该 文 件可在 内 嵌于 AutoCAD 中 的 VisualLisp 编 辑 器 中编 写 ， 并 可以 利 用 VisualLisp 提供的工具预览 DCL 定义的对话框。
三、技术路线： 1．参数化程序设计：以轴承内径、外径与宽度为设计参数，研究二维平面图形、 三维立体图形与参数的对应关系， 建立相应的数学模型。 以设计参数为输入变量， 定义相关绘图变量， 建立输入变量与绘图变量关联的表达式， 用 AutoCAD 扩展命 令方式建立外部函数，调用命令实现参数化绘图。 2． 用户界面设计：确定用户界面方式、选项内容、各个选项的组织与安排，