extended data

[Angelo2449]

I have to enter data n. 9 on the list of extended data but I am completely confused with the exact definition of the code :

 (defun c:preparastake (/ fc1 object list string n entita text txt1 txt2 lungh thedata newlist namepoint quoteslm namex fp3 fp4 pospar2 fp2 coordsgeogr)

(Guidelines)

(Setvar "osmode" 16384)

(seq object "group")
(regapp object)
(setq string (ssget "_x"(0 . "text,mtext")(1 . "*")))))

(setq n (sslength stringa)
(setq number n)

(setq fc1 nil)
(setq fc1 (findfile "c:\\\\autocadsupport\\\\picchettamento\\\fileperstake.dat"))

;
;; (setq fp2 (open "c:\\\\\autocadsupport\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
);

(repeat n; (setq n (sslength stringa))

; (setq coordsetef989 (read-line fp2))

(setq entityta (ssname stringa (setq n (1-n)))))
(setq xlist (assoc -3 entities))
(setq txtdata (car))

(setq nomex (cdr)
(setq type of point (nth 2 txtdata)))
(setq share (cdr (nth 3 txtdata))))
(setq ecef (nth 4 txtdata)))
(setq gaussboaga (cdr 5 txtdata)))
(setq controllerstz (nth 6 txtdata)))
(setq controllerpt (nth 7 txtdata)))
(setq coordsgeogr (nth 8 txtdata)))
(cdr)

(setq oldlist (entget entita))
(setq thedata (list -3 (cons 1000 nomex) (cons 1000 point type) (cons 1000 quota) (cons 1000 ecef) (cons 1000 gaussboaga) (cons 1000 controllerstz) (cons 1000 controlpt) (cons 1000 coordsgeogr) (cons 1000 coordsetef989))

(setq newlist)
(entmod newlist)


);

;(close fp2)

);

the definition of > xlist < is evident.
Thank you.