Leaderboard

Good thinking. But for surveying, this is setting a problem. The coordinates are the wrong way round, i.e. the Northings are first then the Eastings. If you can work with that, then good, but you will produce a drawing that conventional surveyors would be perplexed with.

Hi, Something like this ? (defun c:test (/ ss n ent name lst) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)) blocks (vla-get-Blocks acdoc) ) (princ "\Select bloc to rename or Enter for all.") (if (or (ssget '((0 . "INSERT"))) (ssget "_X" '((0 . "INSERT")))) (if (setq pref (getstring "\nEnter the prefix to add: ")) (progn (vlax-for b (setq ss (vla-get-ActiveSelectionSet acdoc)) (setq name (vla-get-name b)) (if (not (vl-position name lst)) (setq lst (cons name lst)) ) ) (foreach n lst (vla-put-Name (vla-item blocks n) (strcat pref n)) ) ) ) ) (princ) )