跪求高手帮忙修改这个程序，我实在是没办法了

zhdx

本人大四马上毕业，毕业论文的课题是《基于VBA的参数化造型及其应用研究》，好不容易才弄出来个这样关于螺栓标准件的自动绘图程序，可是就是运行不了，我现在真的是“黔驴技穷”了，em04希望哪位大哥帮忙修改下！小弟不胜感激！ Public Sub m(d, k, e, s, r, f, b, c, dw)
Dim sysOSMODE As Integer
sysOSMODE thisdrawing.GetVariable("osmode")
thisdrawing.SetVariable "osmode", 0
thisdrawing , unility.lnitializeuserinput(32)
On Error Resume Next
map = thisdrawing.unility.GetPoint
np = thisdrawing.unility.GetPoint
l = thisdrawing.unility.GetDistance
rotsita = thisdrawing.unility.GetAngle
If s >= 1 Then
s = 1 - 2# * f
End If
...
thisdrawing.sentcommand("_polygon"&vbcr&"6"a&vbcr&mpstr&vbcr&"c"&vbcr&crad&vbcr)
dx = np(0)
dx1 = dx0 - k
dx2 = ((e / 2# - s / 2#) / 1.732 + dxo) - k
dx3 = (1.5 - 1.141) * d + dx0 - k
dx5 = dx0 + r + c
dx6 = dx0 - b + l - d / 5# + c
dx7 = dx0 + l - b + c
dx8 = dx0 + l - f + c
dx9 = dx0 + l + c
dx10 = (dx1 + dx2) / 2#
dx11 = dx8 + d / 10#
dy0 = np(l)
dy2 = dy0 + d / 2#
dy3 = dy0 + e * 3 / 8
dy4 = dy0 + s / 2#
dy5 = dy0 + e / 2#
dy6 = dy0 + r + d / 2#
dy7 = dy0 + d / 2# - f
dy8 = (dy4 + dy5) / 2#
dy9 = dy2 - d / 10#
...
utilobj.CreateTypedArray p10, vbDouble, dx1, dy0, 0
utilobj.CreateTypedArray p32, vbDouble, dx3, dx2, 1
...
Set la = blockobj.AddLine(p10, p14)
...
Set arca = blockobj.AddArc(cetpt, ccrad, angs, ange)
...
For Each acadent In blockobj
acadent.Mirror p10, np
Next acadent
...
utiobj.CreateTypedArray insertpt, vbDouble, np(0), np(1), np(2)
...
Set blockrefobj = thisdrawing.ModelSpace.InsertBlock(insertpt, mx, 1#, 1#, 1#, 0)
thisdrawing.Regen acavtiveviewport
...
End Sub

zhdx

真的是没高手帮帮我吗?其实问题也就这一句 thisdrawing.sentcommand("_polygon"&vbcr&"6"a&vbcr&mpstr&vbcr&"c"&vbcr&crad&vbcr)
这一句什么意思?谁可以帮帮我哈!!我哭了

subtlation

thisdrawing.sentcommand应该是


thisdrawing.sendcommand 吧

zhdx

谢谢你的回复         这个程序的问题我已经搞定了，可是就是运行的时候初步来图象。。。。

Forestbfq

运行不出来也叫搞定阿

beyond_gq

晕