[文章]：AutoCAD线条加粗方法

qingxg

对图形中的某些线条进行加粗是经常需要进行的工作，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命令加粗。
　画出哪种类型的椭圆是由系统变量Pellipse的值决定的，像使用普通命令一样，在Command命令行输入系统变量名Pellipse后回车，系统会显示当前的值，如果是0，则只能画出真椭圆，但如果改为1，则以后画出的椭圆就是复合线椭圆了，画出椭圆后再使用Pedit命令，就可以对椭圆线条加粗。
　5）任意曲线的加粗
　用Draw\Spline命令画出的任意曲线是不能用Pedit命令进行加粗的。要想加粗任意曲线，可以利用复合线拟合的方法得到曲线，这样的曲线是复合线曲线，当然可以用Pedit命令加粗。
　拟合过程大致是：先按曲线的变化趋势用Draw\Polyline命令画出一条多段的折线，后面用Prdit命令时，其中的Fit和Spline两个选项都可以对这样的多段折线进行拟合，使折线变为曲线，而且曲线将顺应折线的变化趋势如图。
　6）矩形和多边形的加粗
    用Draw\Rectangle画出的矩形，或者用Draw\Polygon画出的多边形，自然就是复合线，可以直接用Pedit命令加粗。
　好，学会了以上几种图形线条的加粗方法，则任何复杂的图形线条要加粗，都是可以做到的。
　需要注意的是，用Pedit命令一次只能加粗一条线，如果图形上有许多条线要加粗，用这种方法会很麻烦。虽然可以利用Pedit命令下的Join选项将首尾相接（相交和相离都不行）的线条连接起来再加粗，减少了一些操作，但可能还有大量的加粗工作要做。
　可能一些用户在电脑上看不到Express菜单，这是因为在安装AutoCAD时没有采用“完全安装”方法造成的，遇到这种情况，要么是加装Express，要么卸载现有AutoCAD后再重新采用“完全安装”方式进行安装。如果安装了Express，但屏幕上看不到有“Express”菜单，试试如下几个命令：Menuload、Expresstools、Expressmenu。

Tiger1973

好，很全面

hksunnye

好！基本把所有的方法都说出来了！

tonylee

是不错，介绍挺全面的！呵呵～我从XD论坛曾当下一个SZ.lsp的小工具，能把形成各种形状的图形的类型的线加粗，很是方便。是个好东东！！！

fxkuang

那里有list下载啊！不过上边的好象都够用了

myfreemind

用这个程序来加粗，可以多选！

Sub jcx() '加粗线程序

Dim a
On Error Resume Next
Dim i As Integer
Dim allobj As AcadEntity  
Dim spnt As Variant
Dim epnt As Variant
Dim plineobj As AcadLWPolyline
Dim ver(0 To 3) As Double

For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("lineset")
sset.SelectOnScreen
If sset.Count = 0 Then Exit Sub

Dim w As String
w = ThisDrawing.Utility.GetString(1, vbCrLf & "请输入宽度:")
For Each allobj In sset
If allobj.ObjectName <> "AcDbLine" Then
allobj.ConstantWidth = w
End If
If allobj.ObjectName = "AcDbLine" Then
spnt = allobj.StartPoint

epnt = allobj.EndPoint
ver(0) = spnt(0): ver(1) = spnt(1)
ver(2) = epnt(0): ver(3) = epnt(1)


Set plineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(ver)

'线宽为2

plineobj.ConstantWidth = w
allobj.Delete
End If




Next
Exit Sub




End Sub

jingelou

真是麻烦，直接编个ARX不就完了

iam0411

bonus 中有现成的mpedit ,自已定义个菜单，一次可搞定
mpedit;;w;50;;

黄宗林

如果单作图纸输出，不在WORD输出，在打印样式中也可以设置线宽的。

陌生人

我以前也写过多线链接的程序.但是现在cad200x有了pedit /m 选项,什么程序也不用编了.也不要出什么主意,用express, bonus, 或者用这个程序,那个程序,你们看看这个,
http://www.xdcad.net/forum/showt ... d=697460#post697460

难道还能要求更多么?
恐怕上面任何一种办法都不能做到这样的效果!更不用说首尾相连的线了
如果要编,建议也在充分利用m选项的基层上编写,例如加入图层过滤,实体过滤等等.其实那些过滤也可以做成透明命令,在需要过滤的时候,不管是什么命令,拿来就用.
!用好cad基本命令.!

wuxi_jzsy

在R14  里面有没有什么简单一些的方法？

于是乎

线条加粗了不方便修改，我不喜欢。
我觉得最方便的是用颜色定义线宽，毕竟成品给别人看，做的过程自己清楚就行。

lsjjm

补充2点:
1.圆的加粗还可以借用DONUT.
2.出图时用颜色控制.

zhiyongfan

我也是在打印图纸时候设置不同的线宽来调整,现在有了那么多的选择,太好

4846136

楼主说的加粗方法我觉得很好用的，当然各位大侠的方法各有各的好处，可以兼用，谢谢各位