用法
评论
建议
取 消
确 定
(defun string:l2s-ansi (lst-str / h% res) "byte or word 整数值列表转字符串。\n当小于128时,单字节,当两个连续的大于128时,双字节值。用于转换非英文字串时防止重码。\n当AutoCAD2021且lispsys=1时,与string:s2l-ansi 成对兼容 unicode." (if (<= 1 (getvar "lispsys")) (vl-list->string lst-str) (progn (setq h% 0) (setq res (quote nil)) (foreach word% lst-str (cond ((>= word% 32896) (setq res (cons (/ word% 256) res)) (setq res (cons (rem word% 256) res))) ((< word% 32896) (setq res (cons word% res))))) (vl-list->string (reverse res)))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新