简繁互转，为啥2020版本以上不能使用？哪位大师知道。

被风吹走的灰尘

(defun hzCharConvert (IsRev / SimpleCharSet TraditionalCharSet Text:CharConvert cmdfun)

(defun cmdfun (IsRev / i sel ent obj txt AcDoc dxf typ)
  (if (setq sel (ssget '((0 . "*TEXT,INSERT,ATTDEF"))))
    (progn
      (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
      (vla-StartUndoMark AcDoc)
      (setq i 0)
      (repeat (sslength sel)
        (setq ent (ssname sel i))
        (setq dxf (entget ent))
        (setq obj (vlax-ename->vla-object ent))
        (setq Typ (cdr (assoc 0 dxf)))
        (cond
          ( (vlax-property-available-p obj 'textstring)
            (setq txt (vla-get-TextString obj))
            (vla-put-textstring obj (Text:CharConvert txt IsRev))
            (if (= Typ "ATTDEF")
              (progn
                (setq txt (vla-get-tagstring obj))
                (vla-put-tagstring obj (Text:CharConvert txt IsRev))
              )
            )
          )
          ( (= Typ "INSERT")
            (foreach Att (vlax-invoke obj 'GetAttributes)
              (setq txt (vla-get-tagstring Att))
              (vla-put-tagstring Att (Text:CharConvert txt IsRev))
              (setq txt (vla-get-textstring Att))
              (vla-put-textstring Att (Text:CharConvert txt IsRev))
            )
          )
        )
        (setq i (1+ i))
      )
      (vla-EndUndoMark AcDoc)
      (vlax-release-object AcDoc)
      (princ "\n转化完毕!请再校正。")
    )
  )
  (princ)
)

;;;=============================================================
;;;=============================================================
(defun Text:CharConvert (text IsRev / Index NewTxt Str From to)
  (if IsRev
    (setq From TraditionalCharset
          To SimpleCharSet
    )
    (setq From SimpleCharSet
          To TraditionalCharset
    )
  )
  (setq NewTxt "")
  (while (/= text "")
    (setq str (substr text 1 1))
    (if (> (ascii str) 128)
      (progn
        (setq str (substr text 1 2))
        (setq text (substr text 3))
        (if (setq index (VL-POSITION str From))
          (setq str (nth index To))
        )
      )
      (setq str (substr text 1 1)
            text (substr text 2)
      )
    )
    (setq newtxt (strcat newtxt str))
  )
  newtxt
)


(cmdfun IsRev)

baitang36

让lispsys=0试试

e2002

这能转编码？From，To都没有用到，或者没发出关键的转码语句或者函数。