Leaderboard

Ok, got it, thank you

I didn't get chance to do more to this this week, but if Tharwats works then all is good. I'll store what I did away - am sure parts of it will be useful in other places too (cut and paste, it is great!)

Where you using this as your example? ronjonp is using ssget with "X" option that select everything with out using mouse clicks. Your using ssget with the ":L" option that requires you to select things with your mouse. meaning the selection has all the entity's + the last point picked with the mouse and is shown like this when processed thought only (mapcar 'cadr This means it will try enget on everything in that list. <Entity name: 384ff500> - ok <Entity name: 384ff180> - ok <Entity name: 384ffb40> - ok (0 (12762.6821816407 3114.44834460322 0.0)) - errors here You have to wrap the mapcar to remove any lists (aka point data) in the list so your only left with entity names. (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) TLDR; (foreach e (mapcar 'cadr (ssnamex s)) - use only with SSGET "X" (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) - use with all other ssget --edit using (command deselects things so if you had stuff selected before running the command it won't be anymore and will have to re select everything. use the following to avoid (command allowing you to have things selected before you use the command. (vl-load-com) (vla-startundomark (setq Drawing (vla-get-activedocument (vlax-get-acad-object))) ... code (vla-endundomark Drawing)

Paid for the Tharwat's program after a few rectifications that suits my other needs like some text description should be RED color(match with their block and line type color)

Ah, go on, if you are quoting Lee Mac, I'll see your nested burst and raise you Copy Swap Text (CTX), (http://lee-mac.com/copytext.html) RTN from this function (defun copyswaptext:getselection ( msg ini / rtn sel str tmp ) returns the selected entity name and the text value - what the inputs are can be found in the rest of the code. CTX is one of my favourite functions, tried making up similar but it was never quite as good as his - well worth having in your LISP library