Netcad Objelerinde Kot Sıfırlama (Netcad Makro)

Makro Hakkında:

• Netcad objelerinde kotların sıfırlanmasını sağlar. Yeni eklenen özellikle sabit bir kot değeri atama özelliğide vardır.
• Basit Düzey Makro Sınıfındadır.
• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Bu makroda geliştirmeyi düşündüğümüz herhangi bir algoritma yoktur.
• Etiketler: Basit düzey makro, Netcad, Makro, Pratik Netcad, Netcad Araçları, Netcad tabaka, netcad seçim, Pratik Netcad, Netcadde nasıl yapılır,netcad menü, netcad araç, nvb, ücretsiz makro, harita makro, kot sıfırla, z=0 yapma, z koordinat sıfırla

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.

Uyarılar:

• Yapılan işlemde önceki kot değerleri korunmayacaktır.
• Sabit kot değeri atayarak sıfırlamak yerine farklı bir değer verebilirsiniz.
• Bu işlem tüm projenizdeki objelere uygulanır.
• Bu işlemde geri alma işlemi tek tek yapılmaktadır. Bu nedenle ciddi anlamda yapacağınız değişikliklerde geri alma işleminiz çok uzun sürebilir.
• Bu makroda Kilitli olan tabakalardaki objelerde işlem görecektir. Bu nedenle işlem görmek istemediğiniz tabakaları kilitlemek yerine kapatınız.
• 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.

İ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 i,j,o,p

dim BD
dim sabangul
dim elifyaren
 set BD = Netcad.NewBDialog("Kot Sıfırlama [Harita Akademi, Şaban GÜL]")

BD.GetFloat "sagul1","Sabit Kot Değeri ( Sıfırlamak için 0 Yazınız) ","0" ,3
 BD.Getradio "sagul2","Çoklu Doğrudada Kot Sıfırlama Yapılsınmı ? ","Evet|Hayır" ,1


 
 if BD.showmodal then
 else
 exit sub
 end if



elifyaren= BD.ValueByName("sagul1")



with Netcad
 for i = 0 to .numobject-1
 set o = .getobject(i)





if o.tag = opline then
 set p = .getplineext(o)
 for j = 0 to p.num-1
 p.cor(j).z = elifyaren
 next
 .putplineext o,p
 .putobject i,o
 set p = nothing
 elseif o.tag = oLine and BD.ValueByName("sagul2")=0 then
 o.p1.z = elifyaren
 o.p2.z = elifyaren
 o.p3.z = elifyaren
 .putobject i,o
 end if
 .drawobject o,14
 set o = nothing
 next
 end with
End Sub