Makro Hakkında:

  • Seçilen bir yazının bulunduğu tabakadaki tüm yazıların açılarını girilen değer kadar değişmesine yarar.
  • 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, açı değiştir, yazı açısı değiştir

Uyarılar:

  • Yapılan işlemde önceki açılar korunmayacaktır.
  • Açılar Grad Cinsindendir.
  • Bu işlem tüm projenizdeki yazılara 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
with netcad
Dim obj
dim selection
Dim BD
dim item



set BD = Netcad.NewBDialog("Yazıların Açısını Değiştirme,[Harita Akademi, Şaban GÜL]")

BD.Getfloat "item","Dönüklük Açısını Giriniz",0,1
 ' BD.Getradio "item1","Tanımlı Açı seçebilirsiniz","Yukarıdaki Açı|0|50|100|150|200|250|300|350|400" ,0



if BD.showmodal then

set selection = .NewSelectStatus

while .SelectObjectInstant("Dönecek Yazının Tabakasını Tanımlamak için bir tanesini seçiniz ",1,array(),selection)
 set obj = selection.objects(0)
 .DrawObject obj,blue



.SetFilter nothing, array(obj.tabaka), array()

do

set obj=.getnextobject

if obj is nothing then

exit do

end if

obj.angle = (BD.ValueByName("item"))*0.015707962
 .PutObject .CurObjPos, obj

loop

.resetfilter

wend

end if

.netcadcommand("REGEN")




end with

end sub

One response

  1. Tek tıklama ile yazıyı 90 derece döndürme makrosu mümkün müdür, röleve hazırlarken pek lazım oluyor da.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.