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

狂混乱

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

龙龙仔

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

狂混乱

斑竹都没折了吗?

xazhji

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

BDYCAD

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



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

BDYCAD

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







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

Ea

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

BDYCAD

樓 上 你 傳 一 個 上 來 吧 .

BDYCAD

晚辈找到了在晓东工具箱中的xdsoft.mnl文件。中的程序, 我将之加栽还是不能用, 请功力大侠来指点一二. 晚辈谢过大家了

程序上指出了
error: no function definition: XDRX_SYSTEM_GETSCREENRESOLUTION

为了方便我顺便附上晓东工具箱中的xdsoft.mnl文件.


程序代码如下:

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

BDYCAD

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

citykunan

我的屏幕菜单十分奇怪，将其变窄后，放在cad的右边，画一绘图后，它又会自动
变宽，很占绘图的区域，不只是什么原因，有没有办法解决？有什么办法可以控制
屏幕菜单的宽度？