[求助]如何在lisp程序之中检测cad是简体版本学是繁体版本

vvc221

想问一下.如何在lisp程序之中检测cad是简体版本学是繁体版本.

淮上

  (setq gv  (substr (getvar "acadver") 1 4)
        k   (strcat "\\SOFTWARE\\Autodesk\\AutoCAD\\R" gv)
        k   (strcat "HKEY_LOCAL_MACHINE"
                    k
                    "\\"
                    (vl-registry-read (strcat "HKEY_CURRENT_USER" k) "CurVer")
            )
  )

;;参考下面两个注册表键值

(vl-registry-read k "LangAbbrev")------->"chs"

(vl-registry-read k "Language")--------->"Simplified Chinese"

vvc221

谢谢