Alan Obje Adı Türkçe Karakter Dönüşüm Makrosu (Area Object Name Turkish Character Conversion Macro)

NetCAD’de Yazı Objeleri için Türkçe Karakter Hatalarını Düzelten Güçlü Makro ile Verilerinizi Sorunsuz Hale Getirin! 🚀

Fix Turkish Character Errors in Text Objects with This Powerful NetCAD Macro for Seamless Data! 🚀

Bu makro, NetCAD ortamında yazı (otext) objelerinin metin içeriklerinde (s) bulunan Türkçe karakter hatalarını otomatik olarak düzeltmek için tasarlanmıştır. Özellikle veri aktarımı veya farklı sistemler arasında dosya alışverişi sırasında oluşan bozuk Türkçe karakterleri (örneğin, Ãœ yerine Ü, ÅŸ yerine ş) algılar ve doğru Türkçe karakterlerle değiştirir. Yalnızca yazı objelerine odaklanarak, veri kaybı olmadan hızlı ve güvenilir bir düzeltme sağlar.
Karakter Dönüşüm Detayları:

Ğ° → İ

Ãœ → Ü

Å → Ş

Ä → Ğ

Ç → Ç

Ä° → İ

Ö → Ö

ü → ü

ÅŸ → ş

ÄŸ → ğ

ç → ç

ı → ı

ö → ö

б → ı

This macro is designed to automatically correct Turkish character errors in the text content (s) of text (otext) objects in the NetCAD environment. It detects and replaces corrupted Turkish characters (e.g., Ãœ to Ü, ÅŸ to ş) that often occur during data transfers or file exchanges between systems. Focusing solely on text objects, it ensures fast and reliable corrections without data loss.

Character Conversion Details:

Ãœ → Ü
Å → Ş
Ä → Ğ
Ç → Ç
Ä° → İ
Ö → Ö
ü → ü
ÅŸ → ş
ÄŸ → ğ
ç → ç
ı → ı
ö → ö
б → ı
Ğ° → İ

Seçim Kümesi Oluşturma: Kullanıcı, düzeltilmesini istediği yazı objelerini bir seçim kümesi aracılığıyla belirler. Makro, NetCAD’in newselectionset fonksiyonunu kullanır. Yazı Objelerine Odaklanma: Seçilen objeler taranır ve yalnızca otext türünde olanlar işleme alınır. Karakter Dönüşümü: Yazı objelerinin s özelliği (metin içeriği) üzerinde bozuk karakterler, doğru Türkçe karakterlerle değiştirilir. Güncelleme ve Yenileme: Düzeltilen objeler NetCAD veritabanına geri yazılır (putobject). Seçim kümesi yenilenir ve ekran güncellenir (redrawandrewind). Kullanıcı Bildirimi: İşlem tamamlandığında, “İşlem Başarıyla Tamamlandı” mesajı gösterilir.
Makro, toplu düzeltmeler için kullanıcı dostu bir çözüm sunar ve yalnızca yazı objelerine yönelik çalışır.

Selection Set Creation: The user selects the text objects to be corrected via a selection set, using NetCAD’s newselectionset function.
Focus on Text Objects: Selected objects are scanned, and only otext type objects are processed.
Character Conversion: The s property (text content) of text objects is corrected by replacing corrupted characters with proper Turkish characters.
Update and Refresh: Corrected objects are written back to the NetCAD database (putobject). The selection set is refreshed, and the screen is updated (redrawandrewind).
User Notification: A “Process Successfully Completed” message is displayed upon completion.
The macro provides a user-friendly solution for bulk corrections, targeting only text objects.

Türkçe karakter düzeltme, NetCAD makro, yazı objeleri, veri temizleme, karakter dönüşümü, otomasyon, CAD yazılımı, Türkçe karakter hatası, veri düzeltme, NetCAD otomasyon, makro kodları, Türkçe karakter sorunları, veri aktarımı, CAD veri yönetimi, yazı obje optimizasyonu

Turkish character correction, NetCAD macro, text objects, data cleaning, character conversion, automation, CAD software, Turkish character error, data correction, NetCAD automation, macro codes, Turkish character issues, data transfer, CAD data management, text object optimization

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
Dim i,z
Dim secimkumesi,obje
with Netcad
set secimkumesi = .newselectionset
set obje=.newobject
if secimkumesi.select("Türkçe Karakter Hatası Düzelecek Yazı Objelerini Seçiniz. [ SAGULCAD ]",array(otext)) then
for i=0 to secimkumesi.NE-1
z=secimkumesi.getselectedobject(i,obje)
if obje.tag=opoint or obje.tag=opline then
obje.pname = replace(obje.pname,"Ãœ","Ü") ' Büyük Ü dönüşümü
obje.pname = replace(obje.pname,"Å","Ş") ' Büyük Ş dönüşümü
obje.pname = replace(obje.pname,"Ä","ğ") ' Küçük ğ dönüşümü
obje.pname = replace(obje.pname,"Ç","Ç") ' Büyük Ç dönüşümü
obje.pname = replace(obje.pname,"Ä°","İ") ' Büyük İ dönüşümü
obje.pname = replace(obje.pname,"Ö","Ö") ' Büyük Ö dönüşümü
obje.pname = replace(obje.pname,"ü","ü") ' Küçük ü dönüşümü
obje.pname = replace(obje.pname,"ÅŸ","ş") ' Küçük ş dönüşümü
obje.pname = replace(obje.pname,"ÄŸ","ğ") ' Küçük ğ dönüşümü
obje.pname = replace(obje.pname,"ç","ç") ' Küçük ç dönüşümü
obje.pname = replace(obje.pname,"ı","ı") ' Küçük ı dönüşümü
obje.pname = replace(obje.pname,"ö","ö") ' Küçük ö dönüşümü
obje.pname = replace(obje.pname,"б","ı") ' Küçük ı dönüşümü
obje.pname = replace(obje.pname,"Ğ°","İ") ' Büyük İ dönüşümü
end if
if obje.tag=otext then
obje.s = replace(obje.s,"Ãœ","Ü") ' Büyük Ü dönüşümü
obje.s = replace(obje.s,"Å","Ş") ' Büyük Ş dönüşümü
obje.s = replace(obje.s,"Ä","Ğ") ' Büyük Ğ dönüşümü
obje.s = replace(obje.s,"Ç","Ç") ' Büyük Ç dönüşümü
obje.s = replace(obje.s,"Ä°","İ") ' Büyük İ dönüşümü
obje.s = replace(obje.s,"Ö","Ö") ' Büyük Ö dönüşümü
obje.s = replace(obje.s,"ü","ü") ' Küçük ü dönüşümü
obje.s = replace(obje.s,"ÅŸ","ş") ' Küçük ş dönüşümü
obje.s = replace(obje.s,"ÄŸ","ğ") ' Küçük ğ dönüşümü
obje.s = replace(obje.s,"ç","ç") ' Küçük ç dönüşümü
obje.s = replace(obje.s,"ı","ı") ' Küçük ı dönüşümü
obje.s = replace(obje.s,"ö","ö") ' Küçük ö dönüşümü
obje.s = replace(obje.s,"б","ı") ' Küçük ı dönüşümü
obje.s = replace(obje.s,"Ğ°","İ") ' Büyük İ dönüşümü
end if
.putobject z,obje
next
secimkumesi.redrawandrewind
end if
msgbox " İşlem Başarıyla Tamamlandı. "
end with
End Sub