[vba]CAD도면 작성-문자열 쓰기(DXF)
도면파일(DXF 파일)에 내가 원하는 문자열을 쓰기 작성의도 : 도면 작성 자동화
[vba] CAD도면 작성 – Line 그리기(DXF)
DXF를 사용하면 고품질의 CAD 파일을 출력할 수 있다. 즉 VBA를 통하여 자동으로 도면을 그릴 수 있다. DXF는 AutoCAD와 호환이 되도록 설계된 파일형식이다. 작성의도 : 도면 작성 자동화 아래의 코드는 여기에 있는 DXF파일을 출력하는 코드이다. LINE명령어를 처리하는 함수는 다음과 같이 작성할 수 있다. 이와 같은 요령으로 AutoCAD의 line뿐만 아니라 circle, arc, pline 등 모든 도면 요소(drawing …
[cad]minimal DXF
[Links] 1.Minimum Requirements for Creating a DXF File of a 3D Model -by Paul Bourke 2.Minimal DXF Content [Facts] – DXF R12 (AC1009)나 그 이전 버전에서는 ENTITIES 섹션만 있어도 된다. – DXF R13/14이나 그 이후 버전에서는 HEADER, (CLASSES,) TABLES, ENTITIES, OBJECTS 섹션도 필요하다.
Library with DXF
1.libDXF by bert : Library with DXF related functions 2.QCAD – The Open Source 2D CAD 3.netDxf
[dxf]AutoCAD DXF Reference
Product Version Size Format AutoCAD® 2014 v.u.28.1.01 1,114 KB PDF AutoCAD® 2013 v.u.27.1.01 1,114 KB PDF AutoCAD® 2012 v.u.26.1.01 1,112 KB PDF AutoCAD® 2011 v.u.25.1.01 844 KB PDF AutoCAD® 2010 v.u.24.1.01 842 KB PDF AutoCAD® 2009 v.u.23.1.01 1.72 MB PDF AutoCAD® 2008 v.u.22.1.01 1.80 MB PDF AutoCAD® 2007 v.u.21.1.01 1.07 MB PDF AutoCAD® 2006 v.u.20.1.01 1.73 MB PDF …
DXF Group code
DXF, Revision 10excerpted from http://paulbourke.net/dataformats/dxf/dxf10.html
1 2 3 4 5 6 |
Group code range Following value 0 - 9 String 10 - 59 Floating-point 60 - 79 Integer 210 - 239 Floating-point 999 Comment (string) |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
Group code Value type 0 Identifies the start of an entity, table entry, or file separator. The text value that follows indicates which. 1 The primary text value for an entity. 2 A name; Attribute tag, Block name, etc. 3-4 Other textual or name values. 5 Entity handle expressed as a hexadecimal string. 6 Line type name (fixed). 7 Text style name (fixed). 8 Layer name (fixed). 9 Variable name identifier (used only in HEADER section of the DXF file). 10 Primary X coordinate (start point of a Line or Text entity, center of a Circle, etc.). 11-18 Other X coordinates. 20 Primary Y coordinate. 2n values always correspond to 1n values and immediately follow them in the file. 21-28 Other Y coordinates. 30 Primary Z coordinate. 3n values always correspond to 1n and 2n values and immediately follow them in the file. 31-37 Other Z coordinates. 38 This entity's elevation if nonzero (fixed). Output only if system variable FLATLAND is set to 1. 39 This entity's thickness if nonzero (fixed). 40-48 Floating-point values (text height, scale factors, etc.). 49 Repeated value - multiple 49 groups may appear in one entity for variable length tables (such as the dash lengths in the LTYPE table). A 7x group always appears before the first 49 group to specify the table length. 50-58 Angles. 62 Color number (fixed). 66 "Entities follow" flag (fixed). 70-78 Integer values, such as repeat counts, flag bits, or modes. 210, 220, 230 X, Y, and Z components of extrusion direction. 999 Comments |
DXF Viewer
1 de.caff DXF viewer in Java
DXF를 읽어오는 모듈을 정리
과거 동적배열로 된 변수들을 Generic.List와 Generic.Dictionary로 변경하였다. 파일 읽는 시간이 놀랍게 줄었다. 리스트와 딕셔너리도 마치 동적배열처럼 사용할 수 있다.
1 2 3 4 |
'옛날 코드 Dim DXFEntities() As SV_DXFEntity ReDim Preserve DXFEntities(k) DXFEntities(k) = New SV_DXFEntity |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
'개체 클래스 Public Class SV_DXFEntity Private m_Type As String '자료명 Private m_CodeValue As Generic.Dictionary(Of Integer, String) ' Public Sub New() m_CodeValue = New Generic.Dictionary(Of Integer, String) End Sub Default Public Property CodeValue(ByVal groupCode As Integer) As String Get Return m_CodeValue(groupCode) End Get Set(ByVal value As String) m_CodeValue(groupCode) = value End Set End Property Public Property Type() As String Get Return m_Type End Get Set(ByVal value As String) m_Type = value End Set End Property Public Sub Add(ByVal myCode As Integer, ByVal myValue As String) If m_CodeValue.ContainsKey(myCode) Then Exit Sub m_CodeValue.Add(myCode, myValue) End Sub End Class |
1 2 |
'엔티티를 원소로하는 리스트 선언 Dim DXFEntities As Generic.List(Of SV_DXFEntity) |
AutoCAD Release 12 DXF Format
AutoCAD R12의 DXF 형식에 대한 모든 설명이 있는 문서를 여기에서 찾을 수 있다.더 많은 여러가지 정보는 여기에서 찾을 수 있다. DXF, Revision 10 3차원 모델을 위한 최소한의 DXF