xds520007 发表于 2009-7-30 11:17:00

请教！VBA加载线型载不出来！谢谢

<p>用下面程序加载！好像只能加载ACAD_ISO10W100，别的线型都加载不出，哪位大侠指点指点</p><p>&nbsp;Dim T As AcadLineType 'CAD线型，用于遍历已加载的线型<br/>&nbsp;&nbsp;&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_ISO12W100", 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_ISO12W100", "acad.lin" '在要求的线型未找到时加载该线型<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layerObj.Linetype = "ACAD_ISO12W100" '按要求定义中心线线型<br/>&nbsp;&nbsp;&nbsp; layerObj.color = acYellow</p>
页: [1]
查看完整版本: 请教！VBA加载线型载不出来！谢谢