Change blocked text with multiple change it property

[avinash patil]

Hi!

I want to change blocked text its width of text and add suffix, I have attached my Code to check where I am wrong?

Thanks,

Avinash patil

(defun c:PnXx(/ txtname sslen c1 txtnm txtnm1 opptxtnm opptxtnm2 e memno opptxtnm2 pnnewtext v2d)  (setq txtname (ssget (list (cons 0 "insert"))))
      (setq sslen (sslength txtname))
  (setq c1 0)
    (while (> sslen c1)
      (setq txtnm (entnext (ssname txtname c1))) ;selection for Attrib
      (setq txtnm1 (ssname txtname c1))	;selection for text
      (setq opptxtnm (entget txtnm))
      (setq opptxtnm2 (entget txtnm1))
      (if (= (cdr (assoc 0 (entget txtnm1))) "INSERT")
	(progn
	  (cdr (assoc 0 (setq e (entget txtnm))))
	  (setq memno (cdr (assoc 1 e)))
	)				;end progn
      )					;end if
(if (= (cdr (assoc 0 opptxtnm)) "TEXT")
	(setq memno (cdr (assoc 1 opptxtnm)))
      )
      (setq PNNewText (strcat memno "X"))
      (setq v2d (subst (cons 1 PNNewText) (assoc 1 e) e))
      (entmod v2d)
      (entupd txtnm)
      (if (= (cdr (assoc 0 opptxtnm2)) "TEXT")
        (setq memno1 (cdr (assoc 41 opptxtnm2)))
      )
      (setq v2d1 (subst (cons 41 0.65) (assoc 41 e) e))
      (entmod v2d1)
      (entupd txtnm1)
  (setq c1 (+ c1 1))
)
  (princ)
  )

[dlanor]

Are you trying to change TEXT entities in blocks, Attributes in blocks or both?