Yazı Açısını Aktarma Makrosu ( Text Angle Transfer Macro )

Yazı Objelerinin Açısını Kolayca Eşitleyin: Netcad VBScript ile Hızlı Çözüm 🚀

Easily Align Text Angles: Fast Solution with Netcad VBScript 🚀

Bu makro, Netcad ortamında bir yazı objesinin açısını seçilen diğer yazı objelerine aktarmak için kullanılır. Kullanıcı, öncelikle bir referans yazı objesi seçer ve bu objenin açısı hafızaya alınır. Ardından, diğer yazı objeleri seçilerek bunların açıları, referans objenin açısıyla eşleştirilir. Bu işlem, projelerde yazıların hizalı ve düzenli görünmesini sağlamak için oldukça pratiktir. Özellikle harita, plan veya teknik çizimlerde yazıların açısını standartlaştırmak isteyen kullanıcılar için zaman tasarrufu sağlar. Makro, seçim işlemini anlık olarak gerçekleştirir ve objeleri kendi renkleriyle yeniden çizer. 🗺️

This macro is used in the Netcad environment to transfer the angle of a selected text object to other selected text objects. The user first selects a reference text object, and its angle is stored in memory. Then, other text objects are selected, and their angles are matched to the reference object’s angle. This process is highly practical for ensuring aligned and uniform text in projects. It saves time, especially for users working on maps, plans, or technical drawings who need to standardize text angles. The macro performs selections instantly and redraws objects in their original colors. 🗺️

Makro, Netcad’in VBScript tabanlı makro sistemini kullanarak çalışır. İlk adımda, kullanıcı bir yazı objesi seçer ve bu objenin açısı (b.angle) hafızaya alınır. Daha sonra, kullanıcı diğer yazı objelerini seçer ve her seçilen objenin açısı, hafızadaki referans açıyla değiştirilir. Makro, SelectObjectInstant fonksiyonu ile anlık seçim yapar ve seçilen objeleri işler. İşlem tamamlandığında, objeler kendi renkleriyle yeniden çizilir (DrawObject). Makro, seçim ve işlem döngüsünü (while-wend) kullanarak birden fazla objeyi hızlıca işler. Bellek yönetimi için kullanılan objeler (ss, b, h) işlem sonunda temizlenir (set … = nothing). Bu, makronun hem hızlı hem de güvenli çalışmasını sağlar. 🔄

The macro operates using Netcad’s VBScript-based macro system. In the first step, the user selects a text object, and its angle (b.angle) is stored in memory. Then, the user selects other text objects, and each selected object’s angle is updated to match the reference angle. The macro uses the SelectObjectInstant function for instant selections and processes the selected objects. Once processed, objects are redrawn in their original colors (DrawObject). The macro uses a while-wend loop to handle multiple objects quickly. For memory management, objects (ss, b, h) are cleared (set … = nothing) at the end, ensuring the macro runs efficiently and safely. 🔄

Türkçe

İngilizce

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
 set ss = .NewSelectStatus ' Anlik Secim objesi yarat
 .SelectObjectInstant "Seçtiğiniz objenin içindeki yazının açısı hafızaya alınacak. [SAGULCAD]",1,array(otext),ss
 set b= ss.objects(0) 'Biçimleri b objesine ata


 while .SelectObjectInstant("Hafızaya alınan yazının açısı seçtiğiniz yazının açısı ile değiştirilecek. Seçtiğiniz yazı objelerin açısı " & b.angle & "  olacak" ,1,array(otext),ss) ' obje sec
 set h = ss.objects(0) ' Secim objesinin ilk objesini al
 h.angle=b.angle

 .PutObject ss.indexs(0), h ' objeyi geri koy
 .DrawObject h,-1 ' kendi rengi ile ciz
 wend


 set ss = nothing
 set b = nothing
 set h = nothing
 end with
 
END SUB

netcad-yazi-acisini-aktarma