bpf19880323 发表于 2012-2-11 21:43:11

求助：lisp下拉菜单的问题？

在04版cad的R16里的acad.mns文件的最末尾保存一下文本：
***POP33

**wsfj

       [污水配件]

       [重复标注]cf

       [--]

       [->地漏]

       [普通地漏]GPS_ws_dlpm

       [洗衣机地漏]GPS_ws_xyjdlpm

       [网框地漏]GPS_ws_wkdl

       [<-侧地漏]GPS_ws_crsdl
lisp程序为：
(Defun C:FA ()
(setvar "cmdecho" 0)
(menucmd "P0=acad.wsfj")
(menucmd "P0=*")
(setq enl (getstring (strcat "\n请选择附件:")))
(command "-insert" enl pause "1" "1" "0")
(princ)
)

程序运行后并不能显示正常的下拉菜单，而是显示：
                                                            临时追踪点(K)
                                                            自(F)
                                                            点过滤器(T)
                                                               ....
我是新手，弄了好久都没弄明白是错哪里了，希望高手们帮忙解决下，先谢过了




xyh 发表于 2012-2-12 09:32:18

p0用P33代替试试

bpf19880323 发表于 2012-2-12 10:14:06

xyh 发表于 2012-2-12 09:32 static/image/common/back.gif
p0用P33代替试试

貌似不行呀，这样的话直接显示nil呢

Andyhon 发表于 2012-2-12 10:38:12

Ref:

Menu basic
http://www.afralisp.net/archive/lispa/menu1.htm

Customization Tutorials
http://www.afralisp.net/archive/index.htm
==>
AutoLisp and Menu's

bpf19880323 发表于 2012-2-12 13:43:47

Andyhon 发表于 2012-2-12 10:38 static/image/common/back.gif
Ref:

Menu basic


非常感谢你，很好的资料，再次谢谢了

sjl_fyl 发表于 2024-6-21 11:42:37

{:1_1:}学习
页: [1]
查看完整版本: 求助：lisp下拉菜单的问题？