AutoCad dosyasından "rotated dimension" okuma gereksinimi duyduğunuz aşağıdaki kod size yardımcı olabilir.
Netle DocHuman uygulamasında, doküman yönetimi motorunda özelleşebilen kod satırlarına örnek olarak eklenmiştir.
Dim app As New AutoCAD.AcadApplication
Dim doc As AcadDocument
Dim blok1 As AcadBlock
Dim e1
Dim e2
Set doc = app.Documents.Open("C:\autocaddemo\ornek.dwg")
Set blok1 = doc.Blocks(0)
Set e1 = blok1.Item(4)
Set e2 = blok1.Item(5)
MsgBox "rotated dimension measurement - 1 : " & e1.Measurement
MsgBox "rotated dimension measurement - 2 : " & e2.Measurement
doc.Close False
Set doc = Nothing
app.Quit
Set app = Nothing
bu kod excel macro ortamında geliştirilmiştir ve Autocad için gerekli olacak tür kütüphaneleri referans olarak eklenmiştir.
Netle DocHuman uygulamasında, doküman yönetimi motorunda özelleşebilen kod satırlarına örnek olarak eklenmiştir.
Dim app As New AutoCAD.AcadApplication
Dim doc As AcadDocument
Dim blok1 As AcadBlock
Dim e1
Dim e2
Set doc = app.Documents.Open("C:\autocaddemo\ornek.dwg")
Set blok1 = doc.Blocks(0)
Set e1 = blok1.Item(4)
Set e2 = blok1.Item(5)
MsgBox "rotated dimension measurement - 1 : " & e1.Measurement
MsgBox "rotated dimension measurement - 2 : " & e2.Measurement
doc.Close False
Set doc = Nothing
app.Quit
Set app = Nothing
bu kod excel macro ortamında geliştirilmiştir ve Autocad için gerekli olacak tür kütüphaneleri referans olarak eklenmiştir.