xds520007 发表于 2009-7-29 14:50:00

VBA创建图层

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

wj_job 发表于 2009-7-31 16:13:00

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

xds520007 发表于 2009-7-31 16:33:00

<p>我已经知道了</p><p>layerObj.Lineweight = acLnWt040&nbsp;&nbsp; '线宽0.4</p><p>但加载线型好多加载不出来 ，ACAD_ISO10W100可以加载，别的都加载不了</p><p>&nbsp;Dim B As Boolean '用于标记检查已加载线型的结果<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each T In ThisDrawing.Linetypes '检查是否已加载中心线的线型<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If StrComp(T.Name, "ACAD_ISO10W100", 1) = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; B = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If B = False Then ThisDrawing.Linetypes.Load "ACAD_ISO10W100", "acad.lin" '在要求的线型未找到时加载该线型<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layerObj.Linetype = "ACAD_ISO10W100" '按要求定义中心线线型</p>
页: [1]
查看完整版本: VBA创建图层