[求助]：怎么用LISP程序实现替换全角变对应半角字符

lsjzhj2004

各位大侠，现想实现用LISP程序来将图纸中所有的全角字符转换来半角字符？例如：将图中所有“９”替换为“9”， “Ａ”替换为“A”，请大侠们帮一下忙!

ljttjl

;;; 以下为实现此程序的关键函数.
;;;将单个字符中的全角引号换成半角引号,返回a3.
(defun bcl (m / a a1 a2)
  (setq a (strlen m))
  (setq a1 1 a3 "")
  (while (<= a1 a)
    (setq a2 (substr m a1 2))
    (if (or (= a2 "\“")(= a2 "\”"))
      (progn
        (setq a3 (strcat a3 "\""))
        (setq a1 (+ a1 2))
      )
      (progn
        (setq a2 (substr m a1 1))
        (setq a3 (strcat a3 a2))
        (setq a1 (+ a1 1))
      )
    )  
  )

  (prin1 a3)
  (princ)
)

jactry

有中文版的教程。感觉就是舒服