用法
评论
建议
取 消
确 定
(defun file:list-to-stream (out_file intlist / adodb) (setq intlist (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray 17 (cons 0 (1- (length intlist)))) intlist) 8209)) (setq adodb (vlax-get-or-create-object "adodb.stream")) (vlax-put-property adodb (quote type) 1) (vlax-invoke adodb (quote open)) (vlax-put adodb (quote position) 0) (vlax-invoke-method adodb (quote write) intlist) (vlax-invoke adodb (quote savetofile) out_file 2) (and adodb (vlax-invoke adodb (quote close))) (and adodb (vlax-release-object adodb)) (princ))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号