[编程交流] 重命名/恢复所有动态b

(defun c:blockrepair (/ #blk)
(vl-load-com)
(setq #blk (entsel))
(blockfix)
);;
(defun blockfix (/ obj #blk)
(vl-load-com)
(setq obj (vlax-ename->vla-object (car #blk)))
(vlax-put obj 'Name (vlax-get obj 'Effectivename)) 
)

(defun c:test (/ acdoc ss i sset nme #blk)
 (vl-load-com)
   (setvar "cmdecho" 1)
 (if
   (setq ss (ssget))
    (repeat
      (setq i (sslength ss))
       (setq sset (ssname ss (setq i (1- i))))
       (setq #blk (cdr (assoc 0 (entget sset))))
      (blockfix)
    (princ)
     )
   )
 
)

(setq #blk (cdr (assoc [color=red]-1[/color] (entget sset))))

(setq obj (vlax-ename->vla-object [color=red][s](car[/s][/color] #blk[color=red][s])[/s][/color]))

(defun c:test (/ acdoc ss i sset nme #blk obj)
 (vl-load-com)
   (setvar "cmdecho" 1)
 (if
   (setq ss (ssget))
    (repeat
      (setq i (sslength ss))
       (setq sset (ssname ss (setq i (1- i))))
       (setq #blk (cdr (assoc -1 (entget sset))))
      (setq obj (vlax-ename->vla-object #blk))
(vlax-put obj 'Name (vlax-get obj 'Effectivename)) 
    (princ)
     )
   )
 
)

(setq ss (ssget "X" (list (cons 0 "INSERT"))))

(defun c:blockfixall2 (/ ss i sset  #blk obj blkname)
 (vl-load-com)
   (setvar "cmdecho" 1)
 (if
   (setq ss (ssget "X" (list (cons 0 "INSERT"))))
    (repeat
      (setq i (sslength ss))
       (setq sset (ssname ss (setq i (1- i))))
       (setq #blk (cdr (assoc -1 (entget sset))))
(setq obj (vlax-ename->vla-object #blk))
(setq blkame (strcase (vlax-get obj 'Effectivename)))
(IF 
   (= blkname "TAG_AREA") 
   (PROGN
    (setq obj (vlax-ename->vla-object #blk))
(vlax-put obj 'Name (vlax-get obj 'Effectivename))))
    
    (princ)
     )
   )
 
)

(defun LM:getanonymousreferences ( blk / ano def lst rec ref )
   (setq blk (strcase blk))
   (while (setq def (tblnext "block" (null def)))
       (if
           (and (= 1 (logand 1 (cdr (assoc 70 def))))
               (setq rec
                   (entget
                       (cdr
                           (assoc 330
                               (entget
                                   (tblobjname "block"
                                       (setq ano (cdr (assoc 2 def)))
                                   )
                               )
                           )
                       )
                   )
               )
           )
           (while
               (and
                   (not (member ano lst))
                   (setq ref (assoc 331 rec))
               )
               (if
                   (and
                       (entget (cdr ref))
                       (= blk (strcase (LM:al-effectivename (cdr ref))))
                   )
                   (setq lst (cons ano lst))
               )
               (setq rec (cdr (member (assoc 331 rec) rec)))
           )
       )
   )
   (reverse lst)
)
                       
;; Effective Block Name  -  Lee Mac
;; ent - [ent] Block Reference entity
(defun LM:al-effectivename ( ent / blk rep )
   (if (wcmatch (setq blk (cdr (assoc 2 (entget ent)))) "`**")
       (if
           (and
               (setq rep
                   (cdadr
                       (assoc -3
                           (entget
                               (cdr
                                   (assoc 330
                                       (entget
                                           (tblobjname "block" blk)
                                       )
                                   )
                               )
                              '("AcDbBlockRepBTag")
                           )
                       )
                   )
               )
               (setq rep (handent (cdr (assoc 1005 rep))))
           )
           (setq blk (cdr (assoc 2 (entget rep))))
       )
   )
   blk
)
(defun blockfixall (/ acdoc ss i sset nme #blk obj BLK)
 (vl-load-com)
   (setvar "cmdecho" 1)
   (setq blk "TAG_AREA");; this is the part where the specific block name is entered
   
 (if
   (setq ss (ssget "_X"
       (list '(0 . "INSERT")
           (cons 2
               (apply 'strcat
                   (cons blk
                       (mapcar '(lambda ( x ) (strcat ",`" x))
                           (LM:getanonymousreferences blk)
                       )
                   )
               )
           )
       )
   ))
    (repeat
      (setq i (sslength ss))
       (setq sset (ssname ss (setq i (1- i))))
       (setq #blk (cdr (assoc -1 (entget sset))))
      (setq obj (vlax-ename->vla-object #blk))
(vlax-put obj 'Name (vlax-get obj 'Effectivename)) 
    (princ)
     )
   )
 
)