用法
评论
建议
取 消
确 定
(defun vectra:getkword1 (msg kwords default / r) (initget (vectra:string-connect (mapcar (quote car) kwords) " ")) (setq r (getkword (strcat msg " [" (vectra:string-connect (mapcar (function (lambda (e) (strcat (cadr e) "(" (car e) ")"))) kwords) "/") "] <" default ">: "))) (if (null r) default r))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号