想控制屏幕菜单的显示的问题

suyongyu

小弟想做一个按键,点击一下屏幕菜单显示再按一下就没掉,找了半天只找到"screenmenu"这个环境变量,就用(setenv "screenmenu" "1")在2004中,可是菜单不会显示出来5555555555哪位大侠指点一下

lijiao

用VLA开头的函数访问系统配置，是可以实现的。

龙龙仔

(defun C:TT ()
(setq ACADOBJECT (vlax-get-acad-object)
PREFERENCE (vla-get-preferences ACADOBJECT)
DISPLAY (vla-get-display PREFERENCE)
SCREENMENU (vla-get-displayscreenmenu DISPLAY)
)
(if (= SCREENMENU :vlax-true)
(vla-put-displayscreenmenu DISPLAY :vlax-false)
(vla-put-displayscreenmenu DISPLAY :vlax-true)
)
)

yybu

请教龙龙仔:



R14下怎样实现这样的功能？