multiple [enter]
ddatte [enter]
Sorry. I'm away from my AutoCAD station posting from an iPad. I thought running the multiple command followed by the ddatte command should continuously prompt you to select attributed blocks. If no one posts anything I'll be on AutoCAD tomorrow and can cook up a little routine. Cheers.
Let's see ... carry the 1 ... yep, that should do it. Nicely done Lee.
;; Formerly TIP 1011: ME.LSP (C)1994, Gary Goode
;; (I've changed the name to DD.LSP and changed the defun to DD, B.K.)
;This program will let you pick and edit multi text and attributes
;by window, pick or crossing using dialog boxes.
;-----------------------------------------------------------------
(defun C:DD (/ A B C D E F G H J K L M )
(graphscr)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(setvar "HIGHLIGHT" 1)
(prompt "\nMulti-Edit is loaded ... ")
(setq A (ssget) B (sslength A) C 0)
(while (< C B) (setq D (ssname A C) E (entget D))
(setq F (car E))
(setq G (cdr E))
(setq H (car G))
(setq J (cdr H))
(setq K "TEXT")
(setq L "INSERT")
(setq M "DIMENSION")
(if (= J K)(command ".ddedit" D ""))
(if (= J L)(command ".ddatte" D ))
(if (= J M)(prompt "\n You picked a dimension, I only do text or attributes ..."))(terpri)
(setq C (1+ C)))
(princ)
); end me.lsp
I appreciate the help of Lee and others, and it is my fault for not mentioning this before but I am not able to run this on AutoCAD for Mac. Running a google search I realize this is something not fully supported in the Mac version.