[编程交流] 自动更新标题blo

(defun c:upn ( / ss )
 ;; © Lee Mac 2010
 (if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "A#-Sheet") (66 . 1))))
   (
     (lambda ( i / file l dwg rev e el )
       (setq file (getvar 'DWGNAME) l (strlen file))
       (setq dwg (substr file 1 (- l 6))
             rev (substr file (- l 4) 1))
       (while (setq e (ssname ss (setq i (1+ i))))
         (while
           (not
             (eq "SEQEND"
               (cdr
                 (assoc 2
                   (setq el
                     (entget
                       (setq e
                         (entnext e)
                       )
                     )
                   )
                 )
               )
             )
           )
           (cond
             (
               (eq "DRGNUM" (cdr (assoc 2 el)))
               (Update (SubstDXF 1 dwg el))
             )
             (
               (eq "CADFILE" (cdr (assoc 2 el)))
               (Update (SubstDXF 1 file el))
             )
             (
               (eq "REV" (cdr (assoc 2 el)))
               (Update (SubstDXF 1 rev el))
             )
           )
         )
       )
     )
     -1
   )
 )
 (princ)
)
(defun SubstDXF ( code value elist )
 ;; © Lee Mac 2010
 (entmod
   (subst
     (cons code value) (assoc code elist) elist
   )
 )
)
(defun Update ( elist )
 ;; © Lee Mac 2010
 (entupd
   (cdr (assoc -1 elist))
 )
)