[TB-LISP函数]：TBC:CheckLispSYS通过系统变量 LISPSYS 的值，检测字符集兼容性

tengteb · 发表于 2022-6-13 18:32:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

  ;检测系统变量 LISPSYS 的值是否为 0
(defun TBC:CheckLispSYS (bShow / msg do v)
  (setq msg "\n注意：1.为了与本程序的字符集兼容，需将系统变量 LISPSYS 设置为 0。\n　　　2.更改 LISPSYS 系统变量后，须重启 AutoCAD 生效。")
  (and
(setq v (getvar "LISPSYS")) ;AutoCAD 2021及以后版本，否则返回nil
(setq do (/= v 0))
bShow
(princ msg)
  ) ;and
  (not do) ;返回值：T -- 兼容性检测通过
)

hh_lj007 · 发表于 2022-6-16 15:05:36

感谢分享源码

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

[源码] [TB-LISP函数]：TBC:CheckLispSYS通过系统变量 LISPSYS 的值，检测字符集兼容性

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。