Topic: xdata retrieval... what's wrong

[uncoolperson]

I'm trying this out for the first time... errrr, can't figure out why it seems like it's putting the data with the ent... but then it's not there

Code: [Select]

(DEFUN setframe (text frame)
  (if (not (tblsearch "APPID" "FRAMEFUN"))
  (regapp "FRAMEFUN")
  )
  (REGAPP "FRAMEFUN")
  (SETQ text-ent (ENTGET text))
  (SETQ data (LIST
(LIST -3
       (LIST "FRAMEFUN"
     (CONS 1005 (CDR (ASSOC 5 (ENTGET frame))))
       )
)
       )
  )
  (IF (= (ASSOC -3 text-ent) nil)
    (SETQ new-ent (APPEND text-ent data))
    (SETQ new-ent (SUBST (ASSOC -3 text-ent) data text-ent))
  )
  (ENTMOD new-ent)
)

(DEFUN getframe (text)
  (SETQ data (CDR (CADR (CADR (ASSOC -3 (ENTGET text))))))
  (HANDENT data)
)

[CAB]

Try this:

Code: [Select]

(DEFUN getframe (text)
  (SETQ data (CDR (CADR (CADR (ASSOC -3 (ENTGET text'("FRAMEFUN")))))))
  (HANDENT data)
)

[JohnK]

Ok, if i can see the spelling mistakes in your thread title, you know its really screwed up.

[uncoolperson]

hey vanmilla is fun...


thanks CAB... you know it points that out in the help file, and I... I , i guess i just skipped that part.

Thank agian