晓东版主请进，有要事相求。。。

挚友02

试了好长时间，在中望CAD就是无法正确加载菜单文件，请晓东版主看看是怎么一回事......


自动加载程序中
(if (= (strcase (getvar "PRODUCT")) "ZWCAD")
  (progn
    (if (= (getenv "PROCESSOR_ARCHITECTURE") "x86")
      (setq fn1 "OpenDCL." fn2 "")       ; OpenDCL.x64.19.arx
      (setq fn1 "OpenDCL.x64." fn2 ".x64")  ; XDRx.19.x64
    )
    (if (null (member (strcase (strcat fn1 "20" (substr (getvar "VERNUM") 1 2) ".zrx") t)(zrx)))  ; "19.1s
       (if (setq fn (findfile (strcat fn1 "20" (substr (getvar "VERNUM") 1 2) ".zrx")))
         (arxload fn (strcat fn "为Autocad无效应用程序!"))
         (alert (strcat "\n路径中无" fn1 "20" (substr (getvar "VERNUM") 1 2) ".zrx" "文件或者有文件加载不成功!"))
       )
    )
  )
  (progn
    (if (= (getenv "PROCESSOR_ARCHITECTURE") "x86")
      (setq fn1 "OpenDCL." fn2 "")       ; OpenDCL.x64.19.arx
      (setq fn1 "OpenDCL.x64." fn2 ".x64")  ; XDRx.19.x64
    )
    (if (null (member (strcase (strcat fn1 (substr (getvar "ACADVER") 1 2) ".arx") t)(arx)))  ; "19.1s
       (if (setq fn (findfile (strcat fn1 (substr (getvar "ACADVER") 1 2)".arx")))
         (arxload fn (strcat fn "为Autocad无效应用程序!"))
         (alert (strcat "\n路径中无" fn1 (substr (getvar "ACADVER") 1 2) ".arx" "文件或者有文件加载不成功!"))
       )
    )
) )
;(if (null _setup)(vl-load-all "XDRx.lsp"))
(vl-load-all "XDRx.lsp")
(defun C:doe ()
  (if dcl_getversion    ; 检查dcl加载的版本号(有没有OpenDCL被加载)
    (if        (and (findfile "xdcad.odcl")
             (findfile "xdtb_menu.lsp")
             (findfile "xdtb_menucontrol.vlx")
        )
      (progn
        (if (null ea_mainmenu_datastru)(vl-load-all "xdtb_menu.lsp"))  '必须在这个位置上，菜单数据的加载
        (Menu_DataStru_OnInitialize)
        (ODCL_MainMenu_Button_XPositon)
        (ODCL_MainMenu_Tab_IsOnly)
        (dcl_project_load "xdcad.odcl")
        (and (not **XDTBTabMenuIsEnabled**)
             (/= (dcl_control_getwidth xdcad_mainmenu) 76)
             (dcl_control_setwidth xdcad_mainmenu 76)
        )
        (and **XDTBTabMenuIsEnabled**
             (/= (dcl_control_getwidth xdcad_mainmenu) 96)
             (dcl_control_setwidth xdcad_mainmenu 96)
        )
        (if (dcl_form_isactive xdcad_mainmenu)
          (dcl_form_close xdcad_mainmenu)
        )
        (dcl_form_show xdcad_mainmenu)
        (if (null (vl-vlx-loaded-p "xdtb_menucontrol.VLX"))(vl-load-all "xdtb_menucontrol.VLX"))  '必须在这个位置上，用有对话框初始化
      )
      (princ "\n未找到菜单支持文件!")
    )
    (princ "\n需要加载OpenDCL!")
  )
  (princ)
)
(princ)
(C:doe)

kmliro_2017

不错，谢谢分享！！！！！！

kmliro_2017

不错，谢谢分享！！！！！！

挚友02

版主版主、晓东晓东。。。