[求助]：承蒙xyp1964、狂刀、Underway几位老师的指点，但还是解决不了，请大家再帮帮

bolixin

C:\gongchengliang\Lsp\gcljs.mnu代码如下：
***MENUGROUP=GcGroup
***POP12
**GcMenu
[Gcljs(&G)]
[面积及长度(&A)...        Ctrl+A]^C^C_AL


C:\gongchengliang\Lsp\gcljs.lsp代码如下：
;;;取得选择集中所有对象的面积及长度
(defun C:AL ()
  (setvar "cmdecho" 0)
  (setq Scale (getreal "\nScale<1>:"))
  (if (= Scale nil)
      (setq Scale 1)
  )
  (setq o_name (ssget))
  (setq o_Coun (sslength o_name))
  (setq III 0)
  (setq MianJi "")
  (setq ChangD "")
  (while (< III o_Coun)
    (setq nextobj (ssname o_name III))
    (command "area" "o" nextobj)
    (setq sm (rtos (/ (* (getvar "area") Scale) 1000000) 2 3))
    (setq Le (rtos (/ (* (getvar "perimeter") Scale) 1000) 2 2))
    (setq MianJi (strcat MianJi sm "+"))
    (setq ChangD (STRCAT ChangD Le "+"))
    (setq III (+ III 1))
  )
  (setq MianJi (substr MianJi 1 (- (strlen MianJi) 1)))
  (setq ChangD (substr ChangD 1 (- (strlen ChangD) 1)))
  (setq Str (strcat MianJi "㎡" ChangD "m"))
  (princ Str)
)


请问怎样实现启动CAD时自动加载gcljs.lsp及自动把gcljs.mnu文件中的“Gcljs”菜单加到CAD中“帮助”菜单之后并显示？

我已查了CAD帮助及其他参考书，但均不得要领，请各位老师帮帮忙，帮我弄一个完整的程序。谢谢！

我用的是CAD2004。

Underway

[Gcljs(&G)]
[面积及长度(&A)... Ctrl+A]^C^C_AL


C:\gongchengliang\Lsp\gcljs.lsp代码如下：
;;;取得选择集中所有对象的面积及长度
(defun C:AL ()    .....)

===>
[Gcljs(&G)]
[面积及长度(&A)... Ctrl+A]^C^C(C:AL)
or
[面积及长度(&A)... Ctrl+A]^C^CAL
or
[面积及长度(&A)... Ctrl+A]^C^C^P(if (not C:AL) (load "C:/gongchengliang/Lsp/gcljs"))(princ);AL;^P

lijiao

1、可以用MENULOAD加载gcljs.mnu，加载成功后，以后都是自动加载。
2、把gcljs.lsp改为gcljs.mnl，并且和gcljs.mnu放在同一个文件夹中，该文件夹要在ACAD的搜索路径中。

LUCAS

在檔案放到搜尋路徑中,MENULOAD加载gcljs.mnu

bolixin

首先感谢各位！但以上办法我都试过了，还是不行，非要在MenuLoad对话框里点“插入”按钮才能显示菜单，而下次启动CAD时还要重复该步骤。到底什么问题？请各位帮忙想想办法
    谢谢！

xyp1964

最初由 bolixin 发布
[B]首先感谢各位！但以上办法我都试过了，还是不行，非要在MenuLoad对话框里点“插入”按钮才能显示菜单，而下次启动CAD时还要重复该步骤。到底什么问题？请各位帮忙想想办法
    谢谢！ [/B]

把菜单文件发上来给你改好？！

bolixin

xyp1964兄：

所有文件均在一楼，麻烦你帮我想下办法，谢谢！

cy956

关于菜单定制和加载可以看看“定制”部分。

netbee

嘿嘿，最根本的问题是在gcljs.mnl中需要加入下载的代码。

2. 
   
3. ;;为了让代码结构更好，做成了函数，你也可以直接用里面的代码。
   
4. (defun addmenu (/ n)
   
5.   (if (menugroup "netbee")
   
6.     (progn
   
7.       (setq n 1)
   
8.       (while (< n 24)
   
9.         (if (menucmd (strcat "P" (itoa n) ".1=?"))
   
10.           (setq n (+ n 1))
    
11.           (progn
    
12.             (if        (> n 3)
    
13.               (setq n (- n 2))
    
14.               (setq n 3)
    
15.             )
    
16.             ;;if
    
17.             (menucmd (strcat "p" (itoa n) "=+netbee.pop1"));;这里为你定义的菜单名。按需修改呀！！＾＿＾
    
18.              ;;你这里为这一句(menucmd (strcat "p" (itoa n) "=+GcGroup.pop12"))
    
19.             (setq n 25)
    
20.           )
    
21.           ;;progn
    
22.         )
    
23.         ;;if
    
24.       )
    
25.       ;;while
    
26.     )
    
27.     ;;progn
    
28.   )
    
29.   ;;if
    
30.   (princ)
    
31. )
    
32. (addmenu);;运行函数
    

<br /> ;;为了让代码结构更好，做成了函数，你也可以直接用里面的代码。<br /> (defun addmenu (/ n)<br />   (if (menugroup "netbee")<br />     (progn<br />       (setq n 1)<br />       (while (< n 24)<br />         (if (menucmd (strcat "P" (itoa n) ".1=?"))<br />           (setq n (+ n 1))<br />           (progn<br />             (if        (> n 3)<br />               (setq n (- n 2))<br />               (setq n 3)<br />             )<br />             ;;if<br />             (menucmd (strcat "p" (itoa n) "=+netbee.pop1"));;这里为你定义的菜单名。按需修改呀！！＾＿＾<br />              ;;你这里为这一句(menucmd (strcat "p" (itoa n) "=+GcGroup.pop12"))<br />             (setq n 25)<br />           )<br />           ;;progn<br />         )<br />         ;;if<br />       )<br />       ;;while<br />     )<br />     ;;progn<br />   )<br />   ;;if<br />   (princ)<br /> )<br /> (addmenu);;运行函数<br />

