[分享]明经帖子好内容整理（二）（新增AUTOCAD技巧及疑难解答打包下载）！！

wf_1980

不用客气，大家互相学习啊，你如果有什么好的东东也发上来大家一起分享啊！

jame2000

支持一下

yongxue

谢谢楼主，我发现在明经比我课堂上学的东西多的多！


真心感谢！

wf_1980

将三维坐标系转变为二维的方法：view---display---ucs iconproperties,修改即可。

wf_1980

[转帖]AutoCAD使用技巧漫谈 提高使用AutoCAD软件作图的速度，技巧是必不可少的。下面是笔者在实践中总结的几点小技巧，不妨你也来试一试。 一. 重复命令的使用 要重复执行某一条命令，可以使用如下方法，而不需要重新输入命令。 1. 重复执行上一次刚执行过的命令： 按[ENTER]或[空格键]即可快速重复执行该命令，或者在绘图区单击鼠标右键，调出快捷菜单。其中最上面的一行就是要重复执行的刚刚执行过的命令。 2. 重复执行最近五次使用的命令： 在命令行按下鼠标右键，弹出快捷菜单。将鼠标移到快捷菜单的“近期使用的命令”，则弹出的下一级菜单即为最近五次使用过的命令，根据需要选取 即可。 3. 重复执行任何使用过的命令： 将鼠标定位在命令行，按键盘上的向上键[↑]或向下键[↓]就能找到任何使用过的命令，按[ENTER]键就可重复执行该命令。也可以按下[F2]键，在文字窗口的命令行中将鼠标定位，按键盘上的向上键[↑]或向下键[↓]，找到要重复执行的命令，按[ENTER]键就可快速重复使用过的命令。 二. 快捷菜单的灵活应用 试着在AutoCAD界面中的不同位置、作图过程的不同时机点击鼠标右键，你会发现AutoCAD中的快捷菜单如影随形，非常方便。 1. 在绘图区直接点击鼠标右键，会弹出“标准默认”快捷菜单（图1）。 2. 执行任意命令后在绘图区点击鼠标右键，会弹出“命令搭配副选项”快捷菜单（图2）。 3. 选择对象后在绘图区点击鼠标右键，会弹出“预选图形编辑”快捷菜单（图3）。 4. 按下[Shift]键，在绘图区点击鼠标右键，会弹出“点捕捉”快捷菜单（图4）。 5. 选择对象再选取一夹点后点击鼠标右键，会弹出“夹点作用”快捷菜单 6. 在工具栏图标上点击鼠标右键，会弹出“工具栏”快捷菜单（图6）。 7. 在命令行点击鼠标右键，会弹出“命令行”快捷菜单（图7）。 8. 在状态栏上的各开关选项上点击鼠标右键，会弹出“状态栏”快捷菜单（图8）。 9. 在模型、布局选项卡上点击鼠标右键，会弹出“模型、布局”快捷菜单 三. 巧用计算器功能 在AutoCAD中，CAL命令类似于一个普通的计算器，可以用来计算与加、减、乘、除有关的数学表达式，并遵从运算表达式的标准数学运算次序。而且，CAL命令还是一个透明名令，用来提供一个点或一个数。当我们透明执行该命令时，其计算结果被解释为AutoCAD命令的一个输入值。下面是透明执行计算器功能的一个实例： 以（100，100）为圆心绘制半径为[（425-260）*（1/4）+72]的圆。 1． 在命令行输入：C并按[ENTER]键； 2． 命令行提示： “指定圆的圆心或[三点（3P）/两点（2P）/相切、相切、半径（T）]:”,输入100，100并按[ENTER]键； 3． 命令行提示：“指定圆的半径或[直径]：”，此时输入：′CAL并按[ENTER]键,然后输入表达式：（425-260）*（1/4）+72并按[ENTER]键, 4． 命令行显示：113.25。AutoCAD以表达式的值113.25为圆的半径绘制了一个圆。

wf_1980

autocad命令大全 3DARRAY：创建三维阵列 3A
3DFACE：创建三维面 3F
3DORBIT：控制在三维空间中交互式查看对象 3DO
3DPOLY：在三维空间中使用“连续”线型创建由直线段组成的多段线 3P
ADCENTER：管理内容 ADC
ALIGN：在二维和三维空间中将某对象与其他对象对齐 AL
APPLOAD：加载或卸载应用程序并指定启动时要加载的应用程序 AP
ARC：创建圆弧 A
AREA：计算对象或指定区域的面积和周长 AA
ARRAY：创建按指定方式排列的多重对象副本 AR
ATTDEF：创建属性定义 ATT
ATTEDIT：改变属性信息 ATE
ATTEXT：提取属性数据 DDATTEXT
BHATCH：使用图案填充封闭区域或选定对象 H、BH
BLOCK：根据选定对象创建块定义 B
BOUNDARY：从封闭区域创建面域或多段线 BO
BREAK：部分删除对象或把对象分解为两部分 BR
CHAMFER：给对象的边加倒角 CHA CHANGE：修改现有对象的特性 -CH
CIRCLE：创建圆形 C
COLOR：定义新对象的颜色 COL
COPY：复制对象 CO、CP
DBCONNECT：为外部数据库表提供 AutoCAD 接口 AAD、AEX、ALI、ASQ、ARO、ASE、DBC

