tsxvvv 发表于 2003-6-1 09:37:00

这段程序有问题，请帮帮忙啊！！

Public Sub block()
Dim HO As AcadHatch
Dim PN As String
Dim PT As Long
Dim BA As Boolean
Dim outerloop(0 To 2) As AcadEntity
Dim pl(0 To 15) As Double

PN = "ANSI31"
PT = 0
BA = True
Set HO = ThisDrawing.ModelSpace.AddHatch(PN, PT, BA)
HO.PatternScale = 1

pl(0) = 10
pl(1) = 10
pl(2) = 50
pl(3) = 10
pl(4) = 60
pl(5) = 20
pl(6) = 60
pl(7) = 35
pl(8) = 55
pl(9) = 50
pl(10) = 40
pl(11) = 50
pl(12) = 20
pl(13) = 25
pl(14) = 10
pl(15) = 10
Set outerloop(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(pl)
HO.AppendOuterLoop (outerloop)
HO.Evaluate
ThisDrawing.Regen True
End Sub
运行是系统报错“Set HO = ThisDrawing.ModelSpace.AddHatch(PN, PT, BA)“
这句语句类型不符，不只出错在哪儿啊？？

mccad 发表于 2003-6-1 09:58:00

有误，应该PN和PT换过来

tsxvvv 发表于 2003-6-1 20:48:00

谢谢老师！！

谢谢老师！！
页: [1]
查看完整版本: 这段程序有问题，请帮帮忙啊！！