Yazı Boyuna Değer Ekleme Makrosu (Text Size Increment Macro)

Yazı Boyutunu Artıran NetCAD Makrosu ile Tasarımlarınızı Hızlandırın!

Boost Your Designs with the NetCAD Macro for Increasing Text Size! 🚀

Bu makro, NetCAD ortamında seçilen bir metin objesinin yazı boyutunu hızlı ve pratik bir şekilde artırmanızı sağlar. Kullanıcı tarafından seçilen metin objesinin mevcut yazı boyutuna, tanımlı bir değer (varsayılan olarak 2.00) eklenir. Bu işlem, manuel olarak yazı boyutunu değiştirmek yerine tek bir tıkla otomatik olarak yapılır. Özellikle büyük projelerde, çok sayıda metin objesinin boyutunu düzenlemek için zaman tasarrufu sağlar. Makro, seçilen objenin biçimlerini korurken sadece yazı boyutunu günceller ve NetCAD’in doğal iş akışına uyum sağlar. 🛠️

This macro allows you to quickly increase the text size of a selected text object in the NetCAD environment. It adds a predefined value (default is 2.00) to the current text size of the selected text object. Instead of manually adjusting the text size, this macro automates the process with a single click, saving time, especially in large projects requiring multiple text size adjustments. The macro preserves the object’s formatting while updating only the text size, seamlessly integrating with NetCAD’s workflow. 🛠️

Makro çalıştırıldığında, kullanıcıdan bir metin objesi seçmesi istenir. Seçilen objenin mevcut yazı boyutu (sc) alınır. Yazı boyutuna, makro içinde tanımlı olan 2.00 değeri eklenir. Güncellenen yazı boyutu, seçilen objeye uygulanır ve obje NetCAD çizim alanına geri yerleştirilir. İşlem tamamlandığında, seçilen objenin diğer özellikleri (renk, stil vb.) korunur, sadece yazı boyutu değişir.
Bu makro, NetCAD’in anlık seçim (SelectObjectInstant) ve obje düzenleme (PutObject) fonksiyonlarını kullanarak hızlı bir şekilde çalışır. ⚙️

When the macro is executed, it prompts the user to select a text object.
The current text size (sc) of the selected object is retrieved.
A predefined value of 2.00 is added to the text size.
The updated text size is applied to the selected object, and the object is placed back into the NetCAD drawing area.
Upon completion, the object’s other properties (color, style, etc.) remain unchanged, with only the text size modified.
The macro utilizes NetCAD’s instant selection (SelectObjectInstant) and object editing (PutObject) functions to perform the task efficiently.

NetCAD makro, yazı boyutu artırma, metin düzenleme, CAD otomasyonu, tasarım verimliliği, VBScript makro, NetCAD araçları, metin boyutu değiştirme, proje optimizasyonu, CAD makrolar

NetCAD macro, text size increment, text editing, CAD automation, design efficiency, VBScript macro, NetCAD tools, text size modification, project optimization, CAD macros

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
SUB Main
DIM ss,b,h
with netcad
dim de
de=2.00+1-1
set ss = .NewSelectStatus ' Anlik Secim objesi yarat
.SelectObjectInstant "Seçtiğiniz objenin içindeki yazı boyu " & de & " eklenecektir.",1,array(otext),ss
set b= ss.objects(0) 'Biçimleri b objesine ata
b.sc =  b.sc+de
.PutObject ss.indexs(0), b ' objeyi geri koy
set ss = nothing
set b = nothing
set h = nothing
end with
END SUB

netcad-yazi-boyuna-ekle