用法
评论
建议
取 消
确 定
(defun file:read-stream (filename encoding / str stream *error*) "读入指定编码的文件内容" "String" "(file:read-stream \"d:\\hzfile.txt\" \"utf-8\")" (defun *error* (msg) (if (= (quote file) (type stream)) (close stream)) (princ msg) (princ)) (if (>= (atof (getvar "acadver")) 24) (progn (setq stream (open filename "r")) (setq str "") (while (setq str-line (read-line stream)) (setq str (strcat str "\n" str-line))) (close stream)) (progn (setq stream (vlax-create-object "ADODB.Stream")) (vlax-put-property stream (quote type) 2) (vlax-put-property stream (quote charset) encoding) (vlax-invoke stream (quote open)) (vlax-invoke-method stream (quote loadfromfile) filename) (setq str (vlax-invoke-method stream (quote readtext) -1)) (vlax-invoke-method stream (quote close)) (vlax-release-object stream))) str)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新