DDEDIT：编辑文字和属性定义 ED
DDVPOINT：设置三维观察方向 VP
DIMALIGNED：创建对齐线性标注 DAL
DIMANGULAR：创建角度标注 DAN
DIMBASELINE：从上一个或选定标注的基线处创建线性、角度或坐标标注 DBA
DIMCENTER：创建圆和圆弧的圆心标记或中心线 DCE
DIMCONTINUE：从上一个或选定标注的第二尺寸界线处创建线性、角度或坐标标注 DCO
DIMDIAMETER：创建圆和圆弧的直径标注 DDI
DIMEDIT：编辑标注 DED
DIMLINEAR：创建线性尺寸标注 DLI
DIMORDINATE：创建坐标点标注 DOR
DIMOVERRIDE：替代标注系统变量 DOV
DIMRADIUS：创建圆和圆弧的半径标注 DRA
DIMSTYLE：创建或修改标注样式 D
DIMTEDIT：移动和旋转标注文字 DIMTED
DIST：测量两点之间的距离和角度 DI DIVIDE：将点对象或块沿对象的长度或周长等间隔排列 DIV
DONUT：绘制填充的圆和环 DO
DRAWORDER：修改图像和其他对象的显示顺序 DR
DSETTINGS：指定捕捉模式、栅格、极坐标和对象捕捉追踪的设置 DS、RM、SE
DSVIEWER：打开“鸟瞰视图”窗口 AV
DVIEW：定义平行投影或透视视图 DV
ELLIPSE：创建椭圆或椭圆弧 EL
ERASE：从图形中删除对象 E
EXPLODE：将组合对象分解为对象组件 X
EXPORT：以其他文件格式保存对象 EXP
EXTEND：延伸对象到另一对象 EX
EXTRUDE：通过拉伸现有二维对象来创建三维原型 EXT
FILLET：给对象的边加圆角 F
FILTER：创建可重复使用的过滤器以便根据特性选择对象 FI
GROUP：创建对象的命名选择集 G
HATCH：用图案填充一块指定边界的区域 -H
HATCHEDIT：修改现有的图案填充对象 HE
HIDE：重生成三维模型时不显示隐藏线 HI
IMAGE：管理图像 IM
IMAGEADJUST：控制选定图像的亮度、对比度和褪色度 IAD
IMAGEATTACH：向当前图形中附着新的图像对象 IAT
IMAGECLIP：为图像对象创建新剪裁边界 ICL IMPORT：向 AutoCAD 输入文件 IMP
INSERT：将命名块或图形插入到当前图形中 I
INTERFERE：用两个或多个三维实体的公用部分创建三维复合实体 INF
INTERSECT：用两个或多个实体或面域的交集创建复合实体或面域并删除交集以外的部分
IN
INSERTOBJ：插入链接或嵌入对象 IO
LAYER：管理图层和图层特性 LA
-LAYOUT：创建新布局，重命名、复制、保存或删除现有布局 LO
LEADER：创建一条引线将注释与一个几何特征相连 LEAD
LENGTHEN：拉长对象 LEN
LINE：创建直线段 L
LINETYPE：创建、加载和设置线型 LT
LIST：显示选定对象的数据库信息 LI、LS
LTSCALE：设置线型比例因子 LTS
LWEIGHT： LW
MATCHPROP：设置当前线宽、线宽显示选项和线宽单位 MA
MEASURE：将点对象或块按指定的间距放置 ME
MIRROR：创建对象的镜像副本 MI
MLINE：创建多重平行线 ML
MOVE：在指定方向上按指定距离移动对象 M
MSPACE：从图纸空间切换到模型空间视口 MS
MTEXT：创建多行文字 T、MT MVIEW：创建浮动视口和打开现有的浮动视口 MV
OFFSET：创建同心圆、平行线和平行曲线 O
OPTIONS：自定义 AutoCAD 设置 GR、OP、PR
OSNAP：设置对象捕捉模式 OS
PAN：移动当前视口中显示的图形 P
PASTESPEC：插入剪贴板数据并控制数据格式 PA
PEDIT：编辑多段线和三维多边形网格 PE
PLINE：创建二维多段线 PL
PRINT ：将图形打印到打印设备或文件 PLOT
POINT：创建点对象 PO
POLYGON：创建闭合的等边多段线 POL
PREVIEW：显示打印图形的效果 PRE
PROPERTIES：控制现有对象的特性 CH、MO
PROPERTIESCLOSE：关闭“特性”窗口 PRCLOSE
PSPACE：从模型空间视口切换到图纸空间 PS
PURGE：删除图形数据库中没有使用的命名对象，例如块或图层 PU
QLEADER：快速创建引线和引线注释 LE
QUIT：退出 AutoCAD EXIT
RECTANG：绘制矩形多段线 REC
REDRAW：刷新显示当前视口 R
REDRAWALL：刷新显示所有视口 RA
REGEN：重生成图形并刷新显示当前视口 RE REGENALL：重新生成图形并刷新所有视口 REA
REGION：从现有对象的选择集中创建面域对象 REG
RENAME：修改对象名 REN
RENDER：创建三维线框或实体模型的具有真实感的渲染图像 RR
REVOLVE：绕轴旋转二维对象以创建实体 REV
RPREF：设置渲染系统配置 RPR
ROTATE：绕基点移动对象 RO
SCALE：在 X、Y 和 Z 方向等比例放大或缩小对象 SC
SCRIPT：用脚本文件执行一系列命令 SCR
SECTION：用剖切平面和实体截交创建面域 SEC
SETVAR：列出系统变量并修改变量值 SET
SLICE：用平面剖切一组实体 SL
SNAP：规定光标按指定的间距移动 SN
SOLID：创建二维填充多边形 SO
SPELL：检查图形中文字的拼写 SP
SPLINE：创建二次或三次 (NURBS) 样条曲线 SPL
SPLINEDIT：编辑样条曲线对象 SPE
STRETCH：移动或拉伸对象 S
STYLE：创建或修改已命名的文字样式以及设置图形中文字的当前样式 ST
SUBTRACT：用差集创建组合面域或实体 SU
TABLET：校准、配置、打开和关闭已安装的数字化仪 TA
THICKNESS：设置当前三维实体的厚度 TH TILEMODE：使“模型”选项卡或最后一个布局选项卡当前化 TI、TM
TOLERANCE：创建形位公差标注 TOL
TOOLBAR：显示、隐藏和自定义工具栏 TO
TORUS：创建圆环形实体 TOR
TRIM：用其他对象定义的剪切边修剪对象 TR
UNION：通过并运算创建组合面域或实体 UNI
UNITS：设置坐标和角度的显示格式和精度 UN
VIEW：保存和恢复已命名的视图 V
VPOINT：设置图形的三维直观图的查看方向 -VP
WBLOCK：将块对象写入新图形文件 W
WEDGE：创建三维实体使其倾斜面尖端沿 X 轴正向 WE
XATTACH：将外部参照附着到当前图形中 XA
XBIND：将外部参照依赖符号绑定到图形中 XB
XCLIP：定义外部参照或块剪裁边界，并且设置前剪裁面和后剪裁面 XC
XLINE：创建无限长的直线（即参照线） XL
XREF：控制图形中的外部参照 XR
ZOOM：放大或缩小当前视口对象的外观尺寸 Z

--
设女人的相貌为x，设女人的才智为y，那么以x，y为自变量的函数φ(x,y)
在相似笛卡儿坐标系下面对x的偏微分的几何表述的解析方程和对y的偏微
分的几何表述的解析方程关于原点对称，且其全函数的对于（0,0)的邻域 新对象的颜色 COL
COPY：复制对象 CO、CP
DBCONNECT：为外部数据库表提供 AutoCAD 接口 AAD、AEX、ALI、ASQ、ARO、ASE、DBC

DDEDIT：编辑文字和属性定义 ED
DDVPOINT：设置三维观察方向 VP
DIMALIGNED：创建对齐线性标注 DAL
DIMANGULAR：创建角度标注 DAN
DIMBASELINE：从上一个或选定标注的基线处创建线性、角度或坐标标注 DBA
DIMCENTER：创建圆和圆弧的圆心标记或中心线 DCE
DIMCONTINUE：从上一个或选定标注的第二尺寸界线处创建线性、角度或坐标标注 DCO
DIMDIAMETER：创建圆和圆弧的直径标注 DDI
DIMEDIT：编辑标注 DED
DIMLINEAR：创建线性尺寸标注 DLI
DIMORDINATE：创建坐标点标注 DOR
DIMOVERRIDE：替代标注系统变量 DOV
DIMRADIUS：创建圆和圆弧的半径标注 DRA
DIMSTYLE：创建或修改标注样式 D
DIMTEDIT：移动和旋转标注文字 DIMTED
DIST：测量两点之间的距离和角度 DI DIVIDE：将点对象或块沿对象的长度或周长等间隔排列 DIV
DONUT：绘制填充的圆和环 DO
DRAWORDER：修改图像和其他对象的显示顺序 DR
DSETTINGS：指定捕捉模式、栅格、极坐标和对象捕捉追踪的设置 DS、RM、SE
DSVIEWER：打开“鸟瞰视图”窗口 AV
DVIEW：定义平行投影或透视视图 DV
ELLIPSE：创建椭圆或椭圆弧 EL
ERASE：从图形中删除对象 E
EXPLODE：将组合对象分解为对象组件 X
EXPORT：以其他文件格式保存对象 EXP
EXTEND：延伸对象到另一对象 EX
EXTRUDE：通过拉伸现有二维对象来创建三维原型 EXT
FILLET：给对象的边加圆角 F
FILTER：创建可重复使用的过滤器以便根据特性选择对象 FI
GROUP：创建对象的命名选择集 G
HATCH：用图案填充一块指定边界的区域 -H
HATCHEDIT：修改现有的图案填充对象 HE
HIDE：重生成三维模型时不显示隐藏线 HI
IMAGE：管理图像 IM
IMAGEADJUST：控制选定图像的亮度、对比度和褪色度 IAD
IMAGEATTACH：向当前图形中附着新的图像对象 IAT
IMAGECLIP：为图像对象创建新剪裁边界 ICL IMPORT：向 AutoCAD 输入文件 IMP
INSERT：将命名块或图形插入到当前图形中 I
INTERFERE：用两个或多个三维实体的公用部分创建三维复合实体 INF
INTERSECT：用两个或多个实体或面域的交集创建复合实体或面域并删除交集以外的部分
IN
INSERTOBJ：插入链接或嵌入对象 IO
LAYER：管理图层和图层特性 LA
-LAYOUT：创建新布局，重命名、复制、保存或删除现有布局 LO
LEADER：创建一条引线将注释与一个几何特征相连 LEAD
LENGTHEN：拉长对象 LEN
LINE：创建直线段 L
LINETYPE：创建、加载和设置线型 LT
LIST：显示选定对象的数据库信息 LI、LS
LTSCALE：设置线型比例因子 LTS
LWEIGHT： LW
MATCHPROP：设置当前线宽、线宽显示选项和线宽单位 MA
MEASURE：将点对象或块按指定的间距放置 ME
MIRROR：创建对象的镜像副本 MI
MLINE：创建多重平行线 ML
MOVE：在指定方向上按指定距离移动对象 M
MSPACE：从图纸空间切换到模型空间视口 MS
MTEXT：创建多行文字 T、MT MVIEW：创建浮动视口和打开现有的浮动视口 MV
OFFSET：创建同心圆、平行线和平行曲线 O
OPTIONS：自定义 AutoCAD 设置 GR、OP、PR
OSNAP：设置对象捕捉模式 OS
PAN：移动当前视口中显示的图形 P
PASTESPEC：插入剪贴板数据并控制数据格式 PA
PEDIT：编辑多段线和三维多边形网格 PE
PLINE：创建二维多段线 PL
PRINT ：将图形打印到打印设备或文件 PLOT
POINT：创建点对象 PO
POLYGON：创建闭合的等边多段线 POL
PREVIEW：显示打印图形的效果 PRE
PROPERTIES：控制现有对象的特性 CH、MO
PROPERTIESCLOSE：关闭“特性”窗口 PRCLOSE
PSPACE：从模型空间视口切换到图纸空间 PS
PURGE：删除图形数据库中没有使用的命名对象，例如块或图层 PU
QLEADER：快速创建引线和引线注释 LE
QUIT：退出 AutoCAD EXIT
RECTANG：绘制矩形多段线 REC
REDRAW：刷新显示当前视口 R
REDRAWALL：刷新显示所有视口 RA
REGEN：重生成图形并刷新显示当前视口 RE REGENALL：重新生成图形并刷新所有视口 REA
REGION：从现有对象的选择集中创建面域对象 REG
RENAME：修改对象名 REN
RENDER：创建三维线框或实体模型的具有真实感的渲染图像 RR
REVOLVE：绕轴旋转二维对象以创建实体 REV
RPREF：设置渲染系统配置 RPR
ROTATE：绕基点移动对象 RO
SCALE：在 X、Y 和 Z 方向等比例放大或缩小对象 SC
SCRIPT：用脚本文件执行一系列命令 SCR
SECTION：用剖切平面和实体截交创建面域 SEC
SETVAR：列出系统变量并修改变量值 SET
SLICE：用平面剖切一组实体 SL
SNAP：规定光标按指定的间距移动 SN
SOLID：创建二维填充多边形 SO
SPELL：检查图形中文字的拼写 SP
SPLINE：创建二次或三次 (NURBS) 样条曲线 SPL
SPLINEDIT：编辑样条曲线对象 SPE
STRETCH：移动或拉伸对象 S
STYLE：创建或修改已命名的文字样式以及设置图形中文字的当前样式 ST
SUBTRACT：用差集创建组合面域或实体 SU
TABLET：校准、配置、打开和关闭已安装的数字化仪 TA
THICKNESS：设置当前三维实体的厚度 TH TILEMODE：使“模型”选项卡或最后一个布局选项卡当前化 TI、TM
TOLERANCE：创建形位公差标注 TOL
TOOLBAR：显示、隐藏和自定义工具栏 TO
TORUS：创建圆环形实体 TOR
TRIM：用其他对象定义的剪切边修剪对象 TR
UNION：通过并运算创建组合面域或实体 UNI
UNITS：设置坐标和角度的显示格式和精度 UN
VIEW：保存和恢复已命名的视图 V
VPOINT：设置图形的三维直观图的查看方向 -VP
WBLOCK：将块对象写入新图形文件 W
WEDGE：创建三维实体使其倾斜面尖端沿 X 轴正向 WE
XATTACH：将外部参照附着到当前图形中 XA
XBIND：将外部参照依赖符号绑定到图形中 XB
XCLIP：定义外部参照或块剪裁边界，并且设置前剪裁面和后剪裁面 XC
XLINE：创建无限长的直线（即参照线） XL
XREF：控制图形中的外部参照 XR
ZOOM：放大或缩小当前视口对象的外观尺寸 Z 不过建议大家不要直接使用命令，最好使用缩写命令，通过修改pgp或lsp文件。

wf_1980

AutoCAD Mechanical 2004 中文版中可用的加速键
键 功能命令
Bal 放置引出序号AMBALLOON
cb 带孔中心线AMCENCRHOLE
cha 倒角AMCHAM2D
cl 中心线AMCENTLINE
clin 绘制构造线AMCONSTLINES
cloo 构造线开/关AMCLINEO
cr 复制+旋转+移动AMCOPYRM
cs 十字中心线AMCENCROSS
dan 标注角度尺寸AMPOWERDIM_ANG
dau 自动尺寸标注AMAUTODIM
dmed 多重编辑AMDIMMEDIT

f 圆角AMFILLET2D
h 自定义填充AMUSERHATCH
hioo 隐藏线开/关AMLAYINVO
l0 图层AM_0 AMLAYER
l1 图层AM_1 AMLAYER
l2 图层AM_2 AMLAYER
l3 图层AM_3 AMLAYER
l4 图层AM_4 AMLAYER
l5 图层AM_5 AMLAYER
l6 图层AM_6 AMLAYER
l7 图层AM_7 AMLAYER
l8 图层AM_8 AMLAYER
l10 图层AM_10 AMLAYER
l11 图层AM_11 AMLAYER
lib 库AMLIBRARY
lg 图层/图层组控制AMLAYER
lgmo 移至另一图层组AMLGMOVE
lgv 图层组可见性AMLAYVISENH
lmo 移至另一图层AMLAYMOVE
o 偏移AMOFFSET
oo 三维动态观察器3DORBIT
par 创建零件参照AMPARTREF
pc 增强复制AMPOWERCOPY
pd 增强尺寸标注AMPOWERDIM
ped 增强编辑AMPOWEREDIT

per 增强删除AMPOWERERASE
prc 增强调用AMPOWERRECALL
proo 零件参照开/关AMLAYPARTREFO
pss 增强捕捉设置1-4 AMPOWERSNAP
rec 矩形AMRECTANG
s1 增强捕捉设置1 AMPSNAP1
s2 增强捕捉设置2 AMPSNAP2
s3 增强捕捉设置3 AMPSNAP3
s4 增强捕捉设置4 AMPSNAP4
sm 缩放监控器AMSCMONITOR
stoo 标准零件开/关AMLAYPARTO
tioo 标题栏开/关AMLAYTIBLO
txl 语言转换器AMLANGCONV
u0 单位0 AMUNIT_0
u1 单位1 AMUNIT_1
u2 单位2 AMUNIT_2
u3 单位3 AMUNIT_3
u4 单位4 AMUNIT_4
v1 左上AMVIEWUL
v2 右上AMVIEWUR
v3 左下AMVIEWLL
v4 右下AMVIEWLR
v5 圆心AMVIEWCEN
val 查看全部AMVIEWALL
vpoo 视口开/关AMLAYVPO

wf_1980

[转帖]Autocad应用技巧(2)——妙用Rotate命令 Autocad应用技巧(2)——妙用Rotate命令 范例 绘制如下图形： 条件：1.矩形一边长为50； 2.内部五个圆的半径相等。 提示：注意Rotate、Scale和Fillet用法。 此主题相关图片如下： 步骤：1.以任意半径绘制三个半径相等的圆： 命令：CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]：(选取任意点1) 指定圆的半径或 [直径(D)] <25.0000>：(输入任意半径) 命令：COPY 选取对象：(选取圆) 选取对象：(回车结束选取) 指定基点或位移，或者[重复(M)]： M (输入重复选项M) 指定基点： _qua 于(选取象限点2) 指定位移的第二点或 <用第一点作位移>：_qua于(选取象限点3) 指定位移的第二点或 <用第一点作位移>：_qua 于(选取象限点4) 指定位移的第二点或 <用第一点作位移>：(回车结束输入) 此主题相关图片如下： 2.继续绘制出上下两个圆(Autocad会记录刚才绘制出的圆的半径值)： 命令：CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]：(输入选项T) 指定对象与圆的第一个切点选取切点1) 指定对象与圆的第二个切点选取切点2) 指定圆的半径<25.0000>：(输入25，如果默认值与上一次绘制的圆的半径相同，则直接回车结束输入) 命令：CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]：(输入选项T) 指定对象与圆的第一个切点选取切点3) 指定对象与圆的第二个切点选取切点4) 指定圆的半径<25.0000>：(输入25，如果默认值与上一次绘制的圆的半径相同，则直接回车结束输入) 此主题相关图片如下： 3.绘制四条切线： 命令：LINE 指定第一点：_tan 到(选取切点1) 指定下一点或 [放弃(U)]: _tan 到(选取切点2) 指定下一点或 [放弃(U)]：(回车结束) 命令：LINE 指定第一点：_tan 到(选取切点3) 指定下一点或 [放弃(U)]: _tan 到(选取切点4) 指定下一点或 [放弃(U)]：(回车结束) 命令：LINE 指定第一点：_tan 到(选取切点5) 指定下一点或 [放弃(U)]: _tan 到(选取切点6) 指定下一点或 [放弃(U)]：(回车结束) 命令：LINE 指定第一点：_tan 到(选取切点7) 指定下一点或 [放弃(U)]: _tan 到(选取切点8) 指定下一点或 [放弃(U)]：(回车结束) 此主题相关图片如下：

4.用FILLET命令来绘出四个直角： 命令：FILLET 当前模式: 模式 = 修剪，半径 = 25.0000 选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]: R(输入R选项) 指定圆角半径 <25.0000>: 0(输入0，即成直角) 命令：FILLET 当前模式: 模式 = 修剪，半径 = 0.0000 选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]选取点1) 选择第二个对象: (选取点2) 命令：FILLET 当前模式: 模式 = 修剪，半径 = 0.0000 选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]选取点3) 选择第二个对象: (选取点4) 命令：FILLET 当前模式: 模式 = 修剪，半径 = 0.0000 选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]选取点4) 选择第二个对象: (选取点5) 命令：FILLET 当前模式: 模式 = 修剪，半径 = 0.0000 选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]选取点6) 选择第二个对象: (选取点1) 此主题相关图片如下： 5.旋转对象： 命令：ROTATE UCS 当前的正角方向: ANGDIR=逆时针 ANGBASE=0 选择对象：(选取前面所绘制的直线和圆) 选择对象：(回车结束选取) 指定基点: _endp 于(选取点1) 指定旋转角度或 [参照(R)]: R(输入R选项) 指定参照角 <0>: _endp 于(选取端点1) 指定第二点：_endp 于(选取端点2) 指定新角度：0 (输入新角度0) 此主题相关图片如下： 6.对图形进行比例缩放： 命令：SCALE 选择对象：(选取绘制的圆和矩形) 选择对象：(回车结束选取) 指定基点：_endp于(选取端点1) 指定比例因子或[参照(R)]：R (输入R选项) 指定参照长度<1>：: _endp于(选取端点1，即确定直线原来长度的第一点) 指定第二点：_endp于(选取端点2，即确定直线原来长度的第二点) 指定新长度：50(输入新的长度值) 此主题相关图片如下：

说明：

1.ROTATE命令的“参照”选项R：

指定参照角 <0>:通过输入值或指定两点来指定一个角度 指定新角度:指定新绝对角度 1) Rotate命令的“参照”选项R用于将对象从当前指定的绝对角度(参照角)旋转到新指定的绝对角度，对象旋转的角度为当前指定绝对角度与新指定绝对角度之和。这里的绝对角度指的是相对于X轴正方向的角度。 2) 指定参照角的绝对角度值时可直接输入角度值，也可通过指定两点来指定一个角度值。指定新角度的绝对角度值时可直接输入角度值，亦可通过指定一点来指定一个角度值，这时新角度的值是指定的这一点与旋转基准点的连线与X轴正方向的夹角值。 示例一：如下图，注意“参照”选项中角度值的指定
此主题相关图片如下：

命令：Rotate

选择对象：(选取上图所示的矩形和对角线)
选择对象：(回车结束选取)
指定基点: (选取图示基点)
指定旋转角度或 [参照(R)]: R(输入R选项)
指定参照角 <0>: _endp 于(选取端点 点1)
指定第二点：_endp 于(选取端点 点2)
指定新角度：(选取端点 点3)

从结果可以看到，图形旋转了(10+28)=38°。如果指定参照角时，选取的两点是基点和点2，则图形旋转(39+28)=67°。

示例二：如下图所示

此主题相关图片如下：

选择对象：(选取图示上方的三角形)
选择对象：(回车结束选取)
指定基点: _endp 于(选取点1)
指定旋转角度或 [参照(R)]: R(输入R选项)
指定参照角 <0>: _endp 于(选取点1)
指定第二点：_endp 于(选取点3)
指定新角度：(选取点2)

2.FILLET命令中的半径R选项

FILLET命令中的圆角半径是连接被圆角对象的圆弧半径。修改圆角半径影响后续的圆角操作。如果设置圆角半径为 0，则被圆角的对象将被修剪或延伸直到它们相交，并不创建圆弧。

wf_1980

  [转帖]图形的自动编号
上午看了一个自动编号的帖子，所以下去我又用VBA做了一个。加了带圈的功能。


此主题相关图片如下：

2. 以下内容为程序代码:
3. 'by gzy
4. 'gzy@mjtd.com
5. Dim Nums As Integer
6. Sub Numbers()
7. Nums = 1
8. Dim keyWord As String
9.         ThisDrawing.Utility.InitializeUserInput 0, "y n"
10.         keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "编号是否带圈[否(N)/是(Y)][N]: ")
11.         
12.         If keyWord = "" Then
13.             keyWord = "N"
14.             Call Ncircle
15.         Else
16.             Call Cir
17.         End If
18.         
19.         If keyWord = "N" Then Call Ncircle
20. End Sub Sub Ncircle()
21. RETRY:
22.         Dim PPck1 As Variant, PPck2 As Variant
23.         Dim textobject(0) As AcadObject: Dim line1 As AcadLine: Dim line2 As AcadLine
24.         Dim ppt(0 To 2) As Double:    Dim Numbers1 As String: Dim Inserpt(0 To 2) As Double
25.         
26.          On Error Resume Next
27.          PPck1 = ThisDrawing.Utility.GetPoint(, "请指定零件：")
28.                  If Err <> 0 Then
29.                                 Err.Clear
30.                                 ThisDrawing.Utility.Prompt " 没有指定零件,退出"
31.                                 Exit Sub
32.                     End If
33.          PPck2 = ThisDrawing.Utility.GetPoint(, "请指定编号位置：")
34.                 If Err <> 0 Then
35.                                 Err.Clear
36.                                 ThisDrawing.Utility.Prompt " 没有指定编号位置,退出"
37.                                 Exit Sub
38.                     End If
39.     Set line1 = ThisDrawing.ModelSpace.AddLine(PPck1, PPck2)
40.     TextHeight = ThisDrawing.GetVariable("dimtxt") '沿用系统文字高度
41.    
42.     If pd(PPck1, PPck2) = True Then
43.          ppt(0) = PPck2(0) - 2 * TextHeight:     ppt(1) = PPck2(1):        ppt(2) = PPck2(2)
44.     Else
45.          ppt(0) = PPck2(0) + 2 * TextHeight:     ppt(1) = PPck2(1):        ppt(2) = PPck2(2)
46.     End If
47.    
48.     Set line2 = ThisDrawing.ModelSpace.AddLine(PPck2, ppt)
49.     line2.Lineweight = acLnWt030
50.     ThisDrawing.SendCommand "_LWDISPLAY" & vbCr & "on" & vbCr     '显示线宽
51.             
52.     Numbers1 = ThisDrawing.Utility.GetString(0, vbCrLf & "请输入编号数字(上一编号为" & Nums - 1 & ")" & "[" & Nums & "]:")
53.     If Numbers1 = "" Then Numbers1 = Nums
54.     If pd(PPck1, PPck2) = True Then
55.             Inserpt(0) = ppt(0) + 0.5 * TextHeight: Inserpt(1) = ppt(1) + 0.2 * TextHeight: Inserpt(2) = ppt(2)
56.     Else
57.             Inserpt(0) = ppt(0) - 1.5 * TextHeight: Inserpt(1) = ppt(1) + 0.2 * TextHeight: Inserpt(2) = ppt(2)
58.     End If
59.          Set textobject(0) = ThisDrawing.ModelSpace.AddText(Numbers1, Inserpt, TextHeight)
60.         Nums = Numbers1 '使提示与上一编号关联
61.         Nums = Nums + 1
62. GoTo RETRY
63. End SubSub Cir()
64. RETRY:
65.         Dim PPck1 As Variant, PPck2 As Variant
66.         Dim textobject(0) As AcadObject: Dim line1 As AcadLine: Dim Cirobj As AcadCircle
67.         Dim ppt(0 To 2) As Double:    Dim Numbers1 As String: Dim Inserpt(0 To 2) As Double
68.         
69.          On Error Resume Next
70.          PPck1 = ThisDrawing.Utility.GetPoint(, "请指定零件：")
71.                  If Err <> 0 Then
72.                                 Err.Clear
73.                                 ThisDrawing.Utility.Prompt " 没有指定零件,退出"
74.                                 Exit Sub
75.                     End If
76.          PPck2 = ThisDrawing.Utility.GetPoint(, "请指定编号位置：")
77.                 If Err <> 0 Then
78.                                 Err.Clear
79.                                 ThisDrawing.Utility.Prompt " 没有指定编号位置,退出"
80.                                 Exit Sub
81.                     End If
82.     Set line1 = ThisDrawing.ModelSpace.AddLine(PPck1, PPck2)
83.     TextHeight = ThisDrawing.GetVariable("dimtxt") '沿用系统文字高度
84.     ppt(0) = PPck2(0) + 0.7 * TextHeight: ppt(1) = PPck2(1) - 0.5 * TextHeight: ppt(2) = PPck2(2)
85.     Set Cirobj = ThisDrawing.ModelSpace.AddCircle(PPck2, TextHeight)
86.         PPck2 = Cirobj.IntersectWith(line1, acExtendNone) '求交点
87.         line1.EndPoint = PPck2     '剪切引线
88.             
89.         Numbers1 = ThisDrawing.Utility.GetString(0, vbCrLf & "请输入编号数字(上一编号为" & Nums - 1 & ")" & "[" & Nums & "]:")
90.         If Numbers1 = "" Then Numbers1 = Nums
91.         If Len(Numbers1) = 2 Then
92.             Inserpt(0) = ppt(0) - 1.4 * TextHeight: Inserpt(1) = ppt(1) + 0.01 * TextHeight: Inserpt(2) = ppt(2)
93.         End If
94.         If Len(Numbers1) = 1 Then
95.          Inserpt(0) = ppt(0) - TextHeight: Inserpt(1) = ppt(1) + 0.01 * TextHeight: Inserpt(2) = ppt(2)
96.         End If
97.         
98.         Set textobject(0) = ThisDrawing.ModelSpace.AddText(Numbers1, Inserpt, TextHeight)
99.         
100.         Nums = Numbers1 '使提示与上一编号关联
101.         Nums = Nums + 1
102. GoTo RETRY
103. End Sub
104. Function pd(p1 As Variant, p2 As Variant) As Boolean '判断斜率，以便确定文字位置
105.         If p1(0) > p2(0) And p1(0) > p2(0) Then
106.             pd = True
107.         Else
108.             pd = False
109.         End If
110. End Function这个帖子是我从其他地方转帖过来的，可是不知道为什么图片没有显示，请大家见谅！

以下内容为程序代码: 'by gzy 'gzy@mjtd.com Dim Nums As Integer Sub Numbers() Nums = 1 Dim keyWord As String         ThisDrawing.Utility.InitializeUserInput 0, "y n"         keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "编号是否带圈[否(N)/是(Y)][N]: ")                  If keyWord = "" Then             keyWord = "N"             Call Ncircle         Else             Call Cir         End If                  If keyWord = "N" Then Call Ncircle End Sub Sub Ncircle() RETRY:         Dim PPck1 As Variant, PPck2 As Variant         Dim textobject(0) As AcadObject: Dim line1 As AcadLine: Dim line2 As AcadLine         Dim ppt(0 To 2) As Double:    Dim Numbers1 As String: Dim Inserpt(0 To 2) As Double                   On Error Resume Next          PPck1 = ThisDrawing.Utility.GetPoint(, "请指定零件：")                  If Err <> 0 Then                                 Err.Clear                                 ThisDrawing.Utility.Prompt " 没有指定零件,退出"                                 Exit Sub                     End If          PPck2 = ThisDrawing.Utility.GetPoint(, "请指定编号位置：")                 If Err <> 0 Then                                 Err.Clear                                 ThisDrawing.Utility.Prompt " 没有指定编号位置,退出"                                 Exit Sub                     End If     Set line1 = ThisDrawing.ModelSpace.AddLine(PPck1, PPck2)     TextHeight = ThisDrawing.GetVariable("dimtxt") '沿用系统文字高度         If pd(PPck1, PPck2) = True Then          ppt(0) = PPck2(0) - 2 * TextHeight:     ppt(1) = PPck2(1):        ppt(2) = PPck2(2)     Else          ppt(0) = PPck2(0) + 2 * TextHeight:     ppt(1) = PPck2(1):        ppt(2) = PPck2(2)     End If         Set line2 = ThisDrawing.ModelSpace.AddLine(PPck2, ppt)     line2.Lineweight = acLnWt030     ThisDrawing.SendCommand "_LWDISPLAY" & vbCr & "on" & vbCr     '显示线宽                  Numbers1 = ThisDrawing.Utility.GetString(0, vbCrLf & "请输入编号数字(上一编号为" & Nums - 1 & ")" & "[" & Nums & "]:")     If Numbers1 = "" Then Numbers1 = Nums     If pd(PPck1, PPck2) = True Then             Inserpt(0) = ppt(0) + 0.5 * TextHeight: Inserpt(1) = ppt(1) + 0.2 * TextHeight: Inserpt(2) = ppt(2)     Else             Inserpt(0) = ppt(0) - 1.5 * TextHeight: Inserpt(1) = ppt(1) + 0.2 * TextHeight: Inserpt(2) = ppt(2)     End If          Set textobject(0) = ThisDrawing.ModelSpace.AddText(Numbers1, Inserpt, TextHeight)         Nums = Numbers1 '使提示与上一编号关联         Nums = Nums + 1 GoTo RETRY End SubSub Cir() RETRY:         Dim PPck1 As Variant, PPck2 As Variant         Dim textobject(0) As AcadObject: Dim line1 As AcadLine: Dim Cirobj As AcadCircle         Dim ppt(0 To 2) As Double:    Dim Numbers1 As String: Dim Inserpt(0 To 2) As Double                   On Error Resume Next          PPck1 = ThisDrawing.Utility.GetPoint(, "请指定零件：")                  If Err <> 0 Then                                 Err.Clear                                 ThisDrawing.Utility.Prompt " 没有指定零件,退出"                                 Exit Sub                     End If          PPck2 = ThisDrawing.Utility.GetPoint(, "请指定编号位置：")                 If Err <> 0 Then                                 Err.Clear                                 ThisDrawing.Utility.Prompt " 没有指定编号位置,退出"                                 Exit Sub                     End If     Set line1 = ThisDrawing.ModelSpace.AddLine(PPck1, PPck2)     TextHeight = ThisDrawing.GetVariable("dimtxt") '沿用系统文字高度     ppt(0) = PPck2(0) + 0.7 * TextHeight: ppt(1) = PPck2(1) - 0.5 * TextHeight: ppt(2) = PPck2(2)     Set Cirobj = ThisDrawing.ModelSpace.AddCircle(PPck2, TextHeight)         PPck2 = Cirobj.IntersectWith(line1, acExtendNone) '求交点         line1.EndPoint = PPck2     '剪切引线                      Numbers1 = ThisDrawing.Utility.GetString(0, vbCrLf & "请输入编号数字(上一编号为" & Nums - 1 & ")" & "[" & Nums & "]:")         If Numbers1 = "" Then Numbers1 = Nums         If Len(Numbers1) = 2 Then             Inserpt(0) = ppt(0) - 1.4 * TextHeight: Inserpt(1) = ppt(1) + 0.01 * TextHeight: Inserpt(2) = ppt(2)         End If         If Len(Numbers1) = 1 Then          Inserpt(0) = ppt(0) - TextHeight: Inserpt(1) = ppt(1) + 0.01 * TextHeight: Inserpt(2) = ppt(2)         End If                  Set textobject(0) = ThisDrawing.ModelSpace.AddText(Numbers1, Inserpt, TextHeight)                  Nums = Numbers1 '使提示与上一编号关联         Nums = Nums + 1 GoTo RETRY End Sub Function pd(p1 As Variant, p2 As Variant) As Boolean '判断斜率，以便确定文字位置         If p1(0) > p2(0) And p1(0) > p2(0) Then             pd = True         Else             pd = False         End If End Function这个帖子是我从其他地方转帖过来的，可是不知道为什么图片没有显示，请大家见谅！

wpdm

非常感谢！