Extended Entity Data...

[caduser]

(setq text "wirecut to size")
(regapp "WCHOLE")
(setq wctext '((-3 ("WCHOLE" (1000 . text)))))
(setq new (append e1 wctext))
(entmod new)

how to put (text "wirecut to size") after 1000 . is't use cons or what

 

[caduser]

thanks you... it's work

The single quote tells LISP to not evaluate the following expression, so the value of "text" is not evaluated.

(setq text "wirecut to size")
(regapp "WCHOLE")
(setq wctext (list (list (list -3 "WCHOLE" (cons 1000 text))))) (setq new (append e1 wctext))
(entmod new)