dandee

这 好 像 说 明 你 的 acad记 不 住 配 置， 说 明 配 置 文 件 无 法 存 盘  ， 所 以 每 次 需 要 重 新 设 置
你 查 一 下 window的 权 限 使 用 ， 估 计 那 里 出 问 题 了

bolixin

非常感谢各位！
netbee 斑竹 说的办法我也试过了，还是不行。
现在问题的关键是：
在CAD下可以用
(command "menuload" "C:\\gongchengliang\\Lsp\\Gcljs.mnu")
语句加载菜单，但无法用
(menucmd "p11=+GcGroup.pop12")
语句把该菜单加入到CAD原有菜单中并显示该菜单，非要在MenuLoad对话框里点“插入”按钮才能显示该菜单，这到底是怎么回事？怎么解决？请各位指教
再次感谢各位！

eachy

试试将菜单中的 POP12 改为 POP1 ，MNL中对应修改

bolixin

不行啊，各位请帮忙!

xyp1964

加载gcljs.lsp，运行gclis

2. [FONT=courier new];;;C:\gongchengliang\Lsp\gcljs.lsp代码如下：
   
3. ;;;取得选择集中所有对象的面积及长度
   
4. (defun C:AL (/ STR)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq Scale (getreal "\nScale<1>:"))
   
7.   (if (= Scale nil)
   
8.     (setq Scale 1)
   
9.   )
   
10.   (setq        o_name (ssget '((0 . "CIRCLE,*POLYLINE,ARC,SPLINE")))
    
11.         o_Coun (sslength o_name)
    
12.         I      -1
    
13.         MianJi ""
    
14.         ChangD ""
    
15.   )
    
16.   (while (setq nextobj (ssname o_name (setq I (1+ I))))
    
17.     (command "area" "o" nextobj)
    
18.     (setq sm         (rtos (/ (* (getvar "area") Scale) 1000000) 2 3)
    
19.           Le         (rtos (/ (* (getvar "perimeter") Scale) 1000) 2 2)
    
20.           MianJi (strcat MianJi sm "+")
    
21.           ChangD (STRCAT ChangD Le "+")
    
22.     )
    
23.   )
    
24.   (setq        MianJi (substr MianJi 1 (- (strlen MianJi) 1))
    
25.         ChangD (substr ChangD 1 (- (strlen ChangD) 1))
    
26.         Str    (strcat MianJi "㎡" ChangD "m")
    
27.   )
    
28.   (princ Str)
    
29.   (PRINC)
    
30. )
    
31. 
    
32. ;;;加载gcljs菜单
    
33. (defun c:gcljs()
    
34. (if  (not (menugroup "gcljs"))
    
35.     (progn
    
36.       (command ".undo" "c" "n" ".menuload" "gcljs" ".undo" "")
    
37.       (menucmd "p11=GcGroup.pop1")
    
38.     )
    
39.   )
    
40.   )
    
41. (princ)[/FONT]

[FONT=courier new];;;C:\gongchengliang\Lsp\gcljs.lsp代码如下：<br /> ;;;取得选择集中所有对象的面积及长度<br /> (defun C:AL (/ STR)<br />   (setvar "cmdecho" 0)<br />   (setq Scale (getreal "\nScale<1>:"))<br />   (if (= Scale nil)<br />     (setq Scale 1)<br />   )<br />   (setq        o_name (ssget '((0 . "CIRCLE,*POLYLINE,ARC,SPLINE")))<br />         o_Coun (sslength o_name)<br />         I      -1<br />         MianJi ""<br />         ChangD ""<br />   )<br />   (while (setq nextobj (ssname o_name (setq I (1+ I))))<br />     (command "area" "o" nextobj)<br />     (setq sm         (rtos (/ (* (getvar "area") Scale) 1000000) 2 3)<br />           Le         (rtos (/ (* (getvar "perimeter") Scale) 1000) 2 2)<br />           MianJi (strcat MianJi sm "+")<br />           ChangD (STRCAT ChangD Le "+")<br />     )<br />   )<br />   (setq        MianJi (substr MianJi 1 (- (strlen MianJi) 1))<br />         ChangD (substr ChangD 1 (- (strlen ChangD) 1))<br />         Str    (strcat MianJi "㎡" ChangD "m")<br />   )<br />   (princ Str)<br />   (PRINC)<br /> )<br /> <br /> ;;;加载gcljs菜单<br /> (defun c:gcljs()<br /> (if  (not (menugroup "gcljs"))<br />     (progn<br />       (command ".undo" "c" "n" ".menuload" "gcljs" ".undo" "")<br />       (menucmd "p11=GcGroup.pop1")<br />     )<br />   )<br />   )<br /> (princ)[/FONT]

程序及菜单文件：

bolixin

xyp1964  斑竹：你好！
首先感谢你的帮忙！
现在我才发现实际上不是程序的问题，是我电脑本身的问题，你的程序我在其他电脑上试过了，运行正常，但在我的电脑上就不行，我也不知道是什么原因。
我的QQ是375278076，如果方便请加我。
再次感谢各位！！！