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

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

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

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)))
)

账号		自动登录	找回密码
密码			注册

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