Hi all
I am trying to edit Text in Dimension with this lisp but gives as image.
How to modify Text to be as image.
Thanks in advance.
(defun c:F2D ( / DIMSS DTX)
(setvar "cmdecho" 0)
(setq DIMSS (SSGET '((0 . "*DIMENSION"))))
(SETQ TYP "{\H0.9375x;\Q20;\W0.7;\C1;AS STRUCK FROM MOULD FINISH\XAS PER APPROVED SAMPLE}")
(setq c -1)
(repeat (sslength DIMSS)
(setq DTX (ENTGET (SSNAME DIMSS (setq c (1+ c)))))
(setq DTX (SUBST (CONS 1 TYP) (ASSOC 1 DTX) DTX)
)
(ENTMOD DTX)
)
(PRINC)
)