CADsite forum

Ik zoek een lisp routine om een geselecteerde text (single-line) te copieeren naar een attribute met de tag TAG1 in een geselecteerde block.

TKS,
Jaap

Dit misschien?:

(defun c:TextFromTo ( / source target)
  (if
    (and
      (setq source (car (nentsel "\nSelect source text or attribute: ")))
      (member (cdr (assoc 0 (setq source (entget source)))) '("ATTRIB" "MTEXT" "TEXT"))
      (setq target (car (nentsel "\nSelect target text or attribute: ")))
      (member (cdr (assoc 0 (setq target (entget target)))) '("ATTRIB" "MTEXT" "TEXT"))
    )
    (entmod
      (subst
        (assoc 1 source)
        (assoc 1 target)
        target
      )
    )
  )
  (princ)
)

(defun c:TFT () (c:TextFromTo))