개발자 이야기

Function cir2line(myCir As AcadCircle) As AcadEntity Dim retobj As AcadEntity Dim delta As Double Dim vv As Variant delta = 2 * PI Dim numOfSegments As Integer Dim points() As Double Dim tol As Double tol = getDefaultTolerance numOfSegments = CInt(PI * myCir.Diameter / tol) ReDim points(0 To 2 * numOfSegments + 1) ang = 2 * PI / numOfSegments adir = 0 For x = 0 To UBound(points) - 2 Step 2 mypol..

Function arc2line(myArc As AcadArc) As AcadEntity Dim retobj As AcadEntity Dim delta As Double Dim numOfSegments As Integer Dim points() As Double Dim tol As Double tol = getDefaultTolerance delta = myArc.EndAngle - myArc.StartAngle If delta