kan ik (via filter) alle geselecteerde single line text; gelijktijdig "underlinen"?
dus %%u voor alle *varies* value's zetten?
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)
)
dank je silverster!
werkt perfect