Dati estesi

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,devo inserire il dato n. 9 nella lista di dati estesi ma sono completamente confuso per quanto riguarda la definizione esatta del codice :
Codice:
(defun C:PREPARASTAKE (/ FC1 Oggetto Lista Stringa N Entita Testo Txt1 Txt2 Lungh TheData NewList NomePunto TipoPunto QuotaSlm NomeX fp3 fp4 PosPar1 PosPar2 fp2 CoordsGeogr)

        (SERVOAIUTOICONE)

        (setvar "osmode" 16384)

        (setq Oggetto "Gruppo")
        (regapp Oggetto)
        (setq Stringa (ssget "_X" '((0 . "TEXT,MTEXT")(1 . "*"))))

        (setq N (sslength Stringa))
        (setq Numero N)

        (setq FC1 nil)
        (setq FC1 (findfile "C:\\AutocadSupporto\\Picchettamento\\FilePerStake.dat"))

        ;;(if FC1
            ;;(setq fp2 (open "C:\\AutocadSupporto\\Picchettamento\\FilePerStake.dat" "r"))
        );;if
          
        (repeat N   ;;(setq N (sslength Stringa))

            ;;(setq CoordsETEF989 (read-line fp2))

            (setq Entita (ssname Stringa (setq N (1- N))))
            (setq Xlist (assoc -3 Entita))
            (setq TxtData (car (cdr Xlist)))

            (setq NomeX (cdr (nth 1 TxtData)))   
            (setq TipoPunto (cdr (nth 2 TxtData)))
            (setq Quota (cdr (nth 3 TxtData)))
            (setq Ecef (cdr (nth 4 TxtData)))
            (setq GaussBoaga (cdr (nth 5 TxtData)))
            (setq ControlloStz (cdr (nth 6 TxtData)))
            (setq ControlloPt (cdr (nth 7 TxtData)))
            (setq CoordsGeogr (cdr (nth 8 TxtData)))
            ;;(setq CoordsETEF989 (cdr (nth 9 TxtData)))

            (setq OldList (entget Entita))
            (setq TheData (list -3 (list Oggetto (cons 1000 NomeX) (cons 1000 TipoPunto) (cons 1000 Quota) (cons 1000 Ecef) (cons 1000 GaussBoaga) (cons 1000 ControlloStz) (cons 1000 ControlloPt) (cons 1000 CoordsGeogr) (cons 1000 CoordsETEF989))))

            (setq NewList (append OldList (list TheData)))
            (entmod NewList)


       );;repeat

       ;;(close fp2)

    ); defun
E' evidente l'inesattezza nella definizione di > Xlist <.
Grazie.