iamhuangjinming 发表于 2021-9-11 15:51:32

想要一个获取当前cad文件大小（看有几M）的lisp

我们在协同服务器上绘图，所以有时候不知道文件是不是变得超大了，要处理一下。 打开外部参照命令可以看到当前文件的大小，但是不想一直开着外部参照窗口。

gaics 发表于 2021-9-11 16:20:59

本帖最后由 gaics 于 2021-9-11 16:25 编辑

命令：vl-file-size
(vl-file-size (strcat(getvar 'DWGPREFIX)(getvar 'DWGNAME)))

iamhuangjinming 发表于 2021-9-11 23:27:18

gaics 发表于 2021-9-11 16:20
命令：vl-file-size
(vl-file-size (strcat(getvar 'DWGPREFIX)(getvar 'DWGNAME)))

感谢~~~~~~~~~~~~

尘缘一生 发表于 2024-11-3 10:18:30

(defun dwgform_file_size (strFile / reaSize)
(setq reaSize (float (vl-file-size strFile)))
(cond
    ((< reaSize 1024)                           (setq strSize (strcat (rtos reaSize 2 0) " B")))
    ((< (setq reaSize (/ reaSize 1024.0)) 1024) (setq strSize (strcat (rtos reaSize 2 0) " KB")))
    ((< (setq reaSize (/ reaSize 1024.0)) 1024) (setq strSize (strcat (rtos reaSize 2 2) " MB")))
    ((setq reaSize (/ reaSize 1024.0))       (setq strSize (strcat (rtos reaSize 2 2) " GByte")))
); cond
strSize
)
;;----------------
(defun c:tt ()
        (dwgform_file_size (strcat (getvar 'DWGPREFIX) (getvar 'DWGNAME)))
)
页: [1]
查看完整版本: 想要一个获取当前cad文件大小（看有几M）的lisp