prefix in single line text

[jo-king]

kan ik (via filter) alle geselecteerde single line text; gelijktijdig "underlinen"?
dus %%u voor alle *varies* value's zetten?

[silverster]

het kan als het goed is hiermee is wel een lisp maar goed

UNDERSCORES TEXT  by Jeff Foster
(DEFUN UNDR (/ CNT SCAL SS EN ED AS PT1 PT2 PT3 DIST1 SCAL1 SCL_F)
  (SETQ
    CNT NIL SCAL NIL SS NIL EN NIL ED NIL AS NIL PT1 NIL
  )
  (SETQ CNT 1)
  (PRINC "SELECT TEXT TO UNDERSCORE")
  (SETQ SS (SSGET))
  (WHILE (> (SSLENGTH SS) 0)
    (PROGN
    (SETQ EN (SSNAME SS 0))
    (SETQ ED (ENTGET EN))
    (SETQ AS (CDR (ASSOC '0 ED)))
    (COND ((= AS "TEXT")
      (SETQ ED (SUBST (CONS 1 (STRCAT "%%U" (CDR (ASSOC '1 ED))))
                   (ASSOC 1 ED)
                   ED
               )
      )
      (ENTMOD ED)
          )
    )
    (PRIN1)
    (SSDEL EN SS)
    )
  )
  (SETQ
    CNT NIL SCAL NIL SS NIL EN NIL ED NIL AS NIL PT1 NIL
  )
)

(DEFUN C:UNDRSCOR ()
  (UNDR)
)

[jo-king]

dank je silverster!

werkt perfect