Yazı Objesi Genişliği Ayarlama Makrosu (Text Object Width Adjustment Macro)

Yazı Objesi Genişliğini Kolayca x.00 Yapın: Netcad VBScript Makrosu ile Hızlı Çözüm 🚀

Easily Set Text Object Width to 1.00: Fast Solution with Netcad VBScript Macro 🚀

Bu makro, Netcad ortamında seçilen bir yazı objesinin genişliğini (wsc) 1.00 değerine ayarlamak için kullanılır. Kullanıcı, makroyu çalıştırdığında, bir yazı objesi seçer ve bu objenin genişlik ayarı otomatik olarak 1.00 olarak güncellenir. Makro, seçilen objenin biçimlerini korur ve yalnızca genişlik değerini değiştirir. Netcad kullanıcıları için hızlı ve pratik bir çözüm sunar, özellikle çizimlerde yazı boyutlarını standartlaştırmak isteyenler için idealdir. Bu işlem, manuel ayarlamalara gerek kalmadan tek bir tıkla tamamlanır. 🛠️

This macro is used to set the width (wsc) of a selected text object to 1.00 in the Netcad environment. When the macro is executed, the user selects a text object, and its width is automatically updated to 1.00. The macro preserves the object’s other formatting properties and only modifies the width. It offers a fast and practical solution for Netcad users, especially for those looking to standardize text sizes in drawings. The process is completed with a single click, eliminating the need for manual adjustments. 🛠️

Makro, Netcad’in VBScript dilinde yazılmıştır ve aşağıdaki adımları takip eder:

1. Seçim Objesi Oluşturma: NewSelectStatus komutu ile anlık bir seçim objesi (ss) oluşturulur.
2. Yazı Objesi Seçimi: Kullanıcıya bir yazı objesi seçmesi için bir istem sunulur (SelectObjectInstant).
3. Objenin Biçimlerini Alma: Seçilen objenin biçimleri b değişkenine atanır.
4. Genişlik Ayarı: b.wsc = 1 komutu ile objenin genişlik değeri 1.00 olarak ayarlanır.
5. Objeyi Güncelleme: PutObject komutu ile değiştirilen obje Netcad ortamına geri kaydedilir.
6. Temizlik: Kullanılan değişkenler (ss, b, h) bellekten temizlenir.

Makro, yalnızca yazı objeleri üzerinde çalışır ve diğer obje türlerini etkilemez. Kullanımı kolaydır ve Netcad’in arayüzü ile tam uyumludur. ⚙️

*The macro is written in Netcad’s VBScript language and follows these steps:

1. Creating a Selection Object: A temporary selection object (ss) is created using the NewSelectStatus command.
2. Text Object Selection: The user is prompted to select a text object (SelectObjectInstant).
3. Retrieving Object Properties: The selected object’s properties are assigned to the b variable.
4. Width Adjustment: The b.wsc = 1 command sets the object’s width to 1.00.
5. Updating the Object: The PutObject command saves the modified object back to the Netcad environment.
6. Cleanup: Used variables (ss, b, h) are cleared from memory.

The macro works exclusively on text objects and does not affect other object types. It is user-friendly and fully compatible with Netcad’s interface. ⚙️*

Türkçe Etiketler:

Netcad makro, yazı objesi, genişlik ayarı, VBScript, otomasyon, çizim standartlaştırma, Netcad otomasyon, yazı düzenleme, CAD makro, hızlı çözüm, Netcad script, teknik çizim, yazı formatlama, VBScript makro, çizim optimizasyonu, Netcad kullanıcıları, makro programlama

Netcad macro, text object, width adjustment, VBScript, automation, drawing standardization, Netcad automation, text editing, CAD macro, fast solution, Netcad scripting, technical drawing, text formatting, VBScript macro, drawing optimization, Netcad users, macro program

📝 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.",1,array(otext),ss
 set b= ss.objects(0) 'Biçimleri b objesine ata
 b.wsc =1
 .PutObject ss.indexs(0), b ' objeyi geri koy
' .DrawObject h,-1 ' kendi rengi ile ciz (Bu satır yorum satırıdır, aktif değildir)
 set ss = nothing
 set b = nothing
 set h = nothing
 end with
END SUB

netcad-yazi-genislik-degistir