일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
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 |
- split line
- 스타트업
- qgis server
- 앱개발
- khaiii
- nifi
- qgis 설치
- PyQGIS
- ogrinfo
- autocad
- mapmatching
- ODField
- QGIS
- pgrouting
- ODTable
- QGIS3
- pbf
- 서비스
- 도로명주소일일업데이트
- QgsRubberBand
- 아이디어
- Circle
- keypressed
- graphhopper
- pluginbuilder
- kmoran
- 편집지적
- Polyline
- 안드로이드
- qgis linux
- Today
- Total
개발자 이야기
[VBA] Entity 속성 조회 본문
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).ODTables
layername = ent.Layer
For Each tbl In tbls
If tbl.name = "Default_" & layername Then
Set odrecrds = tbl.GetODRecords
odrecrds.init ent, True, False
Set odrecrd = odrecrds.record
Set fieldds = tbl.ODFieldDefs
count = fieldds.count
For i = 0 To count - 1
Set fieldd = fieldds.Item(i)
Set fieldv = odrecrd.Item(i)
Debug.Print i & ")" & fieldd.name & ": " & fieldv.Value
Next
End If
Next
End Sub
'GIS > CAD' 카테고리의 다른 글
Circle to polyline (0) | 2019.09.04 |
---|---|
Arc to Polyline (0) | 2019.09.04 |
Change the alignment of AcadText (0) | 2019.08.09 |
Beginner's pitfalls (0) | 2019.08.07 |
AutoCad Entity (0) | 2019.07.11 |