Хора, помагайте спешно!

Налице е следния проблем:

Имам голямо количество чертежи, правени на AutoCAD 12 за DOS, всички текстове са на кирилица.
Сега обаче, трябва да преминат във 14ка или най-добре 2000.
Всичко се отваря перфектно, но кирлицата е голяма фира (нищо не се чете).
Трябва ми някакъв туул, или лесен метод, за конвертиране на шрифтовете !
Сиреч DOSовската кирлица да ми стане Window-ска (говорим за шрифтовете в AutoCADa, .DWG формат)

Помощ!

Лошо! Дай някакъв адрес и утре ще ти пратя някои неща, та дано стане. Самодейности разни...

Кажи името на шрифта.


Виждал съм някакво LISP приложение, което преобразува кодовите таблици, ама ха, де - много време мина оттогава.

A be ako samo iskash da si gi gledash, pologhenieto s spasjawa kato polzwash SHX fajl, na kojto kirilskite simwoli sa razpologheni po kodowa tablica za DOS (moghe i s onezi SHX fajlowe, s koito si rabotil pod DOS), obache ako rechesh i da redaktirash tekstowete , bataka ti e garantiran...
Apropo pri towa pologhenie ako iskash da wighdash kirilica, trjabwa Regional Settings na Control Panel-a da ti bade ne na Bulgarian, a na US, inache shte se zadejstwa Unicode-to i shte ti razkatae na DOS kirilicata familijata
Ako sa malko fajlowete, mini prez DXF (toj e tekstowi fajl ako ne znaesh) i tam si preraboti kirilicata ot DOS code table na Unicode
Wsichko ostanalo e s nejasen rezultat, osobeno ako si nablegnal na blokowete ...

Предполага се, че кирилицата на12-ката е с кирилизатор, по МИК таблица.

Конверсията на Кирилицата в DXF става от раз, чрез win2MIK.exe

Смътно си спомням, че май с него си реших проблемите. Май ли беше, юни ли... Май, май, имаше проблеми със специалните символи.

Запиши в SUPPORT този текст като ctext.lsp
После
Command:(load "ctext")
Command:ctext

------------------------------------

; **********************************************************************
; CTеxt.LSP 21/07/97
; **********************************************************************

(defun chgterr (s)
(if (/= s "Function cancelled") ; If an error (such as CTRL-C) occurs
(princ (strcat "\nError: " s)) ; while this command is active...
)
(setq p nil) ; Free selection set
(setq *error* olderr) ; Restore old *error* handler
(princ)
)

(defun CT (os ns / p l n e as st s nsl osl sl si chf chm olderr)
(setq olderr *error* ; Initialize variables
*error* chgterr
chm 0)
; (princ (strcat os "-" ns "\n"))
(setq p (ssget "X" '((0 . "TEXT")))) ; Select objects
(if p (progn ; If any objects selected
(while (= 0 (setq osl (strlen os )))
(princ "Null input invalid")
)
(setq nsl (strlen ns ))
(setq l 0 n (sslength p))
(while (< l n) ; For each selected object...
(if (= "TEXT" ; Look for TEXT entity type (group 0)
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn ; Substitute new string for old
(setq e (subst (cons 1 s) as e))
(entmod e) ; Modify the TEXT entity
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
; (princ "Changed ") ; Print total lines changed
; (princ chm)
; (princ " text lines.")
(terpri)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)

(defun c:ctext ()
(ct (chr 255) (chr 253))
(ct (chr 254) (chr 251))
(ct "%%d" (chr 127))
(ct (chr 128) (chr 192))
(ct (chr 129) (chr 193))
(ct (chr 130) (chr 194))
(ct (chr 131) (chr 195))
(ct (chr 132) (chr 196))
(ct (chr 133) (chr 197))
(ct (chr 134) (chr 198))
(ct (chr 135) (chr 199))
(ct (chr 136) (chr 200))
(ct (chr 137) (chr 201))
(ct (chr 138) (chr 202))
(ct (chr 139) (chr 203))
(ct (chr 140) (chr 204))
(ct (chr 141) (chr 205))
(ct (chr 142) (chr 206))
(ct (chr 143) (chr 207))
(ct (chr 144) (chr 208))
(ct (chr 145) (chr 209))
(ct (chr 146) (chr 210))
(ct (chr 147) (chr 211))
(ct (chr 148) (chr 212))
(ct (chr 149) (chr 213))
(ct (chr 150) (chr 214))
(ct (chr 151) (chr 215))
(ct (chr 152) (chr 216))
(ct (chr 153) (chr 217))
(ct (chr 154) (chr 218))
(ct (chr 155) (chr 219))
(ct (chr 156) (chr 220))
(ct (chr 157) (chr 221))
(ct (chr 158) (chr 222))
(ct (chr 159) (chr 223))
(ct (chr 160) (chr 224))
(ct (chr 161) (chr 225))
(ct (chr 162) (chr 226))
(ct (chr 163) (chr 227))
(ct (chr 164) (chr 228))
(ct (chr 165) (chr 229))
(ct (chr 166) (chr 230))
(ct (chr 167) (chr 231))
(ct (chr 168) (chr 232))
(ct (chr 169) (chr 233))
(ct (chr 170) (chr 234))
(ct (chr 171) (chr 235))
(ct (chr 172) (chr 236))
(ct (chr 173) (chr 237))
(ct (chr 174) (chr 238))
(ct (chr 175) (chr 239))
(ct (chr 176) (chr 240))
(ct (chr 177) (chr 241))
(ct (chr 178) (chr 242))
(ct (chr 179) (chr 243))
(ct (chr 180) (chr 244))
(ct (chr 181) (chr 245))
(ct (chr 182) (chr 246))
(ct (chr 183) (chr 247))
(ct (chr 184) (chr 248))
(ct (chr 185) (chr 249))
(ct (chr 186) (chr 250))

(ct (chr 188) (chr 252))

(ct (chr 190) (chr 254))
(ct (chr 191) (chr 255))
)

merci na vsi4ki, problema se reshi - edin kolega imal predi vreme systiq problem i si napisal tool-che na VBA.
Davash mu edin .TXT file sys kakvoto si iskash syotvetstvie i gazi :)