[LISP程序]：版主我用晓东工具箱时的*.MNL文件问题请教一二

JOSDENNIS

经朋友的介绍我装了晓东工具箱的程序，很好用的。但是我有一个自己写的屏幕菜单文件出了问题。我传上来给你看看。听朋友说你可以解决，所以请你帮帮晚辈。我将非常感谢。

JOSDENNIS

其实我找到了一条在MHL文件里面好象可以控制屏幕菜单的。但少了（XDRX_SYSTEM_GETSCREENRESOLUTION）函数
程序如下而这条来自XDSoft.MNL的

2. 
   
3. ;;恢复屏幕菜单至合适宽度，根据分辨率自动调整 Writen by eachy
   
4. (defun c:Ea_scrmenures
   
5.        (/ org_position_lst screen tf profiles n cu_profiles)
   
6.   (if (> (atof (getvar "acadver")) 15.0)
   
7.     (progn
   
8.       (setq screen (xdrx_system_getscreenResolution))
   
9.       (setq org_position_lst
   
10.              (strcat (rtos (- (car screen) 86) 2 0)
    
11.                      " 95 "
    
12.                      (rtos (- (car screen) 24) 2 0)
    
13.                      " "
    
14.                      (rtos (- (last screen) 120) 2 0)
    
15.              )
    
16.       )
    
17.       (setq profiles                        ;(cdr
    
18.              (vl-registry-descendents (QF_Current_AutoCAD_Profiles_key))
    
19.                                         ; )
    
20.       )
    
21.       (foreach n profiles
    
22.         (setq cu_profiles
    
23.                (strcat (QF_Current_AutoCAD_Profiles_key)
    
24.                        n
    
25.                        "\\DRAWING WINDOW\"
    
26.                )
    
27.         )
    
28.         (if (/= (getvar "screenboxES") 0)
    
29.           (progn (c:xscrmnud) (setq tf t))
    
30.         )
    
31.         (if (vl-registry-read cu_profiles "SCREENMENU.POSITION")
    
32.           (progn
    
33.             (vl-registry-write
    
34.               cu_profiles
    
35.               "ScreenMenu.Position"
    
36.               org_position_lst
    
37.             )
    
38.             (vl-registry-write cu_profiles "ScreenMenu.Style" 4)
    
39.           )
    
40.         )
    
41.       )
    
42.       (if tf
    
43.         (c:xscrmnud)
    
44.       )
    
45.     )
    
46.     (princ
    
47.       (strcat "\n\tAutoCAD R" (getvar "Acadver") " 不需要调整!")
    
48.     )
    
49.   )
    
50.   (princ)
    
51. )

<br /> ;;恢复屏幕菜单至合适宽度，根据分辨率自动调整 Writen by eachy<br /> (defun c:Ea_scrmenures<br />        (/ org_position_lst screen tf profiles n cu_profiles)<br />   (if (> (atof (getvar "acadver")) 15.0)<br />     (progn<br />       (setq screen (xdrx_system_getscreenResolution))<br />       (setq org_position_lst<br />              (strcat (rtos (- (car screen) 86) 2 0)<br />                      " 95 "<br />                      (rtos (- (car screen) 24) 2 0)<br />                      " "<br />                      (rtos (- (last screen) 120) 2 0)<br />              )<br />       )<br />       (setq profiles                        ;(cdr<br />              (vl-registry-descendents (QF_Current_AutoCAD_Profiles_key))<br />                                         ; )<br />       )<br />       (foreach n profiles<br />         (setq cu_profiles<br />                (strcat (QF_Current_AutoCAD_Profiles_key)<br />                        n<br />                        "\\DRAWING WINDOW\"<br />                )<br />         )<br />         (if (/= (getvar "screenboxES") 0)<br />           (progn (c:xscrmnud) (setq tf t))<br />         )<br />         (if (vl-registry-read cu_profiles "SCREENMENU.POSITION")<br />           (progn<br />             (vl-registry-write<br />               cu_profiles<br />               "ScreenMenu.Position"<br />               org_position_lst<br />             )<br />             (vl-registry-write cu_profiles "ScreenMenu.Style" 4)<br />           )<br />         )<br />       )<br />       (if tf<br />         (c:xscrmnud)<br />       )<br />     )<br />     (princ<br />       (strcat "\n\tAutoCAD R" (getvar "Acadver") " 不需要调整!")<br />     )<br />   )<br />   (princ)<br /> )

eachy

最初由 JOSDENNIS 发布
[B]其实我找到了一条在MHL文件里面好象可以控制屏幕菜单的。但少了（XDRX_SYSTEM_GETSCREENRESOLUTION）函数
程序如下而这条来自XDSoft.MNL的

1. 
   
2. ;;恢复屏幕菜单至合适宽度，根据分辨率自动调整 Writen by eachy...

复制代码

[/B]

这只是其中的主程序，还有一个函数和一个命令：QF_Current_AutoCAD_Profiles_key（函数）、xscrmnud（命令）。

XDRX_SYSTEM_GETSCREENRESOLUTION 是XDRX_api中的函数，不加载API程序是运行不了的，解决方法有两个：
1 加载api
2 不加载api修改程序，该函数是获取屏幕分辨率，对于自己使用分辨率一般是固定的，最简单的就是将将此句改成你的分辨率比如

2. 
   
3. (setq screen '(1024 768))

<br /> (setq screen '(1024 768))

JOSDENNIS

多謝版主出手想教. 你是個熱心的版主, 順祝貴版越辦越好. 我將是這里的忠實學習用戶. 以后還要多得版主捕助左右.





-----------------------------------------------------
我愛CAD. 共同學習, 共同進步.*-*4

citykunan

我也有同样的问题，今天终于解决了.