自动加载菜单文件

aaryan · 发表于 2022-7-6 07:35:50

大家好，

我的要求是如何通过lisp自动加载菜单文件。我已经做了一个lisp，它将支持路径添加到包含lisp例程的文件夹中，并希望向自动加载菜单文件添加代码。

任何帮助都将不胜感激。

谢谢和问候
Aaryan公司

MSasu · 发表于 2022-7-6 07:57:46

请检查之前的讨论；需要根据您使用的版本调整菜单文件的扩展名。

asos2000 · 发表于 2022-7-6 08:02:47

阅读此

aaryan · 发表于 2022-7-6 08:21:48

谢谢。

已成功加载。
但是为什么我看不到工具栏呢。这是我试过的。
我还收到一条消息“工具栏未找到”

作为asos2000提供的链接

copy

(defun PlaceCCMenu  (/ CNT)
 (setq CNT 1)
 (while (< CNT 24)
   (if (menucmd (strcat "P" (itoa CNT) ".1=?"))
     (setq CNT (1+ CNT))
     (progn (if (> CNT 2)
              (setq CNT (1- CNT))
              (setq CNT 2))
            (menucmd (strcat "p" (itoa CNT) "=+CC.POP1"))
            (setq CNT 25)))))
(defun CChart  (/ ProgLoad CCPath)
 (setq CCPath "C:\\Program Files\\CC\\CC.01\")
 (cond ((< (distof (substr (getvar "acadver") 1 4)) 16.0)
        (setq ProgLoad (strcat CCPath "CC.mnc")))
       ((and (>= (distof (substr (getvar "acadver") 1 4)) 16.0)
             (< (distof (substr (getvar "acadver") 1 4)) 16.2))
        (setq ProgLoad (findfile (strcat CCPath "CC.mnc"))))
;;;     
       ((and (>= (distof (substr (getvar "acadver") 1 4)) 16.2)
             (< (distof (substr (getvar "acadver") 1 4)) 17.0))
        (setq ProgLoad (findfile (strcat CCPath "CC.cui"))))
;;;
       ((and (>= (distof (substr (getvar "acadver") 1 4)) 17.0)
             (< (distof (substr (getvar "acadver") 1 4)) 18.0))
        (setq ProgLoad (findfile (strcat CCPath "CC.cui"))))
;;;
       ((and (>= (distof (substr (getvar "acadver") 1 4)) 18.0)
             (< (distof (substr (getvar "acadver") 1 4)) 19.0))
        (setq ProgLoad (findfile (strcat CCPath "CC.cui")))))
 (cond
   ((/= ProgLoad nil)
    (progn (command "menuunload" "CC" "menuload" ProgLoad)
           (PlaceCCMenu)
           (command "toolbar" "CC" "float" "800,52" "1")
           (princ "\n*** ---------- CC Menu Loaded ---------- ***")))
   ((= ProgLoad nil)
    (alert "CC Program is Not Loaded!")))
 (princ))

下一个Mircea的代码已编辑。

copy

(setq MyToolsPath "C:\\Program Files\\CC\\CC.01\")
(setq Menu_Name "CC")
(setq Group_Name "CC")
(if (not (menugroup Group_Name))   ;check if user menu is loaded and load/display if not
(progn
 (if (<  (atof (getvar "ACADVER")) 16)                        ;versions above R2004
  (command "_MENULOAD" (strcat MyToolsPath "CC" ".mns"))   ;.mns file
  (command "_MENULOAD" (strcat MyToolsPath "CC" ".mnu"))   ;.mnu file
 )
  (menucmd "p11=+CC.POP1")                               ;display it as item 10
)
(princ))