Ana içeriğe atla

Kayıtlar

Temmuz, 2012 tarihine ait yayınlar gösteriliyor

AutoCad dosyasından boyut okuma örneği

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.