2013-07-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch · 发表于 2013-7-21 20:30:20

张牙舞爪(13885696)于2013-07-21 20-30-20：
冰心，能否把你的MNU发给我学习下，

CCarch · 发表于 2013-7-21 20:30:21

冰心(494326805)于2013-07-21 20-30-21：
有没有哪个大侠也遇到这个情况？如何解决

CCarch · 发表于 2013-7-21 20:30:42

张牙舞爪(13885696)于2013-07-21 20-30-42：
冰心，能否把你的MNU发给我学习下，

CCarch · 发表于 2013-7-21 20:30:45

张牙舞爪(13885696)于2013-07-21 20-30-45：
冰心，能否把你的MNU发给我学习下，

CCarch · 发表于 2013-7-21 20:30:51

冰心(494326805)于2013-07-21 20-30-51：
***MENUGROUP=JCWSGJS
***POP12
ID_JCWSGJS[接触网施工计算]
ID_RuanHengKua[软横跨预制计算]^c^c^_(load "jcwsgjs.VLX");rhkyz
[--]

CCarch · 发表于 2013-7-21 20:30:53

ZZXXQQ(1468225785)于2013-07-21 20-30-53：
有函数MENUCMD可以设置

zml84 · 发表于 2013-7-21 20:31:13

ZML84(389280742)于2013-07-21 20-31-13：
铁路啊

CCarch · 发表于 2013-7-21 20:31:13

冰心(494326805)于2013-07-21 20-31-13：
+CTT.pop3"))
            ;; (menucmd (strcat "p" (itoa n) "=+CTT.pop2"))
            (menucmd (strcat "p" (itoa n) "=+CTT.pop1"))
            (setq n 25)
         )                         ;progn
      )                            ;if
      )                            ;while
   )                               ;progn
)                                  ;if
(princ)
  ) ;; 这个函数用来插入菜单条
  ;; The following code "placemenu" from LUCAS(龙龙仔)
  (defun ctt_placemenu (/ n)
(if (menugroup "CTT")
   (progn
      (setq n 1)
      (while (< n 24)
      (if (menucmd (strcat "P" (itoa n) ".1=?"))
         (setq n (+ n 1))
         (progn
            (if (> n 3)
            (setq n (- n 2))
            (setq n 3)
            )                      ;if
            ;; 如需插入多条菜单，以反序在这里写：
            ;; 因只有一条下拉菜单，因此这里4，3，2条注释掉
            ;; (menucmd (strcat "p" (itoa n) "=+CTT.pop4"))
            ;; (menucmd (strcat "p" (itoa n) "=

CCarch · 发表于 2013-7-21 20:31:21

冰心(494326805)于2013-07-21 20-31-21：
用这段函数设置了，没起作用

CCarch · 发表于 2013-7-21 20:31:43

冰心(494326805)于2013-07-21 20-31-43：
***MENUGROUP=CTT
***POP12
ID_JCWSGJS[接触网施工计算]
ID_RuanHengKua[软横跨预制计算]^c^c^_(load "jcwsgjs.VLX");rhkyz
[--]

CCarch · 发表于 2013-7-21 20:31:52

冰心(494326805)于2013-07-21 20-31-52：
现在的菜单代码是这个

CCarch · 发表于 2013-7-21 20:34:40

张牙舞爪(13885696)于2013-07-21 20-34-40：
ID_JCWSGJS 前面这个是用来干什么的？

CCarch · 发表于 2013-7-21 20:36:16

冰心(494326805)于2013-07-21 20-36-16：
东西已经发给你了

CCarch · 发表于 2013-7-21 20:38:09

张牙舞爪(13885696)于2013-07-21 20-38-09：
重发下，

CCarch · 发表于 2013-7-21 20:38:10

张牙舞爪(13885696)于2013-07-21 20-38-10：
断了，

账号		自动登录	找回密码
密码			立即注册