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