Question

[Anonymous]

HI,
I found this sort of lisp:
(defun ppn_get:edata (E1 ITEM ITEM# / E1DATA)
(if E1
(progn
(setq E1DATA (entget (car E1)))
(set (read ITEM) (cdr (assoc ITEM# E1DATA)))
)
)
)
But i do not much get of it.
It test wheter there is object or not.Right?
And then..........

[pciganek]

something like:

(ppn_get:edata [entsel return value] [varname as string] [dxf code as integer])

?

Command: (ppn_get:edata (entsel) "objnam" 0)

Select object: "TEXT"

Command: !objnam
"TEXT"

- There are simpler ways to get the dxf value - but then, I don't know what the programmer needed.

Peter