Seçilen Alanın Nokta Sayısı ve Ağırlık Merkezinin Gösterimi (Netcad Makro)

Makro Hakkında:

Ekran üzerinden seçilen alanın toplam nokta sayısı, ağırlık merkezi koordinatlarını mesaj olarak gösterir.

Uyarılar:

• Netcad makrolarında hiçbir metni veya karakteri değiştirmeyiniz. Aksi halde makro işlevsiz hale gelebilir veya hatalı işlev ile karşılaşabilirsiniz.

14.02.2024 Tarihli Duyurumuz: Bu sayfadaki makrolarımız 10 yıl önce hazırlanmış olup artık desteklenmemekte ve daha geliştirilmiş versiyonu SAGULCAD modülü ile yine ücretsiz sunulmaktadır. Aşağıda verilen Bağlantılar hala çalışmaktadır fakat en geç 31.12.2025 tarihinde kaldırılması planlanmaktadır. Aynı makroyu SAGULCAD modülü içerisinde bulabileceğinizi unutmayınız. Lütfen aşağıdaki makroları kullanmayınız.

İndirme Linkleri:

İndirme Linki-1: Google Drive ( Harita Akademi )

Makro Açık Kaynak Kodu:

'' www.sabangul.com.tr Web Sayfasından İndirilmiştir
' Şaban GÜL , Harita Mühendisi
' Her Türlü Hata, İstek ve Öneriler İçin 
' haritaakademi@gmail.com veya sagulnet@gmail.com
' adresine durumu anlatan bir e-posta gönderiniz.

Sub Main
 Dim p, i,ToplamY, ToplamX, ToplamZ
 Dim AgMerY, AgMerX, AgMerZ

with Netcad
 set p = .NewPoly
 if .GetPolygon("Kapalı Alan Seç",p) then



for i=0 to p.num-2
 ToplamY= p.cor(i).y + ToplamY
 ToplamX= p.cor(i).x + ToplamX
 ToplamZ= p.cor(i).z + ToplamZ
 next

AgMerY = Round(ToplamY / (p.num-1),3)
 AgMerX = Round(ToplamX / (p.num-1),3)
 AgMerZ = Round(ToplamZ / (p.num-1),3)

msgbox "Toplam Nokta Sayısı = " & p.num-1 & chr(13) & "#Ağırlık Merkezi Koordinatları#" & chr(13) & "Y =" & AgmerY & chr(13) & "X =" & AgMerX & chr(13) & "Z =" &AgMerZ
 end if

set p = nothing
 end with
 End Sub