VBA关于螺栓的程序...求助!!!!!!!!

zhdx

这是一段螺栓标准件的VBA自动作图程序,可是有几句我实在看不懂是什么意思,请那位大哥帮忙修改修改!这一句是有错误的一句谁可以帮忙修改下! thisdrawing.sentcommand("_polygon"&vbcr&"6"&vbcr&mpstr&vbcr&"c"&vbcr&crad&vbcr)
main(thisdrawing)
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
mp = 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"&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

冷~~~我发了好多帖子求助 都没人帮我~~~不知道是大家对这么简单的问题不屑一顾呢。。。。还是。。。不过还好 ，我已经把螺栓标准件的自动作图程序弄出来了，有需要的朋友请跟我联系~~免费提供！！我就不信 这年月~~~

jordan

楼主。我想要啊。。我的电子邮件地址是:jiajia231@Vip.sina.com

我一直想要这样的程序。以前这里面有一个可以下。现在都不可以了。好久没上了。都不知是什么原因不能下载

juanjuanzhu

这是一个螺栓程序，你看看吧~~~

juanjuanzhu

啊？？附件不会发，算了

qqqqqqqqqqqqqqq

楼主，我也要啊，sonia870913@126.com，谢谢啦