Code Red > AutoLISP (Vanilla / Visual)

xdata retrieval... what's wrong

(1/1)

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: ---(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)
)
--- End code ---

CAB:
Try this:

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

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

Navigation

[0] Message Index