Leaderboard

Hi Start by checking which ANSI setting you have on your new OS. Control Panel → Region → Administrative tab → Change system locale button. The system locale should appear in Spanish and the option 'Version beta: Use UTF-8...' should be unchecked.

I already found the solution, at least temporarily. what I have to do is the original routine (ansi code), modify it if required, but also add an ansi character, example ;ñ only then it lets me save as in ANSI mode and the characters are no longer deleted or changed.

I don't think it has anything to do with it. And if it does, it can probably be fixed by configuring the OS.

perhaps not the fix you want, but avoid "ñ", do a find and replace, maybe to 'n' ? I would copy the original file to a temporary or archive folder and make the change to the original - so the LISPs will still work until you can work out how to get the correct characters working. Just checking my default text editor is UTF-8 also What do other text editors do and what encoding do they use?

You could potentially use my Import Block application, which is specifically targeting blocks.

Some Like This (defun c:TEcolor136_230 (/ error oldcmdecho sel e typo obj res currentColor n ch? tx) (vl-load-com) (defun error (msg) (if oldcmdecho (setvar "CMDECHO" oldcmdecho) ) (if (and msg (not (wcmatch (strcase msg) "BREAK,CANCEL,EXIT"))) (princ (strcat "Error: " msg)) ) (princ) ) (setq oldcmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setvar "NOMUTT" 1) ;;; (while (setq sel (entsel "\nSelect TEXT/MTEXT to edit (Enter — exit): ")) (princ "\nSelect TEXTs/MTEXTs to edit (Enter — exit): ") (setq sel (ssget '((0 . "*TEXT"))) e (ssname sel 0) ;;; typo (strcase (cdr (assoc 0 (entget e)))) ) (if sel (progn (setq obj (vlax-ename->vla-object e) tx (cdr (assoc 1 (entget e)));(vla-getTextString obj) ) ;; get the current color (setq currentColor (vl-catch-all-apply 'vlax-get-property (list obj 'Color))) ;; Error handling on receipt (if (vl-catch-all-error-p currentColor) (setq currentColor 0) ) (princ "\rEdit text and left click on empty screen for continue") ;; Opening the text editor (getstring) (setq n -1 res (vl-catch-all-apply 'vl-cmdf (list "_.textedit" e "")) ch? (/= tx (setq tx (cdr (assoc 1 (entget e))))) ) (if (vl-catch-all-error-p res) (princ "\nEditing canceled.") (while (setq e (ssname sel (setq n (1+ n)))) (setq obj (vlax-ename->vla-object e)) (if (and ch? (> n 0)) (entmod (subst (cons 1 tx) (assoc 1 (entget e)) (entget e))) ) ;; After editing, we change the color (if (= currentColor 136) ;; If it's 136, change it to 230. (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put-property (list obj 'Color 230) ) ) (princ "\nCouldn't change color to 230.") (princ "\nThe color has been changed to 230.") ) ) (if (/= currentColor 136) ;; If it's not 136, change it to 136. (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put-property (list obj 'Color 136) ) ) (princ "\nCouldn't change the color to 136.") (princ "\nThe color has been changed to 136.") ) ) ) ) (if obj (princ "\nEditing completed.")) ) (princ "\nIt's not an object TEXT/MTEXT.") ) (setvar "CMDECHO" oldcmdecho) (setvar "NOMUTT" 0) (princ) )

Ok thats is very similar to what I was talking about, its easy to draw an arrow at a point along a pline, you can do this in a number of ways one of the easiest is to just use "V" rotated + - to to the angle between the points. Which of these is correct ? You should post a dwg not an image, can then see sizes and offsets from vertices.