[分享]明经帖子好内容整理（二）（新增AUTOCAD技巧及疑难解答打包下载）！！ - AutoCAD基础应用 - AutoCAD论坛 - 明经CAD社区 - 第2页

wf_1980 发表于 2004-9-15 19:01:00

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

jame2000 发表于 2004-9-15 23:01:00

支持一下

yongxue 发表于 2004-9-16 08:28:00

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

真心感谢！

wf_1980 发表于 2004-9-16 16:05:00

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

wf_1980 发表于 2004-9-16 20:58:00

wf_1980 发表于 2004-9-16 21:30:00

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 发表于 2004-9-16 21:47:00

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 发表于 2004-9-16 22:01:00

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.skcad.com/Skins/Default/topicface/face1.gif" align=absMiddle border=0> [转帖]Autocad应用技巧(2)——妙用Rotate命令 
Autocad应用技巧(2)——妙用Rotate命令

 范例绘制如下图形： 条件：1.矩形一边长为50； 2.内部五个圆的半径相等。 提示：注意Rotate、Scale和Fillet用法。 <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/001.JPG___2004725115455909.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/001.JPG___2004725115455909.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A>

步骤：1.以任意半径绘制三个半径相等的圆： 命令：CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]：(选取任意点1) 指定圆的半径或 [直径(D)] <25.0000>：(输入任意半径) 

命令：COPY 选取对象：(选取圆) 选取对象：(回车结束选取) 指定基点或位移，或者[重复(M)]： M (输入重复选项M) 指定基点： _qua 于(选取象限点2) 指定位移的第二点或 <用第一点作位移>：_qua于(选取象限点3) 指定位移的第二点或 <用第一点作位移>：_qua 于(选取象限点4) 指定位移的第二点或 <用第一点作位移>：(回车结束输入) <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/002.JPG___2004725115722812.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/002.JPG___2004725115722812.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A> 

2.继续绘制出上下两个圆(Autocad会记录刚才绘制出的圆的半径值)： 命令：CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]：(输入选项T) 指定对象与圆的第一个切点:(选取切点1) 指定对象与圆的第二个切点:(选取切点2) 指定圆的半径<25.0000>：(输入25，如果默认值与上一次绘制的圆的半径相同，则直接回车结束输入) 命令：CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]：(输入选项T) 指定对象与圆的第一个切点:(选取切点3) 指定对象与圆的第二个切点:(选取切点4) 指定圆的半径<25.0000>：(输入25，如果默认值与上一次绘制的圆的半径相同，则直接回车结束输入) <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/003.JPG___2004725115934543.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/003.JPG___2004725115934543.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A> 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)]：(回车结束) <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/004.JPG___20047251233650.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/004.JPG___20047251233650.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A>

</TD></TR></TBODY></TABLE>
<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.skcad.com/Skins/Default/topicface/face1.gif" align=absMiddle border=0> 
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)

 <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/005.JPG___200472512850283.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/005.JPG___200472512850283.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A>

5.旋转对象：

命令：ROTATE

UCS 当前的正角方向: ANGDIR=逆时针 ANGBASE=0 选择对象：(选取前面所绘制的直线和圆) 选择对象：(回车结束选取) 指定基点: _endp 于(选取点1) 指定旋转角度或 [参照(R)]: R(输入R选项) 指定参照角 <0>: _endp 于(选取端点1) 指定第二点：_endp 于(选取端点2) 指定新角度：0 (输入新角度0)

 <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/006.JPG___2004725121314111.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" style="ZOOM: 260%" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/006.JPG___2004725121314111.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A>

6.对图形进行比例缩放：



命令：SCALE 选择对象：(选取绘制的圆和矩形) 选择对象：(回车结束选取) 指定基点：_endp于(选取端点1) 指定比例因子或[参照(R)]：R (输入R选项) 指定参照长度<1>：: _endp于(选取端点1，即确定直线原来长度的第一点) 指定第二点：_endp于(选取端点2，即确定直线原来长度的第二点) 指定新长度：50(输入新的长度值)

 <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/007.JPG___2004725121430414.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/007.JPG___2004725121430414.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A> 

</TD></TR></TBODY></TABLE>
说明： 

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


<A>指定参照角 <0>:通过输入值或指定两点来指定一个角度 </A>

指定新角度:指定新绝对角度 

1) Rotate命令的“参照”选项R用于将对象从当前指定的绝对角度(参照角)旋转到新指定的绝对角度，对象旋转的角度为当前指定绝对角度与新指定绝对角度之和。这里的绝对角度指的是相对于X轴正方向的角度。

2) 指定参照角的绝对角度值时可直接输入角度值，也可通过指定两点来指定一个角度值。指定新角度的绝对角度值时可直接输入角度值，亦可通过指定一点来指定一个角度值，这时新角度的值是指定的这一点与旋转基准点的连线与X轴正方向的夹角值。

示例一：如下图，注意“参照”选项中角度值的指定

 <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/008.JPG___2004725122013238.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/008.JPG___2004725122013238.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A> 

命令：Rotate 




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

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


示例二：如下图所示



 <IMG onmousewheel="return bbimg(this)" src="http://www.skcad.com/skins/default/filetype/jpg.gif" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0>此主题相关图片如下： <A id=ImgSpan href="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/009.JPG___2004725123452420.jpg" target="_blank" ><IMG onmousewheel="return bbimg(this)" alt=按此在新窗口浏览图片 src="http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-7/009.JPG___2004725123452420.jpg" onload="javascript :if(this.width>screen.width-500)this.width=screen.width-500;" border=0></A> 

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




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


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

wf_1980 发表于 2004-9-16 22:10:00

本帖最后由作者于 2004-9-18 10:51:36 编辑

http://www.skcad.com/Skins/Default/topicface/face1.gif
[转帖]图形的自动编号
上午看了一个自动编号的帖子，所以下去我又用VBA做了一个。加了带圈的功能。

http://www.skcad.com/skins/default/filetype/gif.gif
此主题相关图片如下：

http://www.skcad.com/showimg.asp?BoardID=25&filename=2004-5/2004511182414239.gif
以下内容为程序代码:
'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)]: ")

 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 发表于 2004-9-16 23:58:00

非常感谢！

页: 1 [2] 3 4 5 6 7 8 9 10 11

明经CAD社区's Archiver