AutoCAD钣金常用命令(含二次开发)
AutoCAD软件的二次开发
6. 实体名：为图形对象指定的16进制的数字标识。通过该标识，可找到实体在 图形数据库中的位置，并可进一步对其进行编辑。
例：_$(entlast) 说明：返回最后一个加入图形文件的对象的实体名
第110页/共54页
7. 2 AutoLISP程序设计语言
表的长度：表中的元素个数。
例：(1.0 1.0 0.0) (“this” “that” “the other”) (1 “ONE”) ((a b) c (c d))
长度： 3
3
2
3
长度：(+ 142 3)
(sin (*20.5 pi))
用表可以方便地构造出复杂的数据结构。
5. 选择集：一个或多个图形对象的集合，用户可通过AutoLISP程序向选择集添 加或者从选择集中删除图形对象。
第65页/共54页
7. 1 VisualLISP简介
五、VisualLISP: Autodesk公司为增强AutoLISP程序开发能力而设 计的软件工具。
Visual LISP集成开发环境的组成部分：
语法检查器：可识别错误的AutoLISP结构和内部函数调用中不合适的参数。 文件编译器：可改善程序的执行速度并提供一个有效的开发平台。
Heap：25000 bytes Stack（栈区域）：存储函数的变量和局部结构。标准表中嵌套的表越多，函数执行的 递归次数越多，该区域所占的空间越大。
Stack：20000 byets
注意：AutoCAD平台上运行AutoLISP时，用户不能扩展系统的堆或栈空间
2. 内存出错提示信息
堆空间用光：Insufficient node space。 没有足够的内存装载AutoLISP：Insufficient memory-AutoLISP disabled。
CAD钣金零件的折弯和展开操作指南
CAD钣金零件的折弯和展开操作指南在CAD设计领域中，折弯和展开操作是钣金零件设计中非常重要的步骤。
通过折弯和展开，我们可以方便地制作出钣金零件的原型，并且能够准确地计算和确定零件的尺寸和形状。
本文将介绍如何在CAD软件中进行钣金零件的折弯和展开操作，以帮助读者了解和掌握相关技巧。
首先，我们需要使用CAD软件打开钣金零件的3D模型。
在打开模型之后，我们可以使用软件提供的工具选择折弯边缘。
一般来说，折弯边缘是通过在3D模型中定义一个切线来表示的，这个切线与零件的某个边缘形成一个夹角，这个夹角就是折弯角度。
在选择了折弯边缘之后，我们可以通过软件提供的操作命令来设定折弯角度，并且可以在模型中预览折弯后的形状。
折弯操作完成之后，我们就可以进行钣金零件的展开操作。
展开操作是将折弯后的零件展开为一个平面的过程，以方便后续的生产和制造。
在展开操作中，我们需要根据折弯后形成的角度和线条，在CAD软件中绘制一系列的直线和弧线，以重新构建零件的展开形状。
这时候，我们可以使用软件提供的绘图工具来进行绘制，也可以通过一些数学方法来计算和确定展开图形的尺寸和形状。
在绘制完成展开图形之后，我们可以通过CAD软件中的折弯模拟工具来进行验证。
折弯模拟工具可以根据零件的展开图形和折弯角度，模拟出实际生产中的折弯过程，并且可以在模拟过程中进行调整和优化。
通过折弯模拟工具，我们可以预先检查零件在折弯过程中可能出现的问题，如过度拉伸、皱纹等，并且可以调整折弯顺序和工序，以达到最佳的制造效果。
最后，在完成折弯和展开操作之后，我们可以在CAD软件中生成相应的工程图。
工程图是钣金零件生产中必不可少的一环，它包括了零件的尺寸、形状、折弯角度等重要信息。
通过工程图，操作人员可以根据绘图上的标注和图纸来进行实际的折弯和制造工作，并且可以确保按照设计要求正确地加工出最终的零件。
综上所述，钣金零件的折弯和展开操作是CAD设计中不可或缺的一部分。
通过CAD软件提供的工具和功能，我们可以方便地进行折弯和展开操作，并且能够准确地计算和确定零件的尺寸和形状。
第五章 AutCAD二次开发
X和Y的值表示文本相对于直线的偏移量。X可以用来拟合横线之 间形成文本的空间；Y可以用来使形或文本沿线型居中。
标题行
➢ 定义时始终用星号（*）开始； ➢ 说明字符限制在47个字符以内； ➢ 如果包含说明，之前要放置逗号。
定义行
√ 横线用正数、点用零、空格用负数表示; √ 每项之间用逗号（，）分隔，没有空格， √ 每行的最大长度为80个英文字符;
√ 每行都必须以字符A开头。
Exp1:
*DASHDOT,
.
.
A,0.5,-0.25,0,-0.25
/=
不等于。如果所有参数值不相等，返回T，否则，返回nil
<
小于。如果每个参数值都小于下一个参数，返回T，否则，返回nil
>
大于。如果每个参数值都大于下一个参数，返回T，否则，返回nil
>=
大于等于。如果每个参数值都大于或等于下一个参数，返回T，否则，返回nil
<=
小于等于。如果每个参数值都xiao于或等于下一个参数，返回T，否则，返回nil
通过AutoLISP能够了解到AutoCAD的内部工作原理，并 且是学习ObjectARX和VBA这样更加先进的自动方法的奠基 石。 AutoLISP例程可以为用户提供全面控制程序运行与用 户之间相互关系的能力。
AutoLISP的扩展名为.lsp，但是为了安全和运行速度， 可将AutoLISP文件保存成.fas或.vlx为扩展名的工程项目应用 文件。 AutoCAD首先加载.vlx文件，然后加载.fas文件，最 后加载.lsp文件。例如，如果有两个redline.vlx和redline. 件，AutoCAD加载.vlx文件,但如果.lsp文件比.fas文件新, AutoCAD将加载.lsp文件。
CAD二次开发命令
箭头线
y
Y
箭头标识
FD
移动
qdim 快速标注
CF
变虚线
FR
倒R角
dimradius半径尺寸标注
dra或dr
CE
自动展开
FX
制作块属性
dimdiamet直er 径尺寸标注
ddi或dd
CR
旋转复制
DD
标注直径
圆的直径标注
qc
BT
自动标注孔位代号 DR
标注半径
properties 对象属性管理器
bb
D1
自动将标注A改为B DF
CAD常用二次开发命令
GG
镜像
AA
放大标注
layer 图层控制
la
FFR
调用图框信息
DE
放在25.4并另存
line
画直线段
l或ss
FV
锁定指定图层
DXF
自动输入DXF
ray
画射线
ra
DW
保存指定图层
BDC
刀具图
xline 画直线
xl或xx
RB
生成标准图层
CS
简单剖视画法
水平直线
xs
ER
调用图框
CB
复制成块
dor
CMK
自动计算孔径
FF
连接成直角
Y方向
dy
DST
标注样式
EC
设变次快捷命令
X方向
dx
CCD
恢复对象捕捉
QC
标注多个圆的直径
双向标注
ag
DCC
取消对象捕捉
QE
查询抽牙底孔
dimangula角r 度尺寸标注
AutoCAD常用命令介绍
AutoCAD常用命令介绍AutoCAD 是一款广泛应用于工程设计、建筑设计、机械设计等领域的计算机辅助设计软件。
熟练掌握其常用命令，可以大大提高工作效率。
下面就为大家详细介绍一些 AutoCAD 中常用的命令。
一、绘图命令1、直线（LINE）直线命令用于绘制直线段。
在命令行输入“LINE”或点击绘图工具栏中的直线图标，指定起点和终点，就可以绘制出一条直线。
可以连续指定多个点来绘制连续的直线段。
2、圆（CIRCLE）圆命令可以绘制圆形。
输入“CIRCLE”，可以通过指定圆心和半径、直径、三点、两点等方式来绘制圆。
3、矩形（RECTANG）矩形命令用于绘制矩形。
输入“RECTANG”，指定矩形的两个对角点，就可以绘制出矩形。
还可以设置矩形的倒角、圆角等参数。
4、多边形（POLYGON）多边形命令用于绘制正多边形。
输入“POLYGON”，指定边数和中心点，然后选择内切圆或外接圆的方式来确定多边形的大小。
二、修改命令1、移动（MOVE）移动命令可以将选定的对象从一个位置移动到另一个位置。
选择对象后输入“MOVE”，指定基点和位移点，对象就会移动到新的位置。
2、复制（COPY）复制命令用于复制选定的对象。
输入“COPY”，选择对象，指定基点和复制的次数或位移点，就可以复制出多个相同的对象。
3、旋转（ROTATE）旋转命令可以将选定的对象绕指定的基点旋转一定的角度。
选择对象后输入“ROTATE”，指定基点和旋转角度，对象就会按照指定的角度旋转。
4、缩放（SCALE）缩放命令用于放大或缩小选定的对象。
输入“SCALE”，选择对象，指定基点和缩放比例因子，对象就会按照比例进行缩放。
5、修剪（TRIM）修剪命令用于修剪对象，使其与其他对象的边界相交。
输入“TRIM”，选择作为修剪边界的对象，然后选择要修剪的对象部分，被选中的部分就会被修剪掉。
6、延伸（EXTEND）延伸命令用于将对象延伸到指定的边界。
输入“EXTEND”，选择作为延伸边界的对象，然后选择要延伸的对象，对象就会延伸到边界。
CAD二次开发技术 命令符集合
;;;算术运算函数(max 20.0 30.0 0.0)(sqrt 16)(expt 3 3);;;三角函数(sin (/ pi 6));;;取整函数(fix (/ pi 2));;;赋值函数(setq aa (/ pi 2));;;quote应用(setq aa(quote (- 2 1) ))(setq aa ' (- 2 1) );;;自定义函数defun(defun dtr ()(setq a 40)(setq b 40))(defun sqrab (a b )(setq c (+ (* a a)(* b b)))(sqrt c));;;定义一个把度转换成弧度的函数(defun dtr (a)(* a (/ pi 180.0)));;;求45度的正弦值(defun qsin ()(sin (dtr 45)));;;提取点(20.0 30.0 0.0)的X、Y、Z坐标(setq aa (list 20.0 30.0 0.0))(car aa)(cdr aa)(cadr aa)(caddr aa);;;提取表中第n个元素：(setq bb '("大" "家" "好"))(nth 0 bb)(nth 1 bb)(nth 2 bb);;;用append构造表(setq aa (list 20.0 30.0 0.0))(setq bb (list aa "AA"))(setq ee (append aa bb));;;用cons构造坐标(setq aa (list 20.0 30.0 0.0))(setq bb (list 500.0 600.0 0.0))(command "line" aa bb "")(setq cc (cons 300.0 (cdr bb)))(command "line" aa cc "");;;用cons构造点对(setq aa (cons 'a "aaa"));;;reverse 应用(setq aa (list 30.0 20.0 10.0))(setq bb (REVERSE aa));;;assoc 应用(setq aa (list '(a . rest) '(pt 30.0 20.0 10.0) '("O" 90)))(setq bb (assoc "O" aa))(setq cc (assoc 'pt aa));;;subst 应用(setq aa (list '(a . rest) '(pt 30.0 20.0 10.0) '("O" 90)))(setq bb (assoc "O" aa))(setq cc (subst '(pt 80.0 60.0 40.0) '(pt 30.0 20.0 10.0) aa)) ;;;foreach应用(foreach cir '((3 2 1) (4 4.5 0.5) (7 5 2))(setq Ce (list (car cir) (cadr cir)))(setq r (caddr cir))(command "circle" Ce r));;;mapcar应用(mapcar 'abs '(-2 -4 4.5 -0.5) );最高成绩(setq xlcjb '("小李" 92 85 80 ))(setq xzcjb '("小张" 81 90 88 ))(setq xwcjb '("小王" 90 85 90 ))(setq xl (nth 0 xlcjb) xlyw (nth 0 xlcjb)xlsx (nth 0 xlcjb) xlwy (nth 0 xlcjb))(setq ywjgcj (max xlyw xzyw xwyw));语文最高成绩(setq sxjgcj (max xlsx xzsx xwsx));数学最高成绩(setq wyjgcj (max xlwy xzwy xwwy));外语最高成绩;;;eval应用(setq a 12)(setq b a)(eval b)(setq a '(abs -22))(setq b a)(eval b);;;get类函数应用(defun dcir ()(setq pc (getpoint"\n圆心位置："))(setq r (getreal "\n圆半径："))(command "circle" pc r))(defun xjgz ()(setq pc (getpoint"\n写字位置："))(setq r (getstring "\n写的内容："))(command "text" pc 30 0 r);;"开心每一天！" "技术条件";;;polar函数应用(defun hjx ();(setq pt (getpoint"\n起点位置："))(setq l (getreal "\n矩形长："))(setq h (getreal "\n矩形高："))(setq pt1 (polar pt 0 l))(setq pt2 (polar pt1 (/ pi 2) h))(setq pt3 (polar pt2 pi l))(command "line" pt pt1 pt2 pt3 pt ""));;;getpoint,angle,distance,polar,command函数综合运用(defun hjx1 ()(setq pt (getpoint"\n起点位置："))(setq ptt (getpoint"\n绘制方向：" pt))(command "line" pt ptt "")(setq jxang (angle pt ptt))(setq jxdis (distance pt ptt))(setq pt1 (polar pt (+ jxang 0) (/ jxdis 2)))(setq pt1 (polar pt1 (+ jxang (/ pi 2)) 50))(setq pt2 (polar pt1 (+ jxang (/ pi 2)) 80))(setq pt3 (polar pt1 (+ jxang (/ pi 4)) 60))(setq pt4 (polar pt1 (+ jxang (* 3(/ pi 4))) 60))(command "circle" pt1 50)(command "circle" pt2 30)(command "circle" pt3 10)(command "circle" pt4 10))(defun hjx11 ()(command "erase" "all" "")(setq pt (getpoint"\n起点位置："))(setq ptt (getpoint"\n绘制方向：" pt))(command "line" pt ptt "")(setq ss2 (ssget "L"))(setq jxang (angle pt ptt))(setq jxdis (distance pt ptt))(setq pt11 (polar pt (+ jxang 0) (/ jxdis 2.0)))(setq pt1 (polar pt11 (+ jxang (/ pi 2.0)) 50.0))(setq pt2 (polar pt1 (+ jxang (/ pi 2.0)) 80.0))(setq pt3 (polar pt1 (+ jxang (/ pi 4.0)) 61.0))(setq pt4 (polar pt1 (+ jxang (* 3.0(/ pi 4.0))) 61.0))(command "circle" pt1 50)(setq ss1 (ssget "L"))(command "circle" pt2 30)(setq ss1(ssadd (entlast) ss1))(command "circle" pt3 10)(setq ss1(ssadd (entlast) ss1))(command "circle" pt4 10)(setq ss1(ssadd (entlast) ss1))(command "erase" ss2 "")(setq r (getreal "\n动吗？"))(setq i 0)(while (< i 9)(command "rotate" ss1 "" pt11 5)(setq j 0)(while (< j 20000) (setq j (+ j 1)))(setq i (+ i 1)))(setq i 0)(while (< i 18)(command "rotate" ss1 "" pt11 -5)(setq j 0)(while (< j 20000) (setq j (+ j 1)))(setq i (+ i 1)))(setq i 0)(while (< i 18)(command "rotate" ss1 "" pt11 5)(setq j 0)(while (< j 20000) (setq j (+ j 1)))(setq i (+ i 1)))(setq i 0)(while (< i 9)(command "rotate" ss1 "" pt11 -5)(setq j 0)(while (< j 20000) (setq j (+ j 1)))(setq i (+ i 1)))(setq r (getreal "\n")));;;command函数应用(defun dcir ()(command "circle")(setq pc (getpoint"\n圆心位置："))(command pc)(setq r (getdist "\n圆半径：" pc))(command r));;;itoa、atoi、atof函数应用(setq aa (itoa 12))(setq aa (atoi "12.3"))(setq aa (atof "12.3"));;;rtos 函数应用(setq aa (rtos 3456.7890 2 4))(setq aa (atoi "12.3"))(setq aa (atof "12.3"));;;strcat 函数应用(setq aa (sin (* 30 (/ pi 180))))(setq bb (rtos aa 2 3))(setq cc (strcat "sin30°= " bb))(setq pc (getpoint"\n写字位置："))(setq dd (command "text" pc 10 0 cc))(setq zz (substr cc 4 4));;;if 函数应用(if (= 3 1) "正确" "错误")(setq pt (getpoint"\n算式书写位置："))(command "text" pt 10 0 "计算：20 X 20 =")(setq aa (getreal "\n请输入计算结果：") )(setq bb (rtos aa 2 1))(if (= aa 400)(progn(setq pt1 (polar pt 0 120 ))(command "text" pt1 10 0 bb)(setq pt1 (polar pt (/ pi -2) 40 ))(command "text" pt1 10 0 " 计算正确") )(progn(setq pt1 (polar pt 0 120 ))(command "text" pt1 10 0 bb)(setq pt1 (polar pt (/ pi -2) 40 ))(command "text" pt1 10 0 " 计算错误") ))(setq r (getreal "\n"));;;cond 函数应用(setq a 4)(cond ((= a 1)(princ "A=1"))((= a 2)(princ "A=2"))((= a 3)(princ "A=3"))((= a 4)(princ "A=4"))((= a 5)(princ "A=5")))(print);;;while 函数应用(setq n 1)(while (< n 11)(princ (* n n))(princ " ")(setq n (1+ n)))(print)(setq pt '(200 150))(setq n 1)(while (< n 5)(command "circle" pt "50")(setq pt (subst (+ (car pt) 120) (car pt) pt))(setq n (1+ n)))(setq pt '(200 150))(setq n 1)(repeat 6(command "circle" pt "50")(setq pt (subst (+ (car pt) 120) (car pt) pt)));;;搜索＜文件＞的路径函数(findfile "mylx.lsp")(setq aa (sin (* 30 (/ pi 180))))(setq bb (rtos aa 2 3))(setq cc (strcat "sin30°= " bb))(setq pc (getpoint"\n写字位置："))(setq dd (command "text" pc 10 0 cc))(setq ffm (open "D:/韩文挡/AutoLISP程序设计/mydata.dat" "w")) (write-line cc ffm)(close ffm);;;选择集操作数(setq pt '(10.0 10.0))(while (/= pt nil)(setq pt (getpoint "\n起点："))(setq pt1 (polar pt (/ pi 2) 100))(setq pt2 (polar pt1 (* 5 (/ pi 3)) 65))(setq pt3 (polar pt1 (* 4 (/ pi 3)) 65))(command "pline" pt pt1 pt3 pt1 pt2 "")(setq ss (ssget "L"))(command "array" ss "" "p" pt 5 "" "")(command "copy" ss "" pt '(200 200)))(setq r (getreal "\n"))(setq pt (getpoint "\n起点："))(setq pt1 (polar pt (* 5 (/ pi 4)) 50))(setq pt2 (polar pt (/ pi 4) 50))(command "CIRCLE" pt 15)(setq ss2 (ssget "L"))(command "rectang" pt1 pt2)(ssadd (entlast) ss2 )(setq pt3 (polar pt (/ pi 4) 200))(setq pt4 (polar pt3 pi 300))(command "line" pt3 pt4 "")(command "mirror" ss2 "" pt3 pt4 "")(setq ss1 (ssget "x" '((0 . "CIRCLE"))))(setq pt1 (getpoint "\n移动起点："))(setq pt2 (getpoint "\n移动终点：" pt1))(command "move" ss1 "" pt1 pt2)(setq ss1 (ssget "w" ))(setq pt1 (getpoint "\n移动起点："))(setq pt2 (getpoint "\n移动终点：" pt1))(command "move" ss1 "" pt1 pt2)(command "copy" ss1 "" pt2 pt1);;;生成新体体(entmake (list (cons 0 "line")(10 100.0 100.0 0.0)(11 100.0 200.0 0.0))) ;;;综合举例;;;1.求两二阶矩阵的乘积;;;;;; _ _ _ _;;; | 1.0 2.0 | | 4.0 3.0 |;;; | | X | |＝;;; |_3.0 4.0_| |_2.0 1.0_|;;;(defun qjzj ()(setq ah1 '(1.0 2.0))(setq ah2 '(3.0 4.0))(setq bl1 '(4.0 2.0))(setq bl2 '(3.0 1.0))(setq c11 (+ (* (nth 0 ah1)(nth 0 bl1))(* (nth 1 ah1)(nth 1 bl1))))(setq c12 (+ (* (nth 0 ah1)(nth 0 bl2))(* (nth 1 ah1)(nth 1 bl2))))(setq c21 (+ (* (nth 0 ah2)(nth 0 bl1))(* (nth 1 ah2)(nth 1 bl1))))(setq c22 (+ (* (nth 0 ah2)(nth 0 bl2))(* (nth 1 ah2)(nth 1 bl2))))(princ "\n 所求计算结果为：")(princ "\n _ _") (princ " _ _")(princ " _ _")(princ "\n | 1 2 |")(princ " | 1 2 |")(princ " | ")(princ c11)(princ " ")(princ c12 )(princ " |")(princ "\n | |")(princ " X | |")(princ " = | |")(princ "\n |_3 4_|")(princ " |_3 4_|")(princ " |_")(princ c21)(princ " ")(princ c22 )(princ "_|")(print)(print));;;1.绘制一起点在(100 100)点、边长为5的正方形;;;(defun hzfx ()(setq pt1 '(100.0 100.0))(setq pt2 (list (+ 5.0 (car pt1)) (cadr pt1)))(setq pt3 (list (car pt1) (+ 5.0(cadr pt1))))(setq pt4 (list (+ 5.0 (car pt1)) (+ 5.0(cadr pt1))))(command "line" pt1 pt2 pt4 pt3 pt1 ""))(defun drawjc1 ()(setq pt1 (getpoint "\n孔中心点"))(setq kd (getreal "\n孔径"))(setq jb (getreal "\n键槽宽"))(setq jt (getreal "\n键槽深"))(command "layer" "m" "1" "c" "red" "" "l" "center" "" "")(setq pt2 (polar pt1 0 (+ (* kd 0.5) 5)))(setq pt3 (polar pt1 pi (+ (* kd 0.5) 5)))(setq pt4 (polar pt1 (/ pi 2) (+ (- jt (* kd 0.5)) 5)))(setq pt5 (polar pt1 (/ pi -2) (+ (* kd 0.5) 5)))(setq x (sqrt(- (* (/ kd 2) (/ kd 2))(* (/ jb 2)(/ jb 2)))))(setq pt6 (polar pt1 (/ pi 2) x))(setq pt7 (polar pt6 0 (/ jb 2)))(setq pt8 (polar pt6 pi (/ jb 2)))(setq pt9 (polar pt1 (/ pi 2) (- jt (/ kd 2))))(setq pt10 (polar pt9 0 (/ jb 2)))(setq pt11 (polar pt9 pi (/ jb 2)))(command "layer" "s" "1" """line" pt2 pt3 """line" pt4 pt5 """layer" "s" "0" """line" pt7 pt10 pt11 pt8 """arc" pt8 "C" pt1 pt7))(defun drawjc2 ()(setq kd nil jb nil jt nil liuliang 1);;设置图层(command "layer" "m" "draw" "c" "white" "" "")(command "layer" "m" "center" "c" "red" "" "l" "center" "" "");;打开对话框(setq index_value (load_dialog "D:/韩文挡/AutoLISP程序设计/drawjc.dcl"))(if (not (new_dialog "drawjc" index_value))(exit))(fy "image_jsk" "D:/韩文挡/AutoLISP程序设计/ls.sld" )(set_tile "edit_kd" "100")(set_tile "edit_jb" "28")(set_tile "edit_jt" "110")(action_tile "edit_kd" "(setq kd (atof $value))")(action_tile "edit_jb" "(setq jb (atof $value))")(action_tile "edit_jt" "(setq jt (atof $value))")(action_tile"cancel""(setq liuliang nil) (done_dialog 0)")(start_dialog)(unload_dialog index_value );;图形绘制(if (= liuliang nil) (exit))(setq pt1 (getpoint "\n孔中心位置："))(setq pt2 (polar pt1 0 (+ (* kd 0.5) 5)))(setq pt3 (polar pt1 pi (+ (* kd 0.5) 5)))(setq pt4 (polar pt1 (/ pi 2) (+ (- jt (* kd 0.5)) 5)))(setq pt5 (polar pt1 (/ pi -2) (+ (* kd 0.5) 5)))(setq x (sqrt(- (* (/ kd 2) (/ kd 2))(* (/ jb 2)(/ jb 2)))))(setq pt6 (polar pt1 (/ pi 2) x))(setq pt7 (polar pt6 0 (/ jb 2)))(setq pt8 (polar pt6 pi (/ jb 2)))(setq pt9 (polar pt1 (/ pi 2) (- jt (/ kd 2))))(setq pt10 (polar pt9 0 (/ jb 2)))(setq pt11 (polar pt9 pi (/ jb 2)))(command "layer" "s" "center" """line" pt2 pt3 """line" pt4 pt5 """layer" "s" "draw" """line" pt7 pt10 pt11 pt8 """arc" pt8 "C" pt1 pt7));;在图象控件内显示幻灯片的自定义函数(defun fy (fhmode fhsld)(setq x (dimx_tile fhmode)y (dimy_tile fhmode))(start_image fhmode)(fill_image 4 4 (- x 8) (- y 8) 0)(slide_image 16 0 (- x 8) (- y 8) fhsld)(end_image));;;应用外部数据文件(defun drawjc3 ()(setq ffm (open "D:/韩文挡/AutoLISP程序设计/geardata.dat" "r")) (setq kd (atof (read-line ffm)))(setq jb (atof (read-line ffm)))(setq jt (atof (read-line ffm)))(close ffm)(command "layer" "m" "1" "c" "red" "" "l" "center" "" "")(setq pt1 (list 1.0 1.0))(while (/= pt1 nil)(setq pt1 (getpoint "\n孔中心位置："))(setq pt2 (polar pt1 0 (+ (* kd 0.5) 5)))(setq pt3 (polar pt1 pi (+ (* kd 0.5) 5)))(setq pt4 (polar pt1 (/ pi 2) (+ (- jt (* kd 0.5)) 5)))(setq pt5 (polar pt1 (/ pi -2) (+ (* kd 0.5) 5)))(setq x (sqrt(- (* (/ kd 2) (/ kd 2))(* (/ jb 2)(/ jb 2)))))(setq pt6 (polar pt1 (/ pi 2) x))(setq pt7 (polar pt6 0 (/ jb 2)))(setq pt8 (polar pt6 pi (/ jb 2)))(setq pt9 (polar pt1 (/ pi 2) (- jt (/ kd 2))))(setq pt10 (polar pt9 0 (/ jb 2)))(setq pt11 (polar pt9 pi (/ jb 2)))(command "layer" "s" "1" """line" pt2 pt3 """line" pt4 pt5 """layer" "s" "0" """line" pt7 pt10 pt11 pt8 """arc" pt8 "C" pt1 pt7)));;;绘制法兰盘(defun flp ()(command "layer" "m" "1" "c" "red" "" "l" "center" "" "")(command "layer" "m" "2" "c" "yellow" "" "")(command "erase" "all" "")(setq pce (getpoint "\n圆心:" ))(setq aa "y")(while (= aa "y")(setq r (getreal "\n半径:" ))(command "layer" "s" "0" """circle" pce r)(setq aa (getstring "\n画同心圆吗？(y/n)" )))(setq ccent (entsel "\n给同心圆加中心线，请点选同心圆中半径最大的圆")) (setq ccentm (car ccent))(setq cm (entget ccentm))(setq ccr (cdr (assoc 40 cm)))(setq pt1 (polar pce 0 (+ 5 ccr)))(setq pt2 (polar pce pi (+ 5 ccr)))(setq pt3 (polar pce 1.5708 (+ 5 ccr)))(setq pt4 (polar pce -1.5708 (+ 5 ccr)))(command "layer" "s" "1" """line" pt1 pt2 """line" pt3 pt4 "")(setq r1 (getreal "\n螺纹孔分布半径:" ))(command "circle" pce r1)(setq plwce (getpoint "\n螺纹孔圆心:" ))(setq r2 (getreal "\n螺纹孔直径:" ))(command "layer" "s" "0" """circle" plwce r2)(setq ss (ssget "L"))(setq pt1 (polar plwce -1.5708 (* r2 1.2)))(setq pt2 (polar plwce pi (* r2 1.2)))(command "layer" "s" "2" """arc" "ce" plwce pt1 pt2)(ssadd (entlast) ss )(setq rg (getint "\n螺纹孔个数:" ))(command "array" ss "" "p" pce rg "360" "n")(command "layer" "s" "0" "")(setq l (getreal "\n")));;;给圆加中心线(defun dccl (/ ccent ccentm cm ccpt ccr pt1 pt2 pt3 pt4)(command "layer" "m" "1" "c" "red" "" "l" "center" "" "")(setq ccent (entsel "\n请点选要填加中心线的圆"))(while (/= ccent nil)(setq ccentm (car ccent))(setq cm (entget ccentm))(setq ccpt (cdr (assoc 10 cm)))(setq ccr (cdr (assoc 40 cm)))(setq pt1 (polar ccpt 0 (+ ccr 5)))(setq pt2 (polar ccpt pi (+ ccr 5)))(setq pt3 (polar ccpt 1.5708 (+ ccr 5)))(setq pt4 (polar ccpt -1.5708 (+ ccr 5)))(command "layer" "s" "1" """line" pt1 pt2 """line" pt3 pt4 "")(setq ccent (entsel "请点选要填加中心线的圆")) )(command "layer" "s" "0" ""));;;图层格式刷(defun tcgss (/ ccent ccentm cm ccpt ccent1 ccentm1 cm1) (setq ccent (entsel "\n请点选格式样板：")) (setq ccentm (car ccent))(setq cm (entget ccentm))(setq ccpt (assoc 8 cm))(setq ccent1 (entsel "\n请点选格式对象："))(while (/= ccent1 nil)(setq ccentm1 (car ccent1))(setq cm1 (entget ccentm1))(setq cm1 (subst ccpt (assoc 8 cm1) cm1))(entmod cm1)(setq ccent1 (entsel "\n请点选格式对象："))));;;等圆格式刷(defun dygss (/ ccent ccentm cm ccpt ccent1 ccentm1 cm1) (setq ccent (entsel "\n请点选格式样板：")) (setq ccentm (car ccent))(setq cm (entget ccentm))(setq ccpt (assoc 40 cm))(setq ccent1 (entsel "\n请点选格式对象："))(while (/= ccent1 nil)(setq ccentm1 (car ccent1))(setq cm1 (entget ccentm1))(setq cm1 (subst ccpt (assoc 40 cm1) cm1))(entmod cm1)(setq ccent1 (entsel "\n请点选格式对象："))))。
CAD7AutoCAD二次开发技术
图7.1 标注粗糙度
下面的AutoLISP函数就是向AutoCAD增加一条标注粗糙度的新命 令,命令名为CCD. (defun C:ccd() (setq bp (getpoint "\nEnter basepoint:") ang (getangle "\nEnter rotate angle:") txt (getstring "\nEnter value:") ) (command "line" bp (polar bp (+ ang (/ pi 3)) 12) "") (setq pt (polar bp (+ ang (/ pi 1.5)) 7)) (command "line" bp pt (polar pt ang 7) "") (cond ((< ang pi) (command "text" (polar pt (+ ang 70) 1.2) "2.5" (* ang (/ 180 pi)) (eval txt))) (T (command "text" "j" "r" (polar pt (+ ang 70) 3.7) "2.5" (* (- ang pi) (/ 180 pi)) (eval txt))) ) )
4.菜单项的表示: 菜单项的表示:
菜单或子菜单中包含的一行行命令串称为菜单项.菜单项有 以下几种表示: (1) [菜单项名]命令串 该方法用于屏幕菜单项或下拉菜单项的表示. (2) [字符串] 方括号中的字符串只是作为子菜单的标题项使用. (3) 字符串 该种表示方法是第(1)种表示方法的特例,此时,字符串既作 为菜单项名显示在屏幕上,又作为命令串出现在命令行. (4) [->子菜单名]和[<- 菜单项名]命令串 前者是调用下拉子菜单或光标子菜单的菜单项.后者是子菜 单的最后一个菜单项,方括号内的菜单项名将显示在屏幕上,命 令串的作用同(1)所述. (5) [幻灯片库名(幻灯片名,文字)] 命令串 这是图像块菜单段中菜单项的完整表示形式.
cad钣金展开技巧与实例
cad钣金展开技巧与实例
CAD（计算机辅助设计）在钣金加工中扮演着重要的角色，能够帮助设计师进行展开图的绘制和钣金零件的设计。
以下是一些常用的CAD钣金展开技巧和实例：
1.基础几何图形：CAD软件通常提供了各种基础几何图形的
绘制工具，如矩形、圆形、椭圆等，这些图形可以用于绘
制钣金零件的基本形状。
2.弯曲操作：钣金件通常需要进行弯曲和折弯操作，CAD软
件可以通过将设计中需要弯曲的区域指定为弯曲线，然后
应用弯曲角度和半径进行模拟和展开。
3.展开图绘制：根据钣金零件的3D模型，使用CAD软件可
以生成对应的展开图，用于制作钣金模具和进行裁剪和拼
接。
4.破折线展开：当钣金零件需要沿着曲线部分进行展开时，
可以使用CAD软件绘制破折线来近似曲线，然后进行展开。
5.直角展开：当钣金零件存在直角或直线边缘时，可以通过
CAD软件直接进行展开，无需额外处理。
6.多边形展开：一些特殊形状的钣金零件，如多边形、有孔
的形状等，可以使用CAD软件将其展开为规则的展开图。
这些技巧和实例只是钣金展开设计中的一部分，具体应用要根据实际情况选择合适的方法和CAD软件。
不同的CAD软件可能会有不同的工具和操作方式，因此根据所使用的具体软件，可
以查阅相关文档或进行相关培训来了解更多有关CAD钣金展开的技巧。
AutoCAD在加工“天圆地方”自动展开的二次开发与应用
２０ ０ ８年 第 ５期
・ 计 ・ 造 ・ ４ 设 制 ９
Ａｔ Ａ 在 “ 地方’动 ｕＣ Ｄ 加工 天圆 ’ 展开的 次开 与 ｏ 自 二 发 应用
郑雪玲 韩 蓬 辉
（ 州纺织机械股份 有限公 司 ４０５ ） 郑 ５ ０ ３
摘 要 钣金 加 工 中经 常会遇 到 “ 圆地 方” 工件 ， 天 类 制造 时须先做 出 它的平 面展 开 图 ， 尔后 才能后
３． 程 序 代 码 ２
Ｐ ｂ ｉ Ｓ ｂ Ｍ ａｎ ） ｕ ｌ ｕ ｉ （ ｃ
Ｃｏ ｔＰＩ ｓＤｏ ｂｌ ３． ４１ ９ ６５ ５ ｎｓ Ａ ｕ ｅ＝ １ ５ ２ ３
果 等分 点少 影 响精 确度 ， 分点 多免 不 了烦琐 ， 对 等 且
不 同 尺 寸 大 小 的 工 件 必 须 重 新 计 算 或 作 图 ， 复 劳 重
Ｅｌｅ ｆ＜ ３ ０ Ｔｈ ｎ ｓ ｌｉ ６ ｅ
ｒｄｕ Ｔｈｓ ａ ｎ ． ｉｔ ． ｔ ｉ ａ ｃ （ ｔ ａ ｉｓ ｉ ｗｉｇ Ｕｔｉ ＧｅＤｓ ｎｅ ｐ — Ｄｒ ｌｙ ｔ
Ｂ ｓ ，ｂ ｒ ｆ 请 输入 “ 圆” ａｅｖ Ｃ Ｌ ＆“ 天 的半径 ：） ”
ｈ ｉｈ ＝ Ｔｈｓ ａ ｎ Ｕｔ ｉ ． ｔ ｓａ ｃ ｐ — ｅｇ ｔ ｉ Ｄｒ ｗｉｇ． ｉｔ ＧｅＤｉｔｎ ｅ（ ｔ ｌｙ
（ｎ ｌ （ ２—９ ） ａ ｇｅ ｉ ２ ／ ０）
Ｅｌｅ ｓ Ｄｉ ａ ｇ ｕ ｅ ｍ ｎ ４ ＡｓＤｏ ｂｌ
Ｂ ｓ ，ｂ ｒ ｆ 请 输入 “ ａｅｖ Ｃ Ｌ ＆“ 地方 ” 的边 长 ：） ”
３ Ａ ｔＣ ｕｏ ＡＤ 的 二 次 开 发 和 应 用
基于 Ｖ Ｂ语 言 的 简 单 直 观 ， 我们 采 用 Ｖ Ｂ语 言
CAD二次开发程序使用说明
CAD二次开发程序使用说明CAD二次开发程序使用说明：1.打开CAD，调用并加载ARX程序，输入命令“ly”，弹出如下的对话框。
点击确定。
2.点击确定，弹出如下的对话框。
在该对话框里，有两种主要功能组合可供使用。
3.在如上对话框里可以选择不同的点选控件，完成不同的操作。
现将一一解释说明。
（一）多段轴绘制可以点击“多段轴绘制”选择控件“n=3”或者“n=4”，弹出如下的对话框：可以看到在“多段轴n=3”以及“多段轴n=4”对话框中，可以对轴的基点进行自定义，可以手工输入轴的基点，同时还可以自定义轴的各段轴的半径和轴长，完全做到对轴的自定义。
同时还可以选择“举例”控件，熟悉了解该对话框的功能。
图如下：点击“画轴”按钮，将会在CAD中，画出已经标注好的轴。
如下举例：（二）深沟球轴承校核可以选择“轴承相关”里的“深沟球轴承校核”“60000”选择控件，弹出如下的对话框：（1）在该对话框里，可以在“初始参数”里手工输入你所需要的参数“Fr”，“Fa”，“n”，“Lh’”，“fp”“C0”，“C”，也可以在“举例”里选择“举例参数”“轴承”等等来自动输入固定的参数（仅用于演示操作）。
（2）点击按钮“初步计算”，可以看到“选择框”中，“Fa/Fr”，“Fa/C0”自动算出，根据“Fa/C0”的范围，在“Fa/C0选择”框里选择范围（有五组，从0.0025-0.5000），此时“插值参数”框里有关参数如“e1”，“e2”等自动给出。
（3）点击插值按钮，可以看到“选择框”中，“e”，“X”，“Y”已经计算给出，此时插值计算完成。
（4）最后点击“校核”按钮，“P”“Lh”会计算出来，同时根据计算结果，程序判断“Lh”是否小于“Lh’”，如果是，则会弹出如下的对话框：如果不是，则表示校核合格，弹出对话框如下：（5）点击“确定”按钮，返回上一级对话框。
（三）角接触球轴承校核可以选择“轴承相关”里的“角接触球轴承校核”“70000C”选择控件，弹出如下的对话框：（1）在该对话框里，可以使用右下角的“举例”组合框，选择“初始参数”“7207C”（可以单独选择），也可以手工在“初始参数”框里定义你所需要的单元值如“Fte”，“Fre”，“Fae”“L1”,“L2”“R”等等，完成对参数的定义。
autocad的二次开发
autocad的二次开发（1）编写各种用户自定义函数并形成假设干LISP、ARX、VLX或ADS文件，以及一些DCL文件。
（2）建立符合自己要求的菜单文件，一般可在AutoCAD原菜单文件内添加自己的内容，对于AutoCAD2000版本还可增加部分菜单文件，然后经交互方式加入到系统中去。
（3）在系统的ACAD、LSP或类似文件中加入某些内容以便进行各种初始化操作，如在启动时立即装入一些文件等。
（4）通过系统对话框设置某些路径。
这些操作在程序开发成功后向其它AutoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作，如能令上述工作全部自动进行，使整个二次开发程序在无人干预的情况下嵌入系统，将大大提高工作效率。
为此笔者用VC++开发了一套自动安装程序，使原本需要【五】六分钟的人工操作在十几秒内即可自动完成。
【一】基本思路整个安装程序遵循以下思路：1〕首先获得所在机器AutoCAD2000系统的安装路径；2〕寻找菜单文件AutoCAD2000\\support\\acaD、mnu，打开文件并将要添加的内容加至末尾；3〕寻找LISP文件AutoCAD2000\\support\\acad2000doC、lsp，打开文件并将要添加的内容加至末尾；4〕创建一个预先命名的子目录，将所有二次开发形成的各类文件拷入；5〕给出信息框，告知安装成功，如有问题那么告知安装失败。
需要指出的是，在添入acad2000doC、lsp的内容中须有如下语句：〔command“_menu”〔strcat〔getvar”menuname”〕”、mnu”〕〕，目的是为了强制执行菜单文件装入命令，将改动后的acaD、mnu文件编译后装入。
另外，在添入acad2000doC、lsp的内容中还有一赋值语句，将准备创建的包含所有二次开发生成文件的子目录全路径名赋予一全局变量，以供二次开发程序在需要时调用，从而避免了在AutoCAD环境下交互设定路径的麻烦。
钣金命令窗口在此
3、创建第一钣金壁3.1平整型的第一钣金壁（草图轮廓必须是封闭的）完成了钣金参数设置。
选择窗口中的绘制草图按钮，绘制草图后确定即可。
草图如图：创建结果如图3.2拉伸型的第一钣金壁（轮廓草图不一定要封闭）完成了钣金参数设置。
3选择该窗口即可：创建草图意思同上。
：设置拉伸距离：选择一平面来定义第一方向限制。
：选取一曲面来定义第一方向限制。
：设置第二方向距离，意思同上。
一样。
：镜像当前的拉伸钣金壁：当草图有尖角时，系统自动创建圆角：用于设置分解，依照草图实体的数量自动将钣金壁分解为多个单位。
：改变钣金壁创建方向：反转拉伸方向。
绘制的草图如图是一个直线而不是封闭的曲线啊创建结果如图3.3漏斗型的第一钣金壁（是指先定义两个截面，并指定两个截面的闭合点，系统便将这些截面混合形成薄壁实体，或创建放样曲面生成漏斗类型的钣金壁）1——使用多截面曲面创建漏斗型钣金壁完成了钣金参数设置。
：可创建多截面曲面来创建钣金壁或直接选取曲面创建钣金壁。
：该区域用来定义生成钣金壁的曲面：激活该文本框，可选取一个曲面或右击在弹出的快捷菜单中选择“创建多截面曲面”命令来创建曲面生成钣金壁：用于转换材料边，即钣金壁的创建方向。
：选中该复选框，使生成的钣金壁在曲面的两侧，此时该按钮不可用。
当取消选中时，使生成的钣金壁在曲面的一侧，且该按钮可用。
：用于定义钣金在展开时的参考边和参考点。
：用于定义钣金在展平时的参考边。
：定义钣金在展平时的参考点。
：在该区域中可以选取或创建一条直线以定义钣金壁在展平时的起始边。
2——使用两个截面创建漏斗型钣金壁窗口如图：:在该区域用来定义生成钣金壁的截面：定义生成钣金壁的第一截面。
：定义生成钣金壁的第二截面。
：定义钣金壁在展平时的开口线。
：定义钣金壁在展平时的开口线的第一端点。
：定义钣金壁在展平时的开口线的第二端点。
：反转钣金壁展平时的固定侧。
：转换材料边，即钣金壁的创建方向。
3.4滚动型的第一钣金壁窗口如图：：用于指定第一方向深度类型。
AutoCAD二次开发指令汇总
CAD二次开发命令
CAD二次開發命令圓孔自動直徑尺寸標注QC 凍結物體所在層FV孤立物體所在層AS 解凍物體所在層TA凍結所有層FA 恢復所有層RS恢復標准圖層RS 清理無用圖層圖塊EA批量修改孔徑BD 多重復制AA復制成塊CV 原地造塊XV快速倒圓角FR 刪除式偏移ES刪除式鏡像ER 參考式旋轉RR拷貝式旋轉CR 單點剪斷BF修改多義線寬度EW 設定尺寸標注樣式MD設定捕捉模式SV DXF輸出DXF多功能打印QWzoom/e(ZE) zoom/d(ZZ) zoom/p(V) pan(W) offset (R) move(FD) copy(CC) mirror(FG) trim(TR) attedit(AD) matchprop(G) dist(D) line(A) ray(RA) xline(XF) open(QQ) qdim(QD) dimangular(DA) dimlinear(DF) dimaligned(DG) dimdiameter(DD) dimradius(DR)90度展開VE 180度展開QE插入A3圖框A3 插入A4圖框A4自動填寫圖框WF 自動更新圖框的path AUTOWF圖框屬性復制AC 插入ECN表EC插入明細欄TT 標識相同孔徑的圖孔BT剖視圖標注SCT 畫剖視符號SS技術要求注解ZT 刻蝕字體炸開XT插入折床壓印字體TG 斷線連接WW檢查標注尺寸是否修改DMC 抽孔底孔查詢CK獲取圖元的數據庫內容GE自動標注CAD 攻芽孔TAP重工UB 計算器CM彈簧參數TC A3模具圖框33A4模具圖框44 治具與二次加工套板CCA坐標系統建立WC 厚度注解HD成型示意圖CX。
AutoCAD二次开发自定义命令-工程
AutoCAD二次开发自定义命令-工程AutoLISP语言作为AutoCAD的二次开发工具,它易学易用，交互性好，灵活性强，对于那些经常使用AutoCAD进行绘图的普通用户来说，不失为一种理想的开发工具，一、键槽尺寸视图的绘制命令“jct”在绘制轴、齿轮或带轮等零件图时，经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图，比较麻烦；由于键槽的尺寸随轴径的变化而变化，所以我们可以用LISP程序来实现自动绘图。
加载下面的程序，在命令行中键入”jct”并回车，通过人机交互的形式输入有关参数，可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。
代码示例如下所示。
(defunC:jct()(setqpt0(getpoint"\n请输入视图的中心位置点:"))(initget7)(setqloopT)(whileloop(setqd(getreal"\n请输入键槽处的轴径(12(if(or(<d12)(>d130))(alert"轴径数据输入错误!\n\n请重新输入!")(setqloopnil));if);while(cond;根据轴径检索键槽尺寸((and(>d12)(<=d17))(setqb5t13.0t22.3));b表示键槽的宽度((and(>d17)(<=d22))(setqb6t13.5t22.8));t1表示轴上键槽的深度((and(>d22)(<=d30))(setqb8t14.0t23.3));t2表示轮毂上键槽的高度((and(>d30)(<=d38))(setqb10t15.0t23.3))((and(>d38)(<=d44))(setqb12t15.0t23.3))((and(>d44)(<=d50))(setqb14t15.5t23.8))((and(>d50)(<=d58))(setqb16t16.0t24.3))((and(>d58)(<=d65))(setqb18t17.0t24.4))((and(>d65)(<=d75))(setqb20t17.5t24.9))((and(>d75)(<=d85))(setqb22t19.0t25.4))((and(>d85)(<=d95))(setqb25t19.0t25.4))((and(>d95)(<=d110))(setqb28t110.0t26.4))((and(>d110)(<=d130))(setqb32t111.0t27.4)))(command"circle"pt0"d"d)(command"zoom""a")(setqs1(ssget"l"))(setqdi(-(*(/d2.0)(/d2.0))(*(/b2.0)(/b2.0)))dx(sqrtdi)dy(/b2.0)pt1(list(+(carpt0)dx)(+(cadrpt0)dy)))(initget"ZcLc");Zc表示画轴键槽的剖视图,Lc表示画轮毂键槽的端面视图(setqzrl(getkword"\n画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?"))(if(=zrl"Zc")(progn;计算轴键槽上点的坐标(setqpt2(list(+(carpt0)(-(/d2.0)t1))(+(cadrpt0)dy))pt3(polarpt2(-(/pi2.0))b)pt4(polaAutoLISP语言作为AutoCAD的二次开发工具,它易学易用，交互性好，灵活性强，对于那些经常使用AutoCAD进行绘图的普通用户来说，不失为一种理想的开发工具。
CAD-PTC二次开发快捷命令对照表
后者只用于CAD
文 档 管 理
NN NB NW WR PP SW D FD/M G/CD/MA EE/LE F-R CC CDC C T CV/0 SS MM E R/U/RR
草绘环境中画直线 草绘环境中镜像二余维图形 草绘中调用<约束>中<对称>命令 草绘环境中绘制圆形 修剪 偏移曲面
CAD-PTC二次开发快捷命令对照表 快捷键
CAD DI/DDD DR
CAD命令含义
所有坐标自动标注 调出尺寸标注样式 标注：圆.圆弧半径尺寸 标注：斜线长度 标注：图形的水平/垂直尺寸 标注：圆.圆弧直径尺寸 标注：图形角度 输入文字 打开文件 另存文件 新建CAD文件 画一个点 移动 指定目标对象与源对象特性一致 快速添加引线 倒圆角 复制 倒斜角 调出计算器表达式 画构造线 旋转图形 阵列图形 画直线 镜像 画圆 修剪 偏移 拉伸图形 连续标注 删除图形 返回上一步操作 画中心线 复制几何 创建旋转特征 阵列特征
PTC命令含义
<工程图模块中>调出<尺寸标注>命令 模型中测量：圆形特征直径 模型中：测量角度 模型中：测量距离 <工程图模块中>添加文字 打开文件 模型保存副本 新建实体模型 新建钣金模型 新建绘图（工程图） 文件重命名 工程图模式打印A4图纸 设置工作目录（根据文件路径重新设置） -
备注
标 注
DG/DAL DF DD DA/DAN DS DT QQ SA
将步作操作到草绘环境（需要指定草绘基准平面）
后者只用于PTC
工程图中添加新的模型 试除不显示的文件 返回上一步操作 导出DXF（直接进入工程图模式） 调用（铁板）折弯系数表 取消隐藏的模型 工程图模式打印A4图纸 只有第三个只用PTC
基于VB.NET与AutoCAD的二次开发在双曲率钣金件展开中的应用
节省材料 ， 降低生产成本为 目的 ， 找到最优的设计 方案 。 目前 钢 铁 行业 中 双 曲率 钣 金 件 应 用非 常广
泛 ， 展 开为 平 面 图形进 行 下料 过程 中仍 采 用传 统 在 手工 设计 。为 了提 高产 品 的设计 质 量 、 缩短 产 品 的
匆宁识 掌既 学 放 ’ 报
Ｊ ｕｎ ｌｏ ｎ ｉｇ Ｐ ｌｔｃ ｎｃ ｏ ｒａ ｆＮａ ｎｎ ｏｙｅ ｈ ｉ
２１ ０ ０年第 １ 卷 第 ３期 ５
２ ０ ０１ Ｖｏ ．１ １ ５ Ｎｏ ．３
基 ＶＮ 与 ｕ Ａ的 次 发 于 ＢＥ Ａ０ Ｄ 二 开 ．Ｔ ｔ Ｃ 在 曲钣 件 开 的 用 双 率 金 展 中 应
陶 晓环
（ 渤海 船舶 职业 学 院 ， 中国 葫芦岛 １５０ ） ２０ ０
［ 摘
要］ 通过研 究双 曲率钣 金件展开 ，以钢铁转炉设 计 中双 曲率钣金件 为例 ，利用 Ｖ ．Ｅ ＢＮ Ｔ与
Ａ ｔＣ Ｄ ０ ８软件开发钣金件展开为平面 图形， ｕｏ Ａ ２ ０ 进行二次开发。 在工业生产 中可以节约材料 ， 降低 生产成本 ， 提高 生产效率 ， 而取得很高 的经济效益。 从 ［ 关键词 ］双 曲率； 钣金件 ； 展开 ；二次开发 ［ 中国分类号 ］ Ｐ ９ ．２ Ｔ ３１ ７ ［ 文献标识码 ］ Ａ ［ 文章编号 ］１０ — ６ １ ２ １ ）３－０ ８ ０ ０ ９ ３ ２ （０ ０ ０ － ９ － ３ ０
双 曲率 钣 金 件 展 开 总 体 设 计
１ 设计 目 ． １ 标
在 炼 钢转 炉 、 船舶 、 空 等多 领域 设计 中 ， 常 航 对
Autocad二次开发教程
第一课：入门1.为什么要写这个教程市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。
其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。
2.什么是Autocad VBA？VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。
3、VBA有多难？相信大家都知道Basic是的含义。
应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。
4、怎样学习VBA？介绍大家一个学习公式：信心+恒心=开心。
仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。
本教程将陆续发布在CAD世界论坛上，您不需要付费就可以学习。
本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。
我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。
5、现在我们开始编写第一个程序：画一百个同心圆第一步：复制下面的红色代码第二步：在模型空间按快捷键Alt+F8，出现宏窗口第三步：在宏名称中填写C100，点“创建”、“确定”第四步：在Sub c100()和End Sub之间粘贴代码第五步：回到模型空间，再次按Alt+F8，点击“运行”Sub c100()Dim cc(0 To 2) As Double '声明坐标变量cc(0) = 1000 '定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 '开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆Next iEnd Sub也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。
钣金命令
序号国标号名称1 GB/T 4458.1-2002 机械制图图样画法视图2 GB/T 4458.2-2003 机械制图装配图中的零、部件序号及其编排方法3 GB/T 4458.3-84 机械制图轴测图4 GB/T 4458.4-2003 机械制图尺寸注法5 GB/T 4458.5-2003 机械制图尺寸公差与配合注法6 GB/T 4458.6-2002 机械制图图样画法剖视图和断面图7 GB/T 4459.1-1995 机械制图螺纹及螺纹紧固件表示法8 GB/T 4459.2-2003 机械制图齿轮表示法9 GB/T 4459.3-2000 机械制图花键表示法10 GB/T 4459.4-2003 机械制图弹簧表示法11 GB/T 4459.5-1999 机械制图中心孔表示法12 GB/T 4459.7-1998 机械制图滚动轴承表示法13 GB/T 145-2001 中心孔14 GB/T 4459.6-1996 机械制图动密封圈表示法15 GB 10609.1-89 技术制图标题栏16 GB 10609.2-89 技术制图明细栏17 GB 10609.3-89 技术制图复制图的折叠方法18 GB 10609.4-89 技术制图对缩微复制原件的要求19 GB/T 16675.2-1996 技术制图简化表示法第2部分：尺寸注法20 GB/T 17450-1998 技术制图图线21 GB/T 17452-1998 技术制图图样画法剖视图和断面图22 GB/T 17453-1998 技术制图图样画法剖面区域的表示法23 GB/T 17825.1-1999 CAD 文件管理总则24 GB/T 17825.2-1999 CAD 文件管理基本格式25 GB/T 17825.3-1999 CAD 文件管理编号原则26 GB/T 17825.4-1999 CAD 文件管理编制规则27 GB/T 17825.5-1999 CAD 文件管理基本程序28 GB/T 17825.6-1999 CAD 文件管理更改规则29 GB/T 17825.7-1999 CAD 文件管理签署规则30 GB/T 17825.8-1999 CAD 文件管理标准化审查31 GB/T 17825.9-1999 CAD 文件管理完整性32 GB/T 17825.10-1999 CAD 文件管理存储与维护33 GB/T 18229-2000 CAD工程制图规则34 GB/T 18686-2000 技术制图 CAD系统用图线的表示35 Gl3/T 18776-2002 公差尺寸英寸和毫米的互换算36 GB4460-84 机械制图机构运动简图符号37 GB 12212一90 技术制图焊缝符号的尺寸、比例及简化表示法38 GB/T4249-1996 公差原则39 GB/T 1184-1996 形状和位置公差未注公差值40 GB/T 1804-2000 一般公差未注公差的线性和角度尺寸的公差41 GB/T 17304- 1998 CAD 通用技术规范42 GB/T14665-1998 机械工程CAD制图规则43 GB/T13361-92 技术制图通用术语44 GB/T4656.1-2000 技术制图棒料、型材及其断面的简化表示法。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
编辑类 11 图形尺寸放大2倍 CCZ 图形尺寸缩小2倍 CCH 删除重叠线 CCS 变多义线 将实体做成图块 转DXF文档(单一图层,R12版) 尺寸匹配图框 说明文字高度与图框匹配 多重复制 旋转复制 镜像后删除原件 查询类 3 板材折弯系数查讯 CD 螺母螺柱底孔查讯 CDD 翻边攻牙底孔查讯 ZE CALC UO 辅助类 5 打开所有捕捉 关闭所有捕捉 视图最大化 调用系统计算器 座标原点设定
AutoCad 常用系统命令
绘图类 5 L 直线 REC 长方形 A 圆弧 C 圆 输入文字 T 修改类 14 E 删除 CO 复制 MI 镜像 O 偏移 M 移动 CR 旋转 SC 比例 S 拉伸 TR 修剪 EX 延伸 BR 打断 CHA 倒斜角 FR 倒圆角 X 炸开 绘制类 23 A31 插入A3横图框(设计) A32 插入A3横图框(制造) A41 插入A4横图框(设计) A42 插入A4横图框(制造) DX X坐标标注 DY Y坐标标注 AG 双向尺寸标注 G1 输入对称公差 G2 输入不对称公差 BT 相同孔径标识 BC 插入钳工注释 BF 插入工艺栏 RY 插入ROHS标识 RN 插入非ROHS标识 VV 绘制剖面线 SCT 剖视注解填写 ZCL 插入折弯系数 NN 毛刺向上注解 PATH 插入文件路径 OB 画腰形孔 CRR 打点十字线自动添加 CMK 孔径快速统计 DOOR 门板自动展开 DZ SZ AAA FE FX DXF MD TTT CM CR TT