如何通过LISP知道电脑是简体还是繁体系统

yuangw1234 · 发表于 2010-2-8 14:21:00

简体与繁体系统的环境变量或是系统变量区别在哪?
我想用lisp来判断一台电脑是简体还是繁体系统

Andyhon · 发表于 2010-2-8 16:40:00

(GetVar "Locale")

yuangw1234 · 发表于 2010-2-9 09:00:00

多谢andyhon

xhq1954425 · 发表于 2010-2-9 09:10:00

怎么发不了新帖？

waterchen · 发表于 2010-12-9 13:10:42

(GetVar "Locale")获取AUTOCAD的语言版本
英文=enu 简体=chs 繁体=cht
Command: (GetVar "Locale")
"ZHH"我的怎么是ZHH呢，我的计算机是繁体XP,CAD是2007英文版，请教这如何理解呀，谢谢!

ZZXXQQ · 发表于 2010-12-9 21:14:15

(getvar “SYSCODEPAGE")
返回值可查ACAD的帮助

highflybird · 发表于 2010-12-9 22:37:07

本帖最后由 highflybird 于 2010-12-9 22:42 编辑

如果想要得到更丰富的有关操作系统的信息，不妨用如下程序：
(defun c:test (/ *wsc str objSYS objWMI Lang)
  (setq *wsc (vla-GetInterfaceObject
      (vlax-get-acad-object)
      "ScriptControl"
   )
  )
  (vlax-put *wsc "language" "vbs")
  (setq str "Set objWMIService = GetObject(\"winmgmts:\\\\.\")")
  (vlax-invoke *wsc 'ExecuteStatement str)
  (setq objWMI (vla-eval *wsc "objWMIService"))
  (setq objSYS (vlax-invoke objWMI 'InstancesOf "Win32_OperatingSystem"))
  (vlax-for n objSYS
(vlax-dump-object n T)
(setq Lang (vlax-get n 'locale))
(alert (vlax-invoke n 'GetObjectText_))
  )
  (cond
( (= lang "0804")
   (princ "简体中文")
)
( (= lang "0404")
   (princ "简体中文")
)
( (= lang "0409")
   (princ "US(English)")
)
( (= lang "0809")
   (princ "UK(English)")
)
(T
   (princ "Other country!")
)
  )
  (vlax-release-object objWMI)
  (vlax-release-object objSYS)
  (vlax-release-object *wsc)
  (princ)
)

实际上用winmgmts可以做很多事情。呵呵，有心的人研究一下。

尘缘一生 · 发表于 2020-7-8 11:28:46

似乎这个问题没有解决，返回值比较乱啊

尘缘一生 · 发表于 2022-12-11 10:02:25

ZZXXQQ 发表于 2010-12-9 21:14
(getvar “SYSCODEPAGE")
返回值可查ACAD的帮助

如果简体中文，安装的事繁体中文CAD，这是如何判断的？

账号		自动登录	找回密码
密码			注册

[基础] 如何通过LISP知道电脑是简体还是繁体系统

本帖子中包含更多资源