关于加载线形的问题

machinecn

bluemoon

请看http://www.mjtd.com/a2/list.asp?id=102
有详细介绍 应该可以满足你的要求

gzy

'设置并绘制中心线
  On Error GoTo myerror '防止第二次运行线型重复
    ThisDrawing.Linetypes.Load "center", "acad.lin"
myerror:
    Resume Next
ThisDrawing.ActiveLinetype = ThisDrawing.Linetypes.Item("center")
Dim cenobj As AcadLine
Set cenobj = ThisDrawing.ModelSpace.AddLine(cp0, cp9)
cenobj.LinetypeScale = 20