Yazı Açısını 50 Grad Artıran Makro(Text Angle Increment Macro by 50 Grad)

📝 NetCAD ile Yazı Açısını Kolayca 50 Grad Artırın: Pratik Makro Çözümü 🚀

Easily Increase Text Angle by 50 Grad in NetCAD: Practical Macro Solution

Bu makro, NetCAD yazılımında seçilen metin nesnelerinin açısını 50 grad artırarak düzenlemenizi sağlar. 🛠️ Kullanıcı dostu bir şekilde, seçtiğiniz yazıları otomatik olarak algılar, açısını hassas bir şekilde 50 grad artırır ve çizimi yeniler. Özellikle harita, plan veya teknik çizimlerde yazıların yönünü hızlıca ayarlamak için idealdir. Makro, NetCAD’in VBScript dilinde yazılmıştır ve orijinal metin özelliklerini korurken yalnızca açı değişikliğini uygular. Bu sayede, projelerinizde zaman tasarrufu sağlar ve manuel düzenleme zahmetini ortadan kaldırır. 🔄

This macro allows you to increase the angle of selected text objects in NetCAD by 50 grad. 🛠️ It user-friendly detects selected texts, precisely adjusts their angle by 50 grad, and refreshes the drawing. Perfect for maps, plans, or technical drawings, this VBScript-based macro saves time by automating text orientation adjustments while preserving original text properties. 🔄

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

Seçim İşlemi: Kullanıcıdan bir metin nesnesi seçmesi istenir. 📑
Nesne Analizi: Seçilen metnin mevcut açısı alınır ve referans noktası belirlenir.
Açı Dönüşümü: Metnin açısı, grad cinsinden 50 grad artırılarak yeniden hesaplanır. 🔢
Güncelleme: Yeni açı değeri metne uygulanır ve çizim ekranı yenilenir. 🎨
Temizlik: Kullanılan nesneler bellekten silinerek performans optimize edilir. 🗑️
Makro, NetCAD’in komutlarını kullanarak geçici çizim işlemleri yapar ve ekranı yenileyerek sonucu anında gösterir. Kullanımı kolaydır ve teknik çizimlerde sıkça ihtiyaç duyulan bir işlemi otomatikleştirir.

This macro operates within NetCAD and follows these steps:

Selection: Prompts the user to select a text object. 📑
Object Analysis: Retrieves the current angle of the text and determines its reference point.
Angle Transformation: Increases the text angle by 50 grad, recalculated in the appropriate unit. 🔢
Update: Applies the new angle to the text and refreshes the drawing screen. 🎨
Cleanup: Frees up memory by clearing used objects, optimizing performance. 🗑️
The macro uses NetCAD commands to perform temporary drawing operations and refreshes the screen to display results instantly. It’s easy to use and automates a common task in technical drawings.

Türkçe

İngilizce

📝 Netcad NVB Code

Sub Main
Dim ss,oyazi,bd,yazi,orjinal,o,i,index,tabaka,yb,aci,refp
  with Netcad
     set ss = .newselectionset   'Anlık Seçim objesi Oluşturuldu.
     set oyazi=.newobject

    ss.select "Yazıyı Gösteriniz...",array(otext) ' Obje Seçme İşlemi
    for i=0 to ss.ne-1
       'netcad.netcadcommand "REGEN"
    o=ss.getselectedobject(i,oyazi)
    oyazi.flags = 4
   set refp = .newc (0,0,0)
   set refp = .GetTextRefPoint (oyazi)

    .drawobject oyazi,4 '32 ' Seçilen yazıyı geçici olarak silinmiş gibi çiz.
    oyazi.flags=0
    orjinal = oyazi.s
    aci=oyazi.angle

    'set bd = .newbdialog ("Yazı Değiştirme İşlemi")
    '    bd.getstring "yazi","Yazının Metni =",orjinal,100
    '    bd.showmodal

    '    yazi = bd.valuebyname ("yazi")
    'if yazi = "" then yazi=orjinal
    '    oyazi.s = yazi
    aci=aci*63.66197725
    aci = aci + 50 ' Açıya 50 grad ekleniyor
    aci=aci*0.015707963
    oyazi.angle = aci
        .putobject o,oyazi
        .drawobject oyazi,-1
       next
       netcad.netcadcommand "REGEN"
  end with
        ss.redrawandrewind
  set i=nothing
  set o=nothing
  set orjinal = nothing
  set yazi = nothing
  set bd = nothing
  set oyazi = nothing
  set ss = nothing

End Sub

netcad-50grad-ekle