HELP: List routine wont work on muliline text only single line text.

[ECASAOL350033]

Hey guys,

Just need to know if anyone can help me with a routine that was written a while ago.
Basically, it has the capabilities to add additional increments to a single line text attribute withing a block.

(Defun c:Pilnum (/ startnumber limit
nestedobjsectselectionmode
entitydata
selectedentitytype
attributeValuetobereplace
)
;;;; dumbed down as per your request ;;;
(initget 7)
(while (not (progn
(setq startnumber (getstring "\nEnter Start number: "))
(if (and
(numberp (setq limit (read startnumber)))
(<= limit 2000000))
limit
(and (princ "\n<Invalid number>") nil)))))
(while (setq nestedobjsectselectionmode (car (nentsel "\nSelect Attribute/Enter to exit:")))
(setq entitydata (entget nestedobjsectselectionmode))
(setq selectedentitytype (cdr (assoc 0 entitydata)))
(if (eq selectedentitytype "ATTRIB")
(progn
(setq attributeValuetobereplace (assoc 1 entitydata))
(entmod (subst (cons 1
(strcat "" (itoa limit)))
attributeValuetobereplace
entitydata))
(setq limit (+ 1 limit))
)
(princ "\nNot an attribute definition"))
)
(princ)
)




is there a way to get it to work with multiline text?

Thanks in advance.. Rico

[pbejse]

(Defun c:Pilnum (/ startnumber limit
nestedobjsectselectionmode
entitydata
selectedentitytype
attributeValuetobereplace
)
;;;; dumbed down as per your request	 ;;;
(princ "EDP Pillar Increment by Rico")
.....

That looks awfully familiar. --> Right here

[ECASAOL350033]

yes!!!!

the man!!!

is there a way to make it work on multiline attributes?

[pbejse]

is there a way to make it work on multiline attributes?

to be on the cear, Multiline attributes? not MTEXT? or ALSO for MTEXT/TEXT/Multi Line Attributes?

(Defun c:INC (/ startnumber limit estedobjsectselectionmode
	       entitydata selectedentitytype )
;;;	Add Vl function to avoid issues with Annotative properties	;;;
  (initget 7)
  (while (not
	   (progn
	     (setq startnumber (getstring "\nEnter Start number: "))
	     (if (and
		   (numberp (setq limit (read startnumber)))
		   (<= limit 2000000)
		 )
	       limit
	       (and (princ "\n<Invalid number>") nil)
	     )
	   )
	 )
  )
  (while (progn
	   (setq nestedobjsectselectionmode
		  (car
		    (nentsel
		      "\nSelect Attribute/Enter to exit:"
		    )
		  )
	   )
	   (setq entitydata (entget nestedobjsectselectionmode))
	   (setq selectedentitytype (cdr (assoc 0 entitydata)))
	   (wcmatch selectedentitytype "ATTRIB,*TEXT")
	 )
    (vla-put-textstring
      (vlax-ename->vla-object nestedobjsectselectionmode)
      (itoa limit)
    )
    (setq limit (+ 1 limit))
  )

  (princ)
)
(vl-load-com)