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

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

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

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

(GetVar "Locale")

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

<p>多谢andyhon</p>

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，这是如何判断的？
页: [1]
查看完整版本: 如何通过LISP知道电脑是简体还是繁体系统