cyh3278 发表于 2003-5-26 16:01:00

下拉菜单调用出现lisp程序的问题

当用下拉菜单调用程序时，如果中途使用了别的命令，如放大，erase，再使用菜单调用程序时，就会出现如图的错误，即不识别调用的lisp程序，而识别上一次的操作，如放大，erase。这是为什么呢？

cyh3278 发表于 2003-5-26 16:03:00

程序即菜单

cyh3278 发表于 2003-5-26 16:12:00

菜单程序

***MENUGROUP=夹紧件

***POP1
[夹紧件]
[带肩六角螺母]^C^C^P(if (not c:diadjljlm) (load "diadjljlm"))(c:diadjljlm) ^P
[->球面带肩螺母]
^C^C^P(if (not c:diaqmdjlmA) (load "diaqmdjlmA"))(c:diaqmdjlmA) ^P
[<-B型]^C^C^P(if (not c:diaqmdjlmB) (load "diaqmdjlmB"))(c:diaqmdjlmB) ^P
[连接螺母]^C^C^P(if (not c:dialjlm) (load "dialjlm"))(c:dialjlm) ^P
[调节螺母]^C^C^P(if (not c:diatjlm) (load "diatjlm"))(c:diatjlm) ^P
[内六角螺母]^C^C^P(if (not c:dianljlm) (load "dianljlm"))(c:dianljlm) ^P
[圆螺母]^C^C^P(if (not c:diaylm) (load "diaylm"))(c:diaylm) ^P
[--]
[->压紧螺钉]
^C^C^P(if (not c:diaGByjldA) (load "diaGByjldA"))(c:diaGByjldA) ^P
^C^C^P(if (not c:diaGByjldB) (load "diaGByjldB"))(c:diaGByjldB) ^P
[<-C型]^C^C^P(if (not c:diaGNyjldC) (load "diaGByjldC"))(c:diaGByjldC) ^P
[->六角头压紧螺钉]
^C^C^P(if (not c:dialjtyjldA) (load "dialjtyjldA"))(c:dialjtyjldA) ^P
^C^C^P(if (not c:dialjtyjldB) (load "dialjtyjldB"))(c:dialjtyjldB) ^P
[<-C型]^C^C^P(if (not c:dialjtyjldC) (load "dialjtyjldC"))(c:dialjtyjldC) ^P
[->滚花头手旋螺钉]
^C^C^P(if (not c:diaghtsxldA) (load "diaghtsxldA"))(c:diaghtsxldA) ^P
[<-B型]^C^C^P(if (not c:diaghtsxldB) (load "diaghtsxldB"))(c:diaghtsxldB) ^P
[压紧螺钉]^C^C^P(if (not c:diayjld) (load "diayjld"))(c:diayjld) ^P
[阶形螺钉]^C^C^P(if (not c:diajxld) (load "diajxld"))(c:diajlld) ^P
[--]
[->球头螺栓]
^C^C^P(if (not c:diaqtlsA) (load "diaqtlsA"))(c:diaqtlsA) ^P
^C^C^P(if (not c:diaqtlsB) (load "diaqtlsB"))(c:diaqtlsB) ^P
[<-C型]^C^C^P(if (not c:diaqtlsC) (load "diaqtlsC"))(c:diaqtlsC) ^P
[--]
[十字垫圈]^C^C^P(if (not c:diaszdq) (load "diaszdq"))(c:diaszdq) ^P
[十字垫圈用垫圈]^C^C^P(if (not c:diaszdqydq) (load "diaszdqydq))(c:diaszdqydq) ^P
[->开口垫圈]
^C^C^P(if (not c:diakkdqA) (load "diakkdqA"))(c:diakkdqA) ^P
[<-B型]^C^C^P(if (not c:diakkdqB) (load "diakkdqB"))(c:diakkdqB) ^P
[加大垫圈]^C^C^P(if (not c:diajddq) (load "diajddq"))(c:diajddq) ^P
[--]
[->移动压板]
^C^C^P(if (not c:diaydybA) (load "diaydybA"))(c:diaydybA) ^P
^C^C^P(if (not c:diaydybB) (load "diaydybB"))(c:diaydybB) ^P
[<-C型]^C^C^P(if (not c:diaydybC) (load "diaydybC"))(c:diaydybC) ^P
[->转动压板]
^C^C^P(if (not c:diazdybA) (load "diazdybA"))(c:diazdybA) ^P
^C^C^P(if (not c:diazdybB) (load "diazdybB"))(c:diazdybB) ^P
[<-C型]^C^C^P(if (not c:diazdybC) (load "diazdybC"))(c:diazdybC) ^P
[->移动宽头压板]
^C^C^P(if (not c:diaydktybA) (load "diaydktybA"))(c:diaydktybA) ^P
[<-B型]^C^C^P(if (not c:diaydktybB) (load "diaydktybB"))(c:diaydktybB) ^P

cyh3278 发表于 2003-5-26 16:44:00

程序包

龙龙仔 发表于 2003-5-27 08:03:00

注意^C^C^P(if (not

cyh3278 发表于 2003-5-27 19:45:00

^C^C^P(if (not 没有空格

我的下拉菜单程序中^C^C^P(if (not没有之间空格，你有没有把我的程序包拿去调试一下，程序包已经上传了。很急！这是我的毕业设计，都快答辩了，还没有搞好。

龙龙仔 发表于 2003-5-28 08:02:00

但你上傳的mnu上有空格,所以請再確認是否使用了有空格的菜單

cyh3278 发表于 2003-5-28 14:33:00

你指的是哪个地方，是不是最后一个(c:diadjljlm) ^P,能否说清楚一点

[带肩六角螺母]^C^C^P(if (not c:diadjljlm) (load "diadjljlm"))(c:diadjljlm) ^P

cyh3278 发表于 2003-5-28 15:15:00

我把not该为null后，就可以，不过还有点问题，麻烦你看看我的程序

就是当我用下拉菜单调用是，如果中途执行其他命令，如erase，再次调用该程序时，零件就不能旋转了，我怀疑是不是跟程序当中的选择集有关

cyh3278 发表于 2003-5-28 15:41:00

这个是程序

页: [1] 2
查看完整版本: 下拉菜单调用出现lisp程序的问题