vvc221 发表于 2009-8-5 06:13:00

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

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

淮上 发表于 2009-8-5 08:57:00

<p>&nbsp; (setq gv&nbsp; (substr (getvar "acadver") 1 4)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k&nbsp;&nbsp; (strcat "<a href="file://\\SOFTWARE\\Autodesk\\AutoCAD\\R">\\SOFTWARE\\Autodesk\\AutoCAD\\R</a>" gv)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k&nbsp;&nbsp; (strcat "HKEY_LOCAL_MACHINE"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "\\"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-registry-read (strcat "HKEY_CURRENT_USER" k) "CurVer")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )</p><p>;;参考下面两个注册表键值</p><p>(vl-registry-read k "LangAbbrev")-------&gt;"chs"</p><p>(vl-registry-read k "Language")---------&gt;"Simplified Chinese"</p>

asdfxx 发表于 2009-8-5 09:40:00

vvc221 发表于 2009-8-24 06:30:00

谢谢
页: [1]
查看完整版本: [求助]如何在lisp程序之中检测cad是简体版本学是繁体版本