For legacy reasons, entmake ignores DXF group code 100 data for the following entity types:
AcDbText
Thanks Hendie, but dxf code 100 shouldn't work because of that^.
Next question. The previous question was for my own understanding of how to use entmake. What I want to do now is figure out how to get lisp to take info from an attdef entlist that would apply to a text entlist and create it for a list collection of entlists. Here's what I have come up with:
First, using Mark's recursive function, with a minor mod.
(defun ss->ent-list (ss lst)
(cond ((ssname ss 0)
(setq lst (vl-list*
(entget (ssname ss 0))
lst
)
)
(ss->ent-list (ssdel (ssname ss 0) ss) lst)
) ; 1st cond
((null (ssname ss 0)) lst) ; 2nd cond
) ; cond
)
So, then I collect the list with this:
(setq attcoll (ss->ent-list (ssget "x" '((0 . "ATTDEF"))) nil))
I am thinking that mapcar would do well here, but this:
(setq alist ‘(410 8 10 40 50 41 51 7 71 72 11 1 73))
(setq elist (list (cons 0 “TEXT”)) (mapcar ‘assoc alist attcoll))
^That gives me a list for each item in the attcoll list i.e. item 1 returns the 410 list, item 2 returns the 8 list. So on and so forth until it reaches the end of attcoll list. Question: What do I need to do to set up a list for each object in attcoll and return a list of entity lists? Or, how can I remove the attribute info from each entity in attcoll and change the values of 0 to “TEXT” instead of “ATTDEF”?