Legen Sie ein Suffix oder Präfix auf einen ausgewählten Text ein

[blubossa]

wie kann ich einen suffix oder ein präfix auf einen ausgewählten text setzen?

 

[blubossa]

ich habe es gelöst.

wenn jemand braucht......

 

[PlannerRoad]

illustrieren sie die lösung, wenn sie wollen..

 

[blubossa]

illustrieren sie die lösung, wenn sie wollen..

hier ist sie.

;
; verfahren zum einfügen eines suffix auf einen oder mehrere ausgewählte texte;
;; mit der gleichen logik ist es einfach, sogar ein präfix zu verwalten, oder jede string hinzuzufügen;
(defun c:txs1 ()

(setvar "cmdecho" 0)
(initget 1 "sx dx")
(setq antwort (getkword "\n wähle hand: sx dx:" )

(wenn (= antwort "sx")
(setq suf "_sx")
(setq suf "_dx)
;

(prompt "\nselect the texts: "

(sectq text1)
(setq länge (länge text1)
(setq zählt 0)
(repeatlänge)
(setq bb (name text1 zählt)
(setq aa (entget bb))
(falls (gleich 0 "text") (assoc 0 aa))
(progn)
(setq verkauft)
(setq snew (strcat verkauft suf)
(subst (cons 1 snew) (assoc 1 aa)
(entupd)
)
)
(setq zählt (1+ zählt)
);repeat
(princ)
;