关于屏幕菜单自动收缩的问题

狂混乱 · 发表于 2003-7-15 19:48:00

编了一个屏幕菜单,但是关闭CAD后再打开往往屏幕菜单就收缩成一条横杠了,有什么办法能够不让它自动收缩呢?

龙龙仔 · 发表于 2003-10-13 15:24:00

;;原恢复屏幕菜单至合适宽度，根据分辨率自动调整 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)
)

狂混乱 · 发表于 2003-7-29 11:27:00

斑竹都没折了吗?

xazhji · 发表于 2003-7-29 11:58:00

请将怎样收缩的详细图片贴上来，大家一同分析，因为我没见过你说的现象。

BDYCAD · 发表于 2003-10-3 20:37:00

這個問題我碰到, 但我也解決不了, 請大家看看. 幫幫解決這個問題. 謝謝

ayjaerqfyr4.jpg

=======================
我愛CAD, 多我指教, 多多交流. 共同進步.

BDYCAD · 发表于 2003-10-3 20:40:00

接下來是我要手動解決的辦法, 太原始了. 高手們請賜高招吧.

adsvum0pjlv.jpg

========================================
我愛CAD, 多我指教, 多多交流. 共同進步.

BDYCAD · 发表于 2003-10-3 22:57:00

用VLax可以解决，具体方法可以参见晓东工具箱中的xdsoft.mnl文件。

BDYCAD · 发表于 2003-10-4 08:33:00

樓上你傳一個上來吧 .

BDYCAD · 发表于 2003-10-6 14:55:00

晚辈找到了在晓东工具箱中的xdsoft.mnl文件。中的程序, 我将之加栽还是不能用, 请功力大侠来指点一二. 晚辈谢过大家了
程序上指出了
error: no function definition: XDRX_SYSTEM_GETSCREENRESOLUTION
为了方便我顺便附上晓东工具箱中的xdsoft.mnl文件.

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:owslhdr03w1.rar
下载次数:0 文件大小:5.53 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

程序代码如下:
;;恢复屏幕菜单至合适宽度，根据分辨率自动调整 Writen by eachy
(defun c:Ea_scrmenures
   (/ org_position_lst screen tf profiles n cu_profiles)
  (if (> (atof (getvar "acadver")) 15.0)
(progn
   (setq screen (xdrx_system_getscreenResolution))
   (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 profiles                      ;(cdr
         (vl-registry-descendents (QF_Current_AutoCAD_Profiles_key))
                                    ; )
   )
   (foreach n profiles
      (setq cu_profiles
            (strcat (QF_Current_AutoCAD_Profiles_key)
                     n
                     "\\DRAWING WINDOW\\"
            )
      )
      (if (/= (getvar "screenboxES") 0)
      (progn (c:xscrmnud) (setq tf t))
      )
      (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)
      )
      )
   )
   (if tf
      (c:xscrmnud)
   )
)
(princ
   (strcat "\n\tAutoCAD R" (getvar "Acadver") " 不需要调整!")
)
  )
  (princ)
)

citykunan · 发表于 2003-10-7 20:05:00

我找不到晓东写的这个函数（XDRX_SYSTEM_GETSCREENRESOLUTION）
知道的大侠传一个给晚辈。我将非常感谢。

关于屏幕菜单自动收缩的问题

发表回复

精选推荐