14.11.2007 16:30

29569    

Daha önceden istanbullu61 adlı üyenin isteği üzerine bi lisp yazmıştım. İkinci lisp sanırım istediğinizi karşılar. Aşağıdaki linkten inceleyebilirsiniz.

Lispi incelemek için tıklayın

admin (09.02.2009 21:40 GMT)

08.09.2008 12:41

41024    

arkadaşlar ide autocad cevirdiğimizde bazı karekterler '?' haline geliyor bunu nasıl duzeltebilirim

11.03.2009 09:49

47224    

Aşağıdaki lispi uyguladıktan sonra yazı fontunu arial yaparsanız sorun düzelecektir.

(defun c:mn(/ ob n ename elist yaz uz kar ek dummy i j duzsay karakterset)
(setq secenek (getint "\nKarakter seti (1-Netcad,2-Microstation) <1>?"))
(if (not secenek) (setq secenek 1))
(if (= 1 secenek)
(setq karakterset (list (list 128 "Ç")
(list 129 "ü")
(list 135 "ç")
(list 141 "ı")
(list 148 "ö")
(list 152 "İ")
(list 153 "Ö")
(list 154 "Ü")
(list 158 "Ş")
(list 159 "ş")
(list 166 "Ğ")
(list 167 "ğ")
)
karlist (list 128 129 135 141 148 152 153 154 158 159 166 167)
)
(setq karakterset (list
(list 38 "ö") ; &
(list 60 "ç") ; <
(list 62 "Ç") ; >
(list 64 "Ö") ; @
(list 91 "ı") ; [
(list 92 "ş") ; \
(list 93 "ü") ; ]
(list 96 "ğ") ; `
(list 123 "İ") ; {
(list 124 "Ş") ; |
(list 125 "Ü") ; }
(list 126 "Ğ") ; ~
)
karakterset1 (list
(list 38 "ö") ; &
(list 60 "ç") ; <
(list 62 "Ç") ; >
(list 64 "Ö") ; @
(list 91 "i") ; [
(list 92 "s") ; \
(list 93 "ü") ; ]
(list 96 "g") ; `
(list 123 "i") ; {
(list 124 "S") ; |
(list 125 "Ü") ; }
(list 126 "G") ; ~
)

karlist (list 60 62 64 91 92 93 96 123 124 125 126)
)
);_if
(princ "\nTürkçe karakterleri düzeltilecek yazıları seçiniz..")
(if (setq ob (ssget "X" '((0 . "TEXT"))))
(progn
(setq n (sslength ob) i 0 j 1 duzsay 0 dummy "")
(repeat n
(setq ename (ssname ob i)
elist (entget ename)
yaz (cdr (assoc 1 elist))
uz (strlen yaz)
)
(repeat uz
(setq kar (ascii (substr yaz j 1)))
(setq ek (if (member kar karlist) (cadr (assoc kar karakterset)) (substr yaz j 1)))
(setq dummy (strcat dummy ek))
(setq j (+ 1 j))
);repeat
(setq elist (subst (cons 1 dummy) (assoc 1 elist) elist))
(entmod elist)
(if (/= yaz dummy) (progn (princ (strcat yaz " -> " dummy "\n")) (setq duzsay (1+ duzsay))))
(setq dummy "" j 1)

(setq i (+ 1 i))
);repeat
(princ (strcat (itoa n) " tane TEXT incelendi. " (itoa duzsay) " tanesi düzeltildi.")) (princ)
));_if
);defun
(princ "\n[mn] komutuyla çalışır.Çizimde yanlış görünen Türkçe karakterleri düzeltir.")
(princ)


(Alıntıdır)

kurtsalih (23.11.2010 10:18 GMT)

16.03.2011 09:53

63372    

Arkadaşlar ben de böyle bir sorun var. microstation ile dosyaları autocad e çevirdim. micro station da da türkçe karakterler hepsinin yerinde sadece * var. autocade de aynı şekilde geçti. bunu çözmenin bir yolunu bilen var mı acaba? şimdiden teşekkürler.

10.02.2012 15:16

67850    

bu sorunu lisp ile çözmek yerine komut girerek çözme şansımız var mı? bu konu ile ilgili yardımcı olabilecek birileri varsa çok makbule geçer. şimdiden herkese teşekkürler.