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

bpf19880323

在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

p0用P33代替试试

bpf19880323

xyh 发表于 2012-2-12 09:32
p0用P33代替试试

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

Andyhon

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

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

Menu basic

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