Leaderboard

Hi, Written a tool for replacing (updating) blocks. Had some spare time untill my boss recently used the W-word again (work , yak!) Anywayz , its a prototype so I'm not sure its stable and safe yet because I only did some lab testing. I hope it will be usefull. Not sure if I will be able to work on it further any time soon because I still have a few ideas and wishes. gr. Rlx RlxBlk manual.doc RlxBlk.lsp RlxBlk.dcl

@mhupp thanks for the idea! I managed to get it to work using that approach. @BIGAL is this what you ment? https://www.afralisp.net/archive/methods/lista/intersectwith_method.htm , I'm not familiar with it but will check it out.

Your on the right path with this. except I would do it a bit different. just create all the M and Z text like normal but add them to SS3 as you go (ssadd SS3 (entlast)) Then once all the text are created compare them to each other if the have the same point set that to a variable then delete both text and use that point to create M-Z text. (defun C:Foo (/ SS3 tlst pt) (setq SS3 (ssget '((0 . "TEXT") '(410 . "Model")))) ;this is for my testing. (setq tlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS3)))) (setq tlst (vl-sort tlst '(lambda (a b) (if (equal (assoc 10 (entget a)) (assoc 10 (entget b)) 1e-6) (progn (setq pt (assoc 10 (entget a))) (entdel a) (entdel b) (vl-cmdf "_.Text" pt "" "" "M-Z") ) ) ) ) ) (princ) ) looks like your creating text with bottom left so thats 10 but if its something else you need to use 11.