检查图名与文件名是否一致

自贡黄明儒

一张图一个文件的好处是便于搜索(如Everything)，PCCad就是这样规定的。
PCCad图框可以自定义，属性块是PC_TITLE_BLOCK，在属性块中我定义
了属性"图样代号"，利用保存时的反应器来检查图名与文件是否一致


我画的图是差不多的，常用一张来修改，以提高效率，改了文件名，忘了
改“图名”，打印出来后不知道相同的“图名”对应是哪个文件，这种错误不能再犯了

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;检查图名与文件名是否一致
;;针对pccad定义的图框和我常用的后一种图框(太不规范)
;;命令反应器
(VLR-DWG-Reactor
  nil
  '((:VLR-beginSave . command-beginSave))
)
(defun command-beginSave (a b / E EN NAME)
  (setq **DwgName** (cadr (fnsplitl (getvar "dwgname"))))
  (setq        e (ssget "X"
                 '((0 . "INSERT")
                   ;;(8 . "图框层")
                   (66 . 1)
                   (2 . "PC_TITLE_BLOCK,A$C00294823")
                  )
          )
  )
  (setq e (ssname e 0))
  (while (and (setq e (entnext e))
              (setq en (entget e))
              (not (equal (cdr (assoc 2 en)) "图样代号"))
         )
  )
  (setq name (cdr (assoc 1 en)))
  (if (not (wcmatch **DwgName** (strcat "*" name "*")))
    (alert "图名与文件名不符")
  )
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;检查图名与文件名是否一致


对于一个dwg，多个文件的情况，我认为也是可以的。可以用最短文件名，或者生成的第一个文件名，或者最后一个文件名来判断。

mikewolf2k

e2002 发表于 2022-10-14 22:28
图名内容直接使用 Field / FileName 就可以了，不需要这么复杂。

行业不同，一个dwg对应一张实际图纸并 ...

有规范的文档管理系统的都会要求一张图一个文件。尽可能从源头上解决问题。

自贡黄明儒

e2002 发表于 2022-10-14 22:28
图名内容直接使用 Field / FileName 就可以了，不需要这么复杂。

行业不同，一个dwg对应一张实际图纸并 ...

使用 Field / FileName不合适，文件名通常很长，带有其它信息。

自贡黄明儒

forverd 发表于 2022-10-17 17:02
如果文件名和图框内名称要求完全一致，就完全可以使用cad的“字段‘，这样连检查都节省了，只需要改了文件 ...

说的是。   

黄翔

学习一下.               

czb203

学习一下.

xj6019

检查图名与文件名是否一致

yshf

回复学习学习

Sonnenblumen

回复学习学习

行天下

检查图名与文件名是否一致

cqu20104225

学习一下，感谢分享

baby绑定命运线

学习一下，谢谢分享了

szhorse

前来学习，感谢分享经验