need lisp to get y coordinate as attribut 1

[dopa72]

i have a block with attribute and must set in the y coordinate. the fastes way i thing is get a lisp witch use the coordinates. who can help me?

 

[CarlAK]

If the block has only one attribute, the following should work for one block at a time:

(princ "\nType LY to start &quot
(defun c:ly ()
(setq BlockEnt (car (entsel "\nSelect block to label: &quot))
(setq ycoord (cadr (cdr (assoc 10 (entget BlockEnt)))))
(setq ytxt (rtos ycoord))
(setq AttEnt (entnext BlockEnt))
(setq AttData (entget AttEnt))
(Setq AttTxt (assoc 1 AttData))
(setq NewData (subst (cons 1 ytxt) AttTxt AttData))
(entmod NewData)
(entupd BlockEnt)
(princ)
)

 

[dopa72]

i have create this and loadet and when i typ ly then comes "seleckt block to label" and when i pick to block its say "; error: bad argument type: lentityp nil"

 

[dopa72]

sorry, it works fantastic !!! great