Netcad Projelerinde Türkçe Karakter Sorunu Çözümü

Netcad projesindeki Türkçe Karakter Sorununu Aşağıdaki Makroyu Kullanarak Çözebilirsiniz.

Sub Main
' Şaban GÜL Tarafından Yapılmıştır
Dim i,z
Dim secimkumesi,obje
with Netcad
set secimkumesi = .newselectionset
set obje=.newobject


if secimkumesi.select("Değişecekleri Seçiniz",array()) then

for i=0 to secimkumesi.NE-1
z=secimkumesi.getselectedobject(i,obje)
obje.pname = replace(obje.pname,"Ãœ","Ü")
obje.pname = replace(obje.pname,"Å","Ş")
obje.pname = replace(obje.pname,"Ä","ğ")
obje.pname = replace(obje.pname,"Ç","Ç")
obje.pname = replace(obje.pname,"Ä°","İ")
obje.pname = replace(obje.pname,"Ö","Ö")
obje.pname = replace(obje.pname,"ü","ü")
obje.pname = replace(obje.pname,"ÅŸ","ş")
obje.pname = replace(obje.pname,"ÄŸ","ğ")
obje.pname = replace(obje.pname,"ç","ç")
obje.pname = replace(obje.pname,"ı","ı")
obje.pname = replace(obje.pname,"ö","ö")
obje.pname = replace(obje.pname,"Ÿ","")
obje.pname = replace(obje.pname,"б","ı")
obje.pname = replace(obje.pname,"Ğ°","İ")

obje.s = replace(obje.s,"Ãœ","Ü")
obje.s = replace(obje.s,"Å","Ş")
obje.s = replace(obje.s,"Ä","Ğ")
obje.s = replace(obje.s,"Ç","Ç")
obje.s = replace(obje.s,"Ä°","İ")
obje.s = replace(obje.s,"Ö","Ö")
obje.s = replace(obje.s,"ü","ü")
obje.s = replace(obje.s,"ÅŸ","ş")
obje.s = replace(obje.s,"ÄŸ","ğ")
obje.s = replace(obje.s,"ç","ç")
obje.s = replace(obje.s,"ı","ı")
obje.s = replace(obje.s,"ö","ö")
obje.s = replace(obje.s,"Ÿ","")
obje.s = replace(obje.s,"б","ı")
obje.s = replace(obje.s,"Ğ°","İ")

.putobject z,obje
next
secimkumesi.redrawandrewind

end if

msgbox " İşlem Başarıyla Tamamlandı"
end with
End Sub

Yazar: Şaban GÜL

Amacımız herkese yardımcı olabilmek. Haritacılık ile sınırlı kalmayıp birçok sektöre girmeye RAMAK kaldı :)

2 thoughts on “Netcad Projelerinde Türkçe Karakter Sorunu Çözümü

    süleyman saka

    (2 Mayıs 2020 - 10:53)

    Şaban hocam alan edit yaparken edit yaptığımız alanların yüzölçümlerini gösterir bi makro olabilir mi ?

      Şaban GÜL

      (22 Mayıs 2020 - 09:28)

      Komplike birşey olmaz demiyorum ama uğraşmak gerekir.

süleyman saka için bir cevap yazın Cevabı iptal et

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.