[VBA程序]：大家来帮我看看,谢谢了啊

ponyfzp

我这程序运行没有错误，但是怎么不显示我要画的线条了
Dim 齿轮CAD As AcadApplication
Const pi As Double = 3.1415926
Private Sub Command2_Click()
On Error Resume Next
齿轮CAD.ActiveDocument.Close
齿轮CAD.Documents.Add

Dim ns, n2, m, a, r, rb, ra, rf

ns = Me.Text1  '刀具齿数
m = Me.Text2   '模数
a = Me.Text3 * pi / 180   '压力角

r = m * ns / 2
rf = (r - 1.25 * m)
rb = r * Cos(a)
ra = r + m * 1.25
Dim thitas As Double, this0  As Double
Dim thimax As Double
Dim pt() As Double
Dim objpline As AcadEntity
Dim n As Integer
this0 = pi / (2 * ns) - Tan(a) + (a)
thimax = Sqr(ra ^ 2 - rb ^ 2) / rb

For n = 0 To 100 Step 1
thitas = thimax * n / 100
pt(3 * n) = rb * (Sin(this0 + thitas) - thitas * Cos(this0 + thitas))
pt(3 * n + 1) = rb * (Cos(this0 + thitas) + thitas * Sin(this0 + thitas))
pt(3 * n + 2) = 0
Next n
Set objpline = 齿轮CAD.ActiveDocument.ModelSpace.AddLightWeightPolyline(pt)
objpline.Update
ZoomAll

125812581258

不知道