Yazı Objesi Açısını Değiştirme Makrosu (Change Text Object Angle Macro)

Yazı Objelerinin Açısını Kolayca Düzenleyin: Netcad VBScript Makrosu ile Hızlı Çözüm 🚀

Easily Adjust Text Object Angles: Fast Solution with Netcad VBScript Macro 🚀

Bu makro, Netcad ortamında seçtiğiniz yazı objesinin açısını hızlı ve kolay bir şekilde değiştirmenizi sağlar. Kullanıcı dostu bir arayüzle, seçilen yazı objesinin açısına varsayılan bir değer (örneğin 0 derece) ekler veya bu değeri özelleştirmenize olanak tanır. Netcad projelerinizde yazıların yönünü düzenlemek için pratik bir çözüm sunar. Özellikle harita düzenlemeleri, etiket yerleştirmeleri veya teknik çizimlerde yazı açılarını hizalamak için idealdir. 🗺️

This macro allows you to quickly and easily change the angle of a selected text object in the Netcad environment. With a user-friendly interface, it adds a default value (e.g., 0 degrees) to the angle of the selected text object or allows you to customize this value. It offers a practical solution for adjusting text orientations in your Netcad projects. It is ideal for map editing, label placement, or aligning text angles in technical drawings. 🗺️

Seçim Aşaması: Makro çalıştığında, Netcad ortamında yalnızca yazı objelerini seçmenize olanak tanıyan bir seçim penceresi açılır. Açı Değiştirme: Seçtiğiniz yazı objesinin mevcut açısına, makroda tanımlı sagul değeri (varsayılan olarak 0) eklenir. Bu değeri kod içerisinde değiştirebilirsiniz. Güncelleme: Yeni açı değeri, seçilen yazı objesine uygulanır ve obje Netcad ekranında güncellenir. Temizlik: İşlem tamamlandıktan sonra seçim ve biçim objeleri bellekten temizlenir, böylece sistem performansı korunur.
Bu makro, Netcad kullanıcılarının yazı düzenlemelerini hızlandırmak için tasarlanmıştır ve teknik çizimlerde büyük kolaylık sağlar. ⚙️

Selection Phase: When the macro runs, a selection window opens, allowing you to select only text objects in the Netcad environment.
Angle Adjustment: The predefined sagul value (default is 0) is added to the current angle of the selected text object. You can modify this value in the code.
Update: The new angle value is applied to the selected text object, and the object is updated on the Netcad screen.
Cleanup: After the process is complete, selection and format objects are cleared from memory, ensuring system performance is maintained.
This macro is designed to streamline text adjustments for Netcad users, providing significant convenience in technical drawings. ⚙️

Netcad makro, yazı açısı değiştirme, VBScript makro, harita düzenleme, teknik çizim, Netcad otomasyon, yazı hizalama, Netcad script, mühendislik çizim, CAD otomasyon

Netcad macro, text angle adjustment, VBScript macro, map editing, technical drawing, Netcad automation, text alignment, Netcad script, engineering drawing, CAD automation

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
SUB Main
DIM ss,b,h
with netcad
dim de
sagul=0 ' Varsayılan açı ekleme değeri 
set ss = .NewSelectStatus ' Anlık seçim objesi yarat
.SelectObjectInstant "Seçtiğiniz Yazı Objesinin Açısına " & sagul & " eklenecektir",1,Array(otext),ss ' Sadece yazı objelerini seçer
set b= ss.objects(0) ' Seçilen yazı objesinin biçimlerini b objesine ata
b.angle = sagul ' Yazı objesinin açısına de değerini ekle
.PutObject ss.indexs(0), b ' Yazı objesini geri koy
set ss = nothing ' Seçim objesini temizle
set b = nothing ' Biçim objesini temizle
set h = nothing ' Yardımcı objeyi temizle
end with
END SUB

netcad-yazi-aci-ayarla