Topic: Need a lisp to replace blocks

[mtubbs]

I need a lisp that will  look for blocks "A, B, C, D...etc", and replace them with blocks "1, 2, 3, 4...etc.". So..."A" is replaced by "1", "B" is replaced by "2", and so on. It needs to maintain the blocks rotation, layer, and so on. All of these have attributes, but the attributes between each set is the same..("A"' attribute is identical to "1"'s attribute). I have a solution that works with a single selection by "ENTSEL". But I need an automated solution that replaces all instances of each in the drawing. I tried to call (c:-blockreplace) into the lisp, but i couldn't specify the entry data automatically. Help!

This is what I have so far:

Code: [Select]

;Replace blocks
;
(defun c:rb (bss / n lst)
   (if (tblsearch "block" "ID_KEY2")
      (progn
         (setq bss (ssget "x" '((2 . "ID_KEY2")(410 . "Model")))))
         (if (/= bss nil)
            (repeat (setq n (sslength bss))
               (setq n (1- n)
                         lst (cons (ssname bss n) lst)
                );end setq
             );end repeat
          );end if
         (foreach n lst (subst(cons 2 "ID_KEY2-E")(assoc 2 n) n))
       );end progn
    );end if
);end defun


[ronjonp]

Could you not just redefine the block definition?

[T.Willey]

If nothing but geometry changes, then you can just change the dxf code for the name of it.

[ronjonp]

This code is not complete but something to mull over...let me know if you need further help.

Code: [Select]

(defun c:rb (/ bss el lst n name)
  (setq n -1)
  (if (setq bss (ssget "x" '((0 . "INSERT") (2 . "A,B,C,D") (410 . "Model"))))
    (progn (repeat (sslength bss) (setq lst (cons (ssname bss (setq n (1+ n))) lst)))
           (foreach n lst
             (setq el   (entget n)
                   name (cdr (assoc 2 el))
             )
             (cond ((= name "A") (do something))
                   ((= name "B") (do something))
                   ((= name "C") (do something))
                   ((= name "D") (do something))
             )
           )
    )
  )
)

[Bob Wahr]

Code: [Select]

(defun c:bobit ()
 (command ".-rename" "b" "a" "1")
 (command ".-insert" "1=" nil)
 (command ".-rename" "b" "b" "2")
 (command ".-insert" "2=" nil)
 (command ".-rename" "b" "c" "3")
 (command ".-insert" "3=" nil)
 (command ".-rename" "b" "d" "4")
 (command ".-insert" "4=" nil)
 (command ".-purge" "b" "*" "n")
)Elegance?  Proper coding?  I know not these words.

[Kerry]

form follows function ... there IS elegance in integrity.

... besides, your naming convention wins points full in my estimation.

[Andrea]

check here

By the Way...MTUBBS...
Welcome to theSwamp ! 

[Bob Wahr]

... besides, your naming convention wins points full in my estimation.

Well, it is just a snippet.