yang686526

关于屏幕菜单自动收缩的问题
www.dimcax.com
等级：贵宾
文章：495
积分：11
明经币：12
金钱：2861
经验：1021
鲜花：5
鸡蛋：0
门派：无门无派
d
先谢谢了。
且放白鹿青崖间，须行即骑访名山。
安能摧眉折腰事权贵，使我不得开心颜！
d
;;原恢复屏幕菜单至合适宽度，根据分辨率自动调整 writen by eachy
;;modify by 龙龙仔(lucas)
(defun c:scrmun_redraw (/ org_position_lst screen cu_profiles)
(if ;;(and (> (atof (getvar "acadver")) 15.0)
(= (getenv "screenmenu") "1")
;
(progn
(setq screen '(1024 768)) ;请查看看自己屏幕分辨率
(setq org_position_lst
(strcat (rtos (- (car screen) 86) 2 0) ;参数屏幕菜单宽度
" 95 " ;参数屏幕菜单长度
(rtos (- (car screen) 24) 2 0) ;参数屏幕菜单宽度
" "
(rtos (- (last screen) 120) 2 0);参数屏幕菜单长度
)
)
(setq cu_profiles
(strcat "hkey_current_user\\"
(vlax-product-key)
"\\profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\drawing window\\"
)
)
(setenv "screenmenu" "0")
(if (vl-registry-read cu_profiles "screenmenu.position")
(progn
(vl-registry-write
cu_profiles
"screenmenu.position"
org_position_lst
)
(vl-registry-write cu_profiles "screenmenu.style" 4)
)
)
(setenv "screenmenu" "1")
)
)
(princ)
)
要努力学习,不进则退
网络u盘：
据autodesk自己说，屏幕菜单放左边就没事了。
fresco space:
我的也一样，在
d
acad