whenever we load anylinetype that uses "ltypeshp.shx" we seem to get an unnamed textstyle in our dwg. If we purge "ltypeshp" then that unnamed text style goes away. That unnamed text style often will not be listed using usual commands but if you use tnlist' copied from 'ac_bonus.lsp' (R14) then it does list. THat is if I type (tnlist "style") in a file that has that uses ltypeshp.shx or a in a dwg in which such a file is xrefd then I get for example: ("STANDARD" "RBTEXT48" "MONO1" "REFNOTE" "") notice the last item in the list is un-named, which is why it does not show up in other lists such as the text styles. There is no name to list it is "". This how can I fix this. I don't know what is causing it. Is there a patch. (AutoCAD 200 Reason I need to fix is that sometimes an xref will not load when there are un-named definitions it.
If needed:
;'tnlist' copied from 'ac_bonus.lsp' (R14) to insure that
;routines calling this UNDOCUMENTED function continue to operate when
;using future versions of AutoCAD
(defun tnlist ( tbna / a lst)
(if (and (equal (type tbna) 'LIST) (equal (cadr tbna) 16))
(progn
(setq tbna (car tbna))
(while (setq a (tblnext tbna (not a))); a acts as a rewind first time
(if (not (equal 16 (logand 16 (cdr (assoc 70 a)))))
(setq lst (append lst (list (cdr (assoc 2 a)))))
);if
);while
);progn then local only
(progn
(while (setq a (tblnext tbna (not a))); a acts as a rewind first time
(setq lst (append lst (list (cdr (assoc 2 a)))))
);while
);progn else
);if
lst
)