[LISP程序]：Vlisp--显示SCREEN菜单

lsjjm · 发表于 2004-5-4 12:18:42

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

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

×

显示SCREEN菜单:
(defun scremenu (on)
  (if on (setq on :vlax-true)(setq on :vlax-false))
  (vla-put-displayscreenmenu
(vla-get-display
   (vla-get-preferences
      (vlax-get-acad-object))) on)
)

LUCAS · 发表于 2004-5-5 08:12:06

(defun C:S0 () (setenv "ScreenMenu" "0"))
;;for off
(defun C:S1 () (setenv "ScreenMenu" "1"))
;;for on.

lsjjm · 发表于 2004-5-5 11:51:22

最初由 LUCAS 发布
[B](defun C:S0 () (setenv "ScreenMenu" "0")).... [/B]

可能没有标清楚, 我说的是用vlisp.

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

[LISP程序]：Vlisp--显示SCREEN菜单

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

相关帖子