AutoCAD线条加粗秘诀对图形中的某些线条进行加粗是经常需要进行的工作，AutoCAD 2000中对图形线条进行加粗有如下方法。
1、设置线宽Lineweight可以在图层中进行线宽的设置，也可在状态框中或Format菜单下专门设定。
注意设置后要按下工作界面右下侧的LWT按钮，才能看到画出的线条粗细效果。
注意，用这种方法设置线的粗细不方便把握，效果也不是很理想，转换到Word中输出，或直接在AutoCAD中输出，要想看到线条的粗细效果要做较多的工作。
2、用Pedit命令加粗在Command命令行直接输入Pedit后回车，或用菜单命令Modify\Polyline都可完成同样的工作，输入命令后，选择其中的Width项即可对线条进行加粗，但对不同类型的线条，前期准备工作不一样。
1）对用Draw\Polyline命令直接画出的复合线（可画出直线和弧线），可以直接用Pedit命令进行加粗。
2）对用Draw\Line命令画出的直线，使用Pedit命令后，会出现提示，告诉你选择的线条不是复合线，是否想把它转变为复合线呢输入“Y”后回车，则线条转变为复合线，后面的工作就与第一步一样了。
其实画粗直线专门有一个命令——Trace。
该命令在绘制前会提示你输入线的宽度，后面绘直线的方法与Line命令一样。
讨厌的是要等画第二段线时（或回车后）才能看到第一段线的效果，让人感到别扭。
这个命令用得很少，菜单中找不到这个命令。
3）对用Draw\Circle命令画出的圆，不能直接加粗，但只要用Trim（修剪）或Break（断开）命令将圆修剪或断开，使之不是一个完整的圆，就可以很方便地用Pedit命令加粗了。
更妙的是，加粗后不要马上回车退出命令，你可以发现Pedit命令下还有一个Close选项，选择该项（输入C后回车）可以将断开的圆又封闭为一个整圆，只是该圆的线条已经是加粗了的。
4）对椭圆（Ellipse）的加粗AutoCAD中可以画出两种椭圆——真椭圆和复合线椭圆，真椭圆不能用Pedit命令加粗，但复合线椭圆可以用Pedit命令加粗。
Autocad vbA初级教程(13) 块操作定义块方法：Set blocksobj=ThisDrawing.Blocks.Add(基点, 块名)把选择集加入块中的方法：ThisDrawing.CopyObjects(选择集,块)插入块方法：0ThisDrawing.ModelSpace.InsertBlock(插入点,块名, X轴比例,Y轴比例,Z轴比例, 旋转角度)画块属性方法：ThisDrawing.ModelSpace.AddAttribute(文字高度,模式,提示字符, 插入点, 显示字符,默认值)一共有五种模式，在输入时会有提示，其中最常用的是“acAttributeModeNormal”普通模式编程思路：1．定义一个空块2．在块中画一段弧（球服衣领）3．画多段线，镜像画出球衣4．画块属性，由于块属性默认的对齐方式是左对齐，而球员号码应该居中，所以必须把块的对齐属性改为居中。
但是当这个属性更改时块属性对齐点会自动归零，所以不得不再次更改对齐点属性5．把多段线和属性复制到块中6．提示用户点选球员位置和姓名7．插入块，修改球衣号码属性、球员姓名属性以下是源码，附有详细的注释，如果有疑问，建议用变量跟踪法研究一下。
Sub team()Dim playerlay As AcadLayer '定义球员图层Dim playerblock As AcadBlock '定义块变量Dim arcc(0 To 2) As Double '圆弧圆心Dim linep1(0 To 2) As Double '线条端点1Dim linep2(0 To 2) As Double '线条端点2Dim pline(0 To 20) As Double '定义队服右侧多段线7个顶点Dim basep(0 To 2) As Double '块基点00Dim playernumberpoint(0 To 2) As Double '块属性插入点Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式Dim blockRef As AcadBlockReference '定义块属性变量Dim Attr3 As V ariant '插入块属性变量Set playerblock = ThisDrawing.Blocks.Add(basep, "球员") '定义一个"球员"的块arcc(0) = 0arcc(1) = 430Call playerblock.AddArc(arcc, 50, ThisDrawing.Utility.AngleToReal(180, 0), 0) '画弧并加入块中0pline(0) = 0pline(1) = 20pline(3) = 1000pline(4) = 20pline(6) = 100pline(7) = 250pline(9) = 125pline(10) = 2070pline(12) = 212pline(13) = 257pline(15) = 112pline(16) = 4300pline(18) = 50pline(19) = 430Set line1 = ThisDrawing.ModelSpace.AddPolyline(pline) '画队服右侧多段线linep2(1) = 1 '镜像轴第二点位于Y轴上任一点Set line2 = line1.Mirror(linep1, linep2) '镜像获得另一半多段线Dim p(0 To 2) As Double '定义坐标变量0 0Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式mytxt.fontFile = "c:\windows\fonts\simfang.ttf" '设置字体文件为仿宋体ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxtplayernumberpoint(0) = 0 '块属性位置playernumberpoint(1) = 2000Set attr1 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, "号码", playernumberpoint, "X", 0) '画块属性0attr1.Alignment = 7 '居中attr1.TextAlignmentPoint = playernumberpoint '重定义对齐点Set attr2 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, "姓名", playernumberpoint, "", 0) '画块属性attr2.Alignment = 7 '居中Dim objCollection(0 To 3) As Object '创建选择集Set objCollection(0) = line1 '线条1加入选择集Set objCollection(1) = line2 '线条2加入选择集Set objCollection(2) = attr1 '属性1加入选择集0Set objCollection(3) = attr2 '属性2加入选择集Call ThisDrawing.CopyObjects(objCollection, playerblock) '把选择集加入块中For Each element In objCollection '在选择集中进行循环element.Delete '删除线条和属性(此操作并不影响已创建的块)NextSet playerlay = yers.Add("球员") '新建图层playerlay.color = 2 '为黄色ThisDrawing.ActiveLayer = playerlay '将当前图层设置为球员图层Dim p1 As V ariant '块插入点位置For i = 1 To 11 '插入块pstring = CStr(i) & "号球员位置："p1 = ThisDrawing.Utility.GetPoint(, pstring) '点选球员位置坐标nstring = ThisDrawing.Utility.GetString(30, "球员姓名：")Set blockRef = ThisDrawing.ModelSpace.InsertBlock(p1, "球员", 1, 1, 1, 0) '插入块 Attr3 = blockRef.GetAttributes '获取块属性Attr3(0).TextString = CStr(i) '赋值球员号码Attr3(1).TextString = nstring '赋值球员姓名NextEnd Sub。
《智能工程制图》课程考试试卷（A卷）注：所有考试答案直接用Auto CAD软件画在dwg文件里。
二、按图2所注尺寸，用1∶1的比例抄画平面图形，并标注全部尺寸。
（15分）图2三、按图3所注尺寸，用1∶1的比例抄画平面图形，并标注全部尺寸。
（15分）图3四、按1:1的比例绘制以下三视图，并标注尺寸。
（25分）五、绘制以下轴测图，并完成标注。
（20分）《工程制图》课程考试试卷（A卷）评分标准及参考答案一、建立A3样板。
（25分）1．设置图层，分层绘图。
（3分）（1）层名：粗线层颜色：白色线型：Continuous 线宽：0.5（2）层名：中心线颜色：红色线型：Center 线宽：0.25（3）层名：文字颜色：洋红线型：Continuous 线宽：0.25（4）层名：标注线颜色：绿色线型：Continuous 线宽：0.25另外需要建立的图层，由考生自行设置。
2.设置文字样式，要求见表1所示。
（3分）另外需要建立的文字样式，由考生自行设置。
3.设置标注样式，要求见表2所示。
（5分）表2 标注样式另外需要建立的标注样式，由考生自行设置。
4.制作标题栏，将标题栏制作成带属性的内部图块（括号内文字为属性），除了学校名称和图名字高为7外，其他文字字高为5。
（8分）5.以（0,0）点为起点创建A3图幅（420,297），用粗实线画出图框，并在图框中插入以上制作好的标题栏图块。
如图1所示。
（6分）图1二、按图2所注尺寸，用1∶1的比例抄画平面图形，并标注全部尺寸。
（15分）图2三、按图3所注尺寸，用1∶1的比例抄画平面图形，并标注全部尺寸。
（15分）图3四、按1:1的比例绘制以下三视图，并标注尺寸。
（25分）五、绘制以下轴测图，并完成标注。
（20分）。
一、机械设计制图软件要求机械设计、制图人员以Auto CAD2004（以下简称CAD）为主要设计软件，允许使用solidworks三维设计软件，图纸以工程制图形式保存且图框符合厂规范要求。
二、CAD基本设置规范1.图层设置线条和字体原则上要求以黑/白纯色为主，可以根据实际情况进行简单的颜色区分，不允许用绿色等颜色（主要这类颜色打印在纸张后显示浅淡）。
制图时假想虚拟线允许使用浅淡色。
2.文字样式设置1）用于标注的字体“格式”——“文字样式”——“新建”——命名为“用于标注”——“确定”——选择字体（字体名选择，再选用大字体，选用大字体后一定要选择——高度（T）——宽度因子（W）——应用。
2）按GB/T 14691-1993技术制图字体规定，图纸其余文字字体为长仿宋体，在A4图纸中字高，A3图纸中字高5，其他规格图纸可按比例调整字高。
在文字样式设置时，宽度因子保持统一不变。
标注样式设置“格式”——“标注样式”——“新建”——命名为“机械制图”（基础样式为：ISO—25）——“继续”，在弹出的“新建标注样式：机械制图”进行参数设置：本设置中颜色为ByBlock1）直线和箭头：(1) 尺寸线基线间距>2 文字高度（文字高度一般选），所以基线间距可选择8。
(2) 尺寸界限：①超出尺寸线:②起点偏移量：机械制图要求为0毫米。
③固定长度尺寸界限：不选择。
(3) 箭头：①第一个：实心闭合箭头②第二个：实心闭合箭头③引线：无④箭头大小：与文字高度一致(4) 圆心标记：默认形式2) 文字：(1) 文字外观①文字样式：选择刚设置好的文字样式—“用于标注”（已设置）②填充颜色：无③文字高度：（2）文字位置：垂直上方；水平居中；从尺寸线偏移（3）文字对齐：与尺寸线对齐。
3）调整（1）调整选型“文字或箭头，取最佳效果”（2）文字位置“尺寸线旁”（3）标注特征比例使用全局比例（4）调整全部打勾4）主单位：（1）单位格式：小数（2）精度：（3）小数分隔符：句点“.”（4）舍入：0（默认）（5）比例因子：1（默认）消零：后续（6）单位格式：十进制度数（7）精度：（8）消零：后续5）换算单位：在机械制图中不用设置，（公制与英寸的换算）6）公差：机械制图中，不设定以上述设置的标注为基础再设置1）“新建”——“用于半径标注”——继续——在弹出的对话框中“在“文字”选项卡文字对齐选“水平”。
