用法
评论
建议
取 消
确 定
(defun vectra:edit-value (msg old / value) (cond ((= (quote real) (type old)) (setq value (getdist (strcat msg " <" (rtos old 2 2) ">: ")))) ((= (quote int) (type old)) (setq value (getint (strcat msg " <" (itoa old) ">: ")))) ((= (quote list) (type old)) (setq value (getpoint (strcat msg " <" (vl-princ-to-string old) ">: ")))) ((= (quote str) (type old)) (setq value (getstring (strcat msg " <" old ">: "))))) (if (or (null value) (= "" value)) old value))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号