개발자 이야기

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

Dim textObj As AcadText Dim pt(2) As Double set textObj = 'select AcadText.... pt(0) = textObj.insertionPoint(0) pt(1) = textObj.insertionPoint(1) textObj.Alignment = acAlignmentMiddleCenter textObj.TextAlignmentPoint = pt After assigning Alignment variable, TextAlignmentPoint must be assigned, too. If you not, AcadText object will be destroyed.

* VBA - check the function name the return name - nothing is used for release. - if you assign value, let's see whether 'set' is necessary or not. * AutoCAD - Never use 'Drawing1.dwg' filename. when you create default project, two project will have conflicts.

AcadLine: 라인. 시작점, 종료점으로 구성 AcadArc: 아크. 시작점, 종료점, 그리고 중심점으로 구성 AcadPolyline: 폴리라인. 라인과 아크로 조합 구성(좌표 배열을 가지고 있음). Close가 True이면, 폴리곤이라고 보면됨. AcadLWPolyline: 2차원 폴리라인. AcadRegion: 리젼, 하나이상의 Region을 포함할 수 있음. Intersect, Subtraction, Union의 연산이 가능함. Hole 을 가질수 없음.

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..