简单实用更改图层的Lineweight

兰州人

在打印CAD图时，通常是在图层管理器中更改，比较麻烦。下面一个小程序能批量更改Linewight

.Lineweight = acLnWt015(线宽)简单实有方便。

Sub ChangeLayerLineweight()
  Dim ss As AcadLayer
  For Each ss In ThisDrawing.Layers
    Debug.Print ss.Name
    Select Case ss.Name
      Case "中心线", "尺寸线", "细实线", "剖面线", "零件表格文本", "文本", "虚线", "点划线"
        ss.Lineweight = acLnWt015
      Case "零件表格横线"
        ss.Lineweight = acLnWt030
      Case "零件表格竖线"
        ss.Lineweight = acLnWt040
       
      Case "图框粗实线", "内图框线"
        ss.Lineweight = acLnWt050
      Case "图框粗实线", "内图框线"
        ss.Lineweight = acLnWt050
      Case Else
        ss.Lineweight = acLnWt035
    End Select
  Next ss
End Sub

edoumxx

学习了

楼主能够再将内码细化到对指定图层内的"多段线"、"文字"或"直线"进行线宽设置？

增加还有线型比例的调整的内码？

我对二开发确实是一窍不通，希望高手能帮忙解决，谢了

enderxu

我让程序读取当前的lineweight，显示的值是－1，请问楼主知道这个－1是什么意思吗？

sailorcwx

-1是随层
-2是随块
-3是默认

memerft

我试了,但好象不行

Dim en As AcadLineType
      For Each en In ThisDrawing.Linetypes
        If StrComp(en.name, "10011", 1) = 0 Then
            en = acLnWt015

        end if

        If StrComp(en.name, "709", 1) = 0 Then
            en = acLnWt040

          end if
       next en
请问是怎么会事情啊!

mccad

en.Lineweight

memerft

Dim en As AcadLineType
      For Each en In ThisDrawing.Linetypes
        If StrComp(en.name, "10011", 1) = 0 Then
            en.lineweight = acLnWt015

        end if

        If StrComp(en.name, "709", 1) = 0 Then
            en.lineweight  = acLnWt040

          end if
       next en
还是不行啊!

mccad

人家是设置图层的线宽，而你却要设置线型的线宽。好象线型并没有线宽项。

memerft

那我想要根据线形来选择后来改变线宽,好象还是不得行啊!我先建了一个选择集后来改,好象还是不行啊!问郑老师,兰州老师,怎么搞呢?

狂刀无痕

要么改成多义线，要么放到一个层再设层打印线宽