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