tapu alan toplamlar taslak

Sub Main

with netcad

Dim obj
Dim secim
dim alanobje
dim toplam
dim c
dim yaz
dim yazi
dim a
dim b
dim text

\’ Şaban GÜL , Harita Mühendisi
\’ Sorularınız için sagulnet@gmail.com
\’ www.sabangul.com.tr
\’ Uyarı: Verilen makroları çalıştırmadan önce mutlaka projenizi yedekleyin ve makro çalıştıktan sonra kontrol ediniz.
\’ Makroların çalışması ve ortaya çıkabilecek problemlerden tamamen kullanıcı sorumludur.
\’—————————————————————————————————-
toplam= 0
set secim = .NewSelectStatus()
while .SelectObjectInstant(\”Alanları Seç \”,1,array(opline),secim)

set alanobje = secim.objects(0)

.drawobject alanobje,9
toplam = toplam+(alanobje.tarea)

wend

msgbox \”Toplam Tapu Alanı: \” & toplam & \” m²\”

end with
end sub