|
发表于 2004-4-21 10:47:00
|
显示全部楼层
我是在这个网站上下到的。是关于螺旋线的。。我把代码放上来好吗!!帮我看看,谢谢
Dim intLoopCnt As Integer
Dim intVertCnt As Integer
Dim intCoordCnt As Integer
On Error GoTo Err_Control
If ThisDrawing.ActiveSpace = acModelSpace Then
Set objSpace = ThisDrawing.ModelSpace
Else
Set objSpace = ThisDrawing.PaperSpace
End If
Set objUtil = ThisDrawing.Utility
varSegments = ThisDrawing.GetVariable("SURFTAB1")
dblSegInclAng = (2 * (Atn(1) * 4)) / varSegments
dblSegPitch = dblPitch / varSegments
dblSegAng = dblStartAng - dblSegInclAng
intLoopCnt = CInt(1 + (varSegments * dblRot))
ReDim dblPnts((intLoopCnt * 3) - 1)
For intCnt = 1 To intLoopCnt
dblSegAng = dblSegInclAng + dblSegAng
varPitchPnt = objUtil.PolarPoint(varCentPnt, _
dblSegAng, dblRadius)
varCentPnt(2) = varCentPnt(2) + dblSegPitch
For intVertCnt = 0 To 2
dblPnts(intCoordCnt) = varPitchPnt(intVertCnt)
intCoordCnt = intCoordCnt + 1
Next
Next intCnt
Set objPoly = objSpace.Add3DPoly(dblPnts)
Set AddHelix = objPoly
Exit_Here:
Exit Function
Err_Control:
Select Case Err.Number
'Cases here
Case Else
MsgBox Err.Description
Err.Clear
Resume Exit_Here
End Select
End Function |
|