Yazı objesini Değiştirme Makrosu (Text Replacement Macro for Objects)

Netcad’de Yazı objesini Hızlıca Değiştirin: Kolay ve Etkili Yöntem 💡

Quickly Replace Text Object in Netcad: Easy and Effective Method

Bu makro, Netcad yazılımında seçilen bir objenin içindeki yazıyı hafızaya alır ve başka bir objenin yazısını bu hafızaya alınan yazıyla değiştirir. Özellikle CAD projelerinde, birden fazla yazı objesini hızlıca güncellemek isteyen kullanıcılar için büyük kolaylık sağlar. Kullanıcı dostu bir arayüzle, seçilen objelerin yazı içeriğini anında değiştirir ve objeleri kendi renkleriyle yeniden çizer. Bu işlem, projelerdeki metin düzenlemelerini hızlandırır ve hataları en aza indirir. 🛠️

This macro captures the text from a selected object in Netcad and replaces the text of another selected object with the stored text. It’s a huge time-saver for CAD users who need to update multiple text objects quickly. With a user-friendly interface, it instantly updates text content and redraws objects in their original colors, Ascertainly, this process speeds up text edits in projects and minimizes errors.

Makro, Netcad ortamında çalışır ve aşağıdaki adımları izler:

• İlk olarak, kullanıcıdan bir yazı objesi seçmesi istenir. Bu objenin içeriği hafızaya alınır.
• Ardından, kullanıcıdan başka bir yazı objesi seçmesi istenir. Bu objenin yazısı, hafızaya alınan yazıyla değiştirilir.
• Değiştirilen obje, kendi orijinal rengiyle yeniden çizilir.
• İşlem, kullanıcı yeni bir obje seçmeye devam ettiği sürece tekrarlanır.
• Makro, seçim ve obje yönetimi için Netcad’in NewSelectStatus fonksiyonunu kullanır ve bellek temizliği için objeleri serbest bırakır.
• Bu makro, özellikle büyük projelerde metin güncellemelerini kolaylaştırır ve zaman tasarrufu sağlar. 🎯

The macro runs in the Netcad environment and follows these steps:

• Prompts the user to select a text object, storing its content in memory.
• Asks the user to select another text object, replacing its text with the stored content.
• Redraws the modified object in its original color.
• Repeats the process as long as the user continues selecting objects.
• Uses Netcad’s NewSelectStatus function for selection and object management, and frees objects for memory cleanup.
• This macro simplifies text updates in large projects, saving significant time.

NetcadMakro, YazıDeğiştirme, CADOtomasyon, Verimlilik, MakroKodu, ObjeDüzenleme, NetcadYazılım, OtomasyonAraçları, CADVerimliliği, YazıGüncelleme, NetcadMacro,

TextReplacement, CADAutomation, Productivity, MacroCode, ObjectEditing, NetcadSoftware, AutomationTools, CADProductivity, TextUpdate

📝 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ı 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ı seçtiğiniz yazıyla değiştirilecek. Seçtiğiniz yazı objelerin adı " & b.s & "  olacak [ SagulCAD ]" ,1,array(otext),ss) ' obje sec
 set h = ss.objects(0) ' Secim objesinin ilk objesini al
 h.s=b.s

 .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-secilen-yazi-adini-digerlerine-aktar