[求助]：大虾帮忙改一下程序

zxcvbnm-cad

我把几个lisp程序放在一起
想把<1>作为默选
不知怎么改

[php]
(defun c:xx()
(initget "1 2 3 ")
(setq (getkword "\n输入类型[tt1(1)/tt2(2)/tt3(3)]:"))
(cond ((= num "1")(c:tt1))
       ((= num "2")(c:tt2))
       ((= num "3")(c:tt3))
)
(prin1)
)
[/php]

xyp1964

未经测试：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
|;

(defun c:xx ()
  (cmdla0)
  (setq
    num        (UKWORD 1 "1 2 3" "\n输入类型：tt1(1)/tt2(2)/tt3(3)" num)
  )
  (cond        ((= num "1") (c:tt1))
        ((= num "2") (c:tt2))
        ((= num "3") (c:tt3))
  )
  (cmdla0)
)[/php]

zxcvbnm-cad

谢谢斑竹
不能用,请再改一改
参数类型错误: stringp 127
偶不想用xyp_lib通用函数
命令行能不能像这样提示:
[php]输入类型[tt1(1)/tt2(2)/tt3(3)]<1>:[/php]