Yazı Boyutu Değiştirme Makrosu (Text Size Modification Macro)

Seçilen Yazı Boyutunu Hızla 2.00 Yapın: Netcad VBScript ile Kolay Çözüm

Quickly Set Selected Text Size to 2.00: Easy Solution with Netcad VBScript

Bu makro, Netcad ortamında seçilen metin objesinin yazı boyutunu hızlı ve pratik bir şekilde 2.00 birime ayarlar. Kullanıcı dostu bir arayüzle, seçilen metnin boyutunu değiştirmek için anlık seçim objesi oluşturur ve işlemi sorunsuz gerçekleştirir. Özellikle harita çizimlerinde veya teknik projelerde metin boyutlarını standartlaştırmak isteyen kullanıcılar için ideal bir araçtır. 🛠️

This macro quickly sets the text size of a selected text object in Netcad to 2.00 units. It creates an instant selection object with a user-friendly interface and performs the operation seamlessly. It’s an ideal tool for users looking to standardize text sizes in map drawings or technical projects.

Anlık Seçim Objesi Oluşturma: Makro, Netcad ortamında bir metin objesi seçmenizi sağlar ve seçilen objeyi işlemek için bir seçim objesi (ss) oluşturur.

Metin Boyutu Ayarlama: Seçilen metin objesinin boyutunu (sc) 2.00 birime ayarlar.

Objeyi Geri Yükleme: Değiştirilen metin objesi, Netcad çizim alanına geri yerleştirilir.

Temizlik: Kullanılan objeler (ss, b, h) bellekten temizlenir, böylece makro kaynak tüketimini optimize eder.

Instant Selection Object Creation: The macro prompts you to select a text object in Netcad and creates a selection object (ss) to process it.

Text Size Adjustment: It sets the size (sc) of the selected text object to 2.00 units.

Object Restoration: The modified text object is placed back into the Netcad drawing area.

Cleanup: Used objects (ss, b, h) are cleared from memory, optimizing resource usage.

Türkçe

İngilizce

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
dim de

de=2.00
 set ss = .NewSelectStatus ' Anlik Secim objesi yarat
 .SelectObjectInstant "Seçtiğiniz objenin içindeki yazı boyu " & de & " olacaktır",1,array(otext),ss
 set b= ss.objects(0) 'Biçimleri b objesine ata

 b.sc = de
 
 .PutObject ss.indexs(0), b ' objeyi geri koy
' .DrawObject h,-1 ' kendi rengi ile ciz
 
 set ss = nothing
 set b = nothing
 set h = nothing
 end with
 
END SUB

netcad-yazi-boy-ayarla