CAD

Development Platform:

MathCAD

UNTIAO中英文等高调整恢复.LSP：Code Content

							; ================================================
;                 文字等高调整恢复
;              Ver: 1.0  作者：迟俊岭
; ================================================
(defun *error*(st)
  (princ (strcat "Error: " st))
  (princ)
)
(defun unt (s$ old$ new$ / osl nsl si st)
  (setq osl (strlen old$)
        nsl (strlen new$)
        si 1)
  (while (= osl (strlen (setq st (substr s$ si osl))))
    (if (= st old$)
      (setq s$ (strcat (substr s$ 1 (1- si)) new$ (substr s$ (+ si osl)))
            si (+ si nsl)
      )
      (setq si (1+ si))
    )
  )
  (setq txt s$)
)
(defun C:untiao( / test ss len n s en1 a ent nn)
  (setvar "CMDECHO" 0)
  (setq test T nn 0)
  (while test
    (setq ss (ssadd))
    (setq ss (ssget))
    (if (= nil ss)
      (setq test nil)
      (progn
	(setq len (sslength ss))
	(setq n 1 s 1)
	(while (<= n len)
	  (setq en1 (ssname ss (1- n)))
	  (setq a (entget en1))
          (if (= "TEXT" (cdr (assoc 0 a)))
            (progn  
              (setq txt (cdr (assoc 1 a)))
              (unt txt "%%165" "")
              (unt txt "%%166" "")
              (setq ent (subst (cons 1 txt) (assoc 1 a) a))
	      (entmod ent)
              (setq nn (1+ nn))
	    )
	  )
	  (setq n (1+ n))
	)
      )
    )
  )
  (princ (strcat (itoa nn) " 变化数 !"))
  (princ)
)

						