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