用法
评论
建议
取 消
确 定
(defun std:getinput (promptstr inplist default / inp) "获取输入,结合initget和getkword函数" (initget (if default 0 1) (string::from-lst inplist " ")) (if (setq inp (getkword (strcat (if promptstr (strcat promptstr " [") "[") (string::from-lst inplist "/") "]" (if (and default (member default inplist)) (strcat " <" default ">: ") ": ")))) inp default))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新