|
|
发表于 2011-3-8 16:12:00
|
显示全部楼层
回复
这个是我vba里编的 想换成net的 ph和sh是常数 关键是倒角过后 myline1 myline2端点会变化 麻烦您帮我看看阿 谢谢啦
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")
pnt1 = ThisDrawing.Utility.GetPoint(, "输入点:")
pnt1(2) = ph: pnt2 = pnt1: pnt2(2) = sh: pntt = pnt1
Set myline1 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
pnt2 = ThisDrawing.Utility.GetPoint(pnt1, vbCr & "输入下一点:")
pnt2(2) = ph
Set myline2 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "" & bendr & "" & vbCr & "" & "(Handent """ & myline1.Handle & """)" & _
"" & vbCr & "" & "(Handent """ & myline2.Handle & """)" & "" & vbCr
ssetObj.Select acSelectionSetLast
Set mycircle(0) = ThisDrawing.ModelSpace.AddCircle(myline1.StartPoint, pr)
regionObj = ThisDrawing.ModelSpace.AddRegion(mycircle)
Set mypath = ssetObj.Item(i)
wirelength = ssetObj.Item(i).ArcLength + myline1.Length + wirelength
i = i + 1
Set mypipe = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), mypath)Set mycircle(0) = ThisDrawing.ModelSpace.AddCircle(myline1.StartPoint, pr)
regionObj = ThisDrawing.ModelSpace.AddRegion(mycircle)
Set mypath = myline1
Set mypipe = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), mypath)
|
|
置顶卡
