0 Members and 2 Guests are viewing this topic.
Do you also have an idea how to set attributes on a background?Autocad can't do that.Thanks
Attached is the dwgI use the text background command (see image)Thanks
Unfortunately, I don't know the commands from the XDRX API that make simple Lisp possible.True, just a request, it doesn't have to be that way anyway.Danke
(defun c:blatt2txt ( / ssbl ssbln bl att a b );; ATT zu Text (setq ssbl (ssget '((0 . "INSERT")))) (repeat (setq ssbln (sslength ssbl)) (setq bl (ssname ssbl (setq ssbln (1- ssbln)))) (if (eq (cdr (assoc 66 (entget bl))) 1) (while (not (eq (cdr (assoc 0 (entget (if att (setq att (entnext att)) (setq att (entnext bl)))))) "SEQEND")) (setq a (member (assoc 210 (reverse (entget att))) (reverse (entget att)))) (setq b (member (assoc 100 (reverse a)) (reverse a))) (entmakex (append (list '(0 . "TEXT")) b)) (entmod (subst (cons 1 "") (assoc 1 (entget att)) (entget att))) ) ) ) (princ))