엔지니어 기술블로그

;    UNDER SCORES TEXT (문자 밑줄그리기)
(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:UBTXT ()
(UNDR)
)