VBA关于螺栓的程序...求助!!!!!!!!
这是一段螺栓标准件的VBA自动作图程序,可是有几句我实在看不懂是什么意思,请那位大哥帮忙修改修改!这一句是有错误的一句谁可以帮忙修改下!thisdrawing.sentcommand("_polygon"&vbcr&"6"&vbcr&mpstr&vbcr&"c"&vbcr&crad&vbcr)<BR>
main(thisdrawing)<BR>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>mp = 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"&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 冷~~~我发了好多帖子求助 都没人帮我~~~不知道是大家对这么简单的问题不屑一顾呢。。。。还是。。。不过还好 ，我已经把螺栓标准件的自动作图程序弄出来了，有需要的朋友请跟我联系~~免费提供！！我就不信 这年月~~~ <P>楼主。我想要啊。。我的电子邮件地址是:jiajia231@Vip.sina.com</P>
<P>我一直想要这样的程序。以前这里面有一个可以下。现在都不可以了。好久没上了。都不知是什么原因不能下载</P> <p>这是一个螺栓程序，你看看吧~~~</p> 啊？？附件不会发，算了 楼主，我也要啊，sonia870913@126.com，谢谢啦
页:
[1]