Print pagina - copieer tekst naar attribute in een geseleerde block

Titel: copieer tekst naar attribute in een geseleerde block
Bericht door: jaap marchal op di 07 12 2010, 21:06:35

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

Titel: Re:copieer tekst naar attribute in een geseleerde block
Bericht door: roy_043 op wo 08 12 2010, 09:30:11

Dit misschien?:

Code Selecteer


(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))

CADsite forum

AutoCAD => Autolisp => Topic gestart door: jaap marchal op di 07 12 2010, 21:06:35