VBA创建图层

xds520007

VBA创建图层时怎样改变线型宽度？哪位指教下

wj_job

自己载入线形然后再设置！

xds520007

我已经知道了

layerObj.Lineweight = acLnWt040   '线宽0.4

但加载线型好多加载不出来 ，ACAD_ISO10W100可以加载，别的都加载不了

 Dim B As Boolean '用于标记检查已加载线型的结果
        For Each T In ThisDrawing.Linetypes '检查是否已加载中心线的线型
            If StrComp(T.Name, "ACAD_ISO10W100", 1) = 0 Then
                B = True
                Exit For
            End If
        Next
        If B = False Then ThisDrawing.Linetypes.Load "ACAD_ISO10W100", "acad.lin" '在要求的线型未找到时加载该线型
        layerObj.Linetype = "ACAD_ISO10W100" '按要求定义中心线线型