machinecn 发表于 2003-7-14 16:08:00

关于加载线形的问题

bluemoon 发表于 2003-7-14 17:44:00

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

gzy 发表于 2003-9-22 22:14:00

'设置并绘制中心线
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
页: [1]
查看完整版本: 关于加载线形的问题