Autodesk.autocad.runtime
Autodesk.autocad.applicationservices
Autodesk.autocad.databaseservices
Autodesk.autocad.geometri
<commandmethod("addline")> _
Public sub addline()
“Mevcut belge ve veritabanı alın
dim doc belge olarak = uygulama.documentmanager.mdiactivedocument
dim acurdb as database = acdoc.database
“Bir işlem başlat
İşlem olarak işlem = curdb.transactionmanager.starttransaction()
“Okumak için blok masası açın
dim beblktbl as blocktable
ablktbl = atrans.getobject (accurdb.blocktableid, openmode.forread)
“Çalış masası kayıt modeli alanı yazmak için açın
dim blktblrecord
ablktblrec = actrans.getobject (acblktbl(blocktablerecord.modelspace)
openmode.forwrite)
“5'te başlayan ve 12,3'te sona erecek bir çizgi oluşturmak
dim aline as line = new line(new point3d(5, 5, 0), yeni nokta3d(12, 3, 0))
aline.setdata basedefaults()
“Yeni nesneyi blok tablo kaydına ekleyin ve işlem
Ablktblrec.appendentity (acline)
atrans.addnewlycreateddbobject (acline, true)
“Yeni nesneyi veritabanına kurtarın
atrans.commit()
Son kullanım kullanımı
Sonunda alt alt</commandmethod("addline")>