개발자 이야기

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

Sub show_properties() Dim ent As AcadEntity Dim tbls As ODTables Dim tbl As ODTable Dim recrds As odrecords Dim recrd As odrecord Dim fieldv As odfieldvalue Dim fieldds As ODFieldDefs Dim fieldd As ODFieldDef Dim amap As AcadMap Dim layername As String Set ent = selectEntity() Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application") Set tbls = amap.Projects(ThisDrawing).OD..