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

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