Yazı Özelliklerini Kopyalama ve Uygulama Makrosu (Copy and Apply Text Properties Macro)

📝 Netcad ile Yazı Özelliklerini Kolayca Kopyalayın ve Uygulayın: Hızlı ve Pratik Makro Çözümü

📝 Copy and Apply Text Properties in Netcad: Fast and Practical Macro Solution

Bu makro, Netcad ortamında bir metin nesnesinin (text) italik, alt çizgi ve font gibi biçim özelliklerini başka bir metin nesnesine kopyalamak ve uygulamak için tasarlanmıştır. Kullanıcı dostu bir arayüzle, önce bir metin nesnesinin özelliklerini hafızaya alır, ardından seçilen diğer metin nesnelerine bu özellikleri uygular. Zaman tasarrufu sağlar, manuel düzenlemeleri ortadan kaldırır ve projelerde tutarlılık sunar. Özellikle büyük projelerde birden fazla metin nesnesinin biçimini eşitlemek için idealdir. 🚀

This macro is designed to copy and apply formatting properties such as italic, underline, and font from one text object to another in the Netcad environment. With a user-friendly interface, it first stores the properties of a text object in memory and then applies them to other selected text objects. It saves time, eliminates manual editing, and ensures consistency in projects. Ideal for standardizing text formatting in large projects. 🚀

Makro, Netcad ortamında çalışır ve VBScript ile yazılmıştır. İlk olarak, kullanıcıdan bir metin nesnesi seçmesini ister ve bu nesnenin biçim özelliklerini (italik, alt çizgi, font vb.) hafızaya kaydeder. Ardından, kullanıcı başka bir metin nesnesi seçtiğinde, hafızadaki biçim özellikleri bu yeni nesneye uygulanır. İşlem, seçilen nesneye özgü renk ve diğer özellikler korunarak gerçekleştirilir. Kullanıcı, istediği kadar metin nesnesine bu özellikleri uygulamaya devam edebilir. Makro, seçim işlemi tamamlanana kadar döngü içinde çalışır ve sonunda tüm nesneleri temizler. Bu, hızlı ve hatasız bir biçimlendirme sağlar. 🛠️

The macro operates in the Netcad environment and is written in VBScript. It first prompts the user to select a text object and stores its formatting properties (italic, underline, font, etc.) in memory. Then, when the user selects another text object, the stored properties are applied to it. The process preserves the original color and other properties of the selected object. The user can continue applying these properties to as many text objects as needed. The macro runs in a loop until the selection process is complete and cleans up all objects afterward. This ensures fast and error-free formatting. 🛠️

NetcadMakro ,YazıBiçimlendirme ,VBScript ,CADOtomasyon ,MetinKopyalama ,MakroProgramlama ,NetcadOtomasyon ,YazıÖzellikleri ,CADYazılım ,OtomasyonÇözümleri ,MetinDüzenleme ,VBScriptKod ,NetcadKullanıcıları ,CADMakro ,YazıFormatlama

NetcadMacro ,TextFormatting ,VBScript ,CADAutomation ,TextCopy ,MacroProgramming ,NetcadAutomation ,TextProperties ,CADSoftware ,AutomationSolutions ,TextEditing ,VBScriptCode ,NetcadUsers ,CADMacro ,TextStyling

📝 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 italik,altçizgi ve fon özellikleri 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 italik, altçizgi ve fon özellikleri seçtiğiniz yazının özellikleri ile değiştirilecek. " ,1,array(otext),ss) ' obje sec
 set h = ss.objects(0) ' Secim objesinin ilk objesini al
 h.flags=b.flags

 .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-ozelligi-digerine-aktar