AutoCAD'den EXCEL'e bilgi transferi

[rocktuel]

Benim de üç sorum olacak...
1- Planlarımızda, paftanın bir köşesinde MAHAL LİSTESİ ve her mahalin karşısında ALAN BİLGİSİ var... Bu MAHAL LİSTESİ ve ALAN BİLGİSİNİ bir excel dosyası içine nasıl TEXT olarak alabilirim... Teker teker COPY PASTE yapacak durumda değilim...

2- Bir biçimde bu bilgileri etkileşimli olarak alabilir miyim? Projede "Mahal Adı" ve/veya "Alan Bilgisi" değiştiğinde EXCEL'de de değişecek biçimde... Bunun için ek bir yazılım mı yüklemek gerekiyor?

3- Daha da ileri gideyim.. Bir LAYER açarak o layerda göstereceğim (mahalleri sınırlayan) POLYLINE çerçevelerin ALAN ve ÇEVRE bilgisini EXCEL'de oluşturacağım tabloya bilgi olarak etkileşimli olarak iliştirebilir miyim?

[omr]

vba yazilabilir.
bu konuyla ilgili daha once link vermistim, ingilizce olduğu için hafif bir itiraz olmuştu.
fakat gercekten cok net yazilmis ve ingilizce cok iyi bilinmese bile benim burda anlatacagimdan daha anlasilir olacaktir.
neyse en azından bu başlık altında da bulunsun:
http://usa.autodesk.com/adsk/servlet...linkID=2475176

aslinda bu soru icin butun 6 makaleyi okumaya gerek yok.
autocad devamli gelisiyor ve makro gerektirmeyen bir yol belki vardir, fakat bulunamazsa ben vba konusunda foruma biseyler yazabilirim.

[omr]

'Gene bu baslik altinda dursun diye bir giris yaziyorum.
'kendi notlarimi da forumda tutmus olurum
' bu isaretten (kesme isareti) sonra yazilanlar "comment"(yorum) olup
'programi etkilemez. butun yaziyi copy-paste edebilirsiniz yani.
'AutoCadde alt F11, ya da Tools->Macro->Visual Basic Editor
'secip editore gelinir.
'Editorde:
'Yukaridaki menuden Tools->references ile excel kutusu isaretlenmelidir.
'Yukardaki menuden Insert-> module ile
'yazmaya baslanir.
'ayrintilara, baska yontemlere girmiyorum,
'"sub" diyerek modulun ismini yaziyoruz
'basladi:

Sub ExceleYaz()

'dim, dimension, degisken ismi yaratmak icin:

Dim ExApp As Excel.Application

'Exapp adinda degisken yarattim, "as" ile cinsini belirledim.

'bu degiskene deger atiyorum: (set dedim dikkat ediniz)

Set ExApp = GetObject(, "Excel.Application")

'WS adinda bir degisken yaratiyorum:
'((degiskenlerin ismini istediginiz gibi yaziyorsunuz fakat aslinda
'bir usulu vardir; diger programcilar da anlasin diye, ya da bizzat
'kendiniz karistirmayin diye bir standartlasma gelismistir. o konuya
'giremiyorum simdi.))

Dim WS As Excel.Worksheet

'WS ye su anda acik olan excelin acik olan sheetini atayacagim.
'sheetleri isimleriyle, dosyadaki yerleriyle secmeye girmiyorum.

Set WS = ExApp.ActiveSheet()

'sayi adinda bir degisken yarat, integer olsun.

Dim sayi As Integer
sayi = 5

'aa set demedi. evet sayi, text vs. belirlerken denmiyor.

'simdi exceldeki acik sheet'te bir kutuya (a1) sayi gireyim:

WS.Range("a1").Value = sayi

'bu kadar, baska yollari da var

WS.Cells(1, 2).Value = "yazi"
WS.Range("a2:a8").Value = sayi + 1

'gibi...
'excele yazmak boyle.
'fakat yazilacak seyi de belirlemek lazim, oyle degil mi.
'cizimden yazilacak nesneyi almak lazim.
'mimar degilim, yazilmasi
'istenen seyin ne sekilde cizimde bulundugunu anlayamadim.

'bunu editor yaziyor sagolsun:

End Sub

[omr]

'Kisaca ve derli toplu hali bu kadarcik:

Sub ExceleYaz()

Dim ExApp As Excel.Application
Dim WS As Excel.Worksheet
Dim sayi As Integer


Set ExApp = GetObject(, "Excel.Application")
Set WS = ExApp.ActiveSheet()

sayi = 5

WS.Range("a1").Value = sayi
WS.Cells(1, 2).Value = "yazi"
WS.Range("a2:a8").Value = sayi + 1


End Sub