Insert a block with attribute value from selected polyline

[Raúl Niembro]

This is a small routine to insert a block with attributes. the idea is to select a polyline with elevation, then insert the block, the elevation of the polyline is the value for the block attribute. I need help to make this routine work. i can select the polyline but then the routine crashes....



(defun eplat (/ ITEM1 ITEM2 xval2 yval2)
(setq precision (getvar "precisa"))
(setvar "precisa" 2)
(setq ITEM1 (getpoint "\nSeleccione Plataforma: "))
(setq ztext (rtos (caddr ITEM1)))
(setq ITEM2 (getpoint "\nIndique Ubicación: "))
(setq xval2 (car ITEM2))
(setq yval2 (cadr ITEM2))
(setq txtloc (list xval2 yval2))
(setvar ATTREQ 1)
(setvar ATTDIA 0)
(command "-insert" "eplat" txtloc "1" "1" "0" ztext)
(setvar ATTDIA 1)
(setvar "precisa" precision)
)