MTEXT 의 폭비율 수정하는 리습 질문 드립니다.
컨텐츠 정보
- 274 조회
- 0 추천
- 0 비추천
- 목록
본문
폭비율 변경하는 리습관련해서 질문드립니다.
DTEXT는 폭비율 (장평?)이 수정이 되는데, MTEXT는 안되네요,,
MTEXT 어떤것을 수정해야 되는지 고수님의 도움이 필요합니다.
{T0.9;ABCDEF}
MTEXT내 속성에서 0.9 만 바꾸는 리습이 있을까요?
아래 리습은 DTEXT의 폭비율을 바꿔주는 리습입니다. 요걸로 MTEXT의 폭비율 수정이 가능한지요?
(DEFUN C:TW( / SS1 HT NUM INDEX ENTL CO ENTL1 ASS)
(SETQ SS1 (SSGET ))
(SETQ HT (GETREAL "ENTER NEW TEXT WIDTH ?:"))
(SETQ NUM (SSLENGTH SS1))
(SETQ INDEX 0)
(REPEAT NUM
(SETQ ENTL (ENTGET (SSNAME SS1 INDEX)))
(SETQ INDEX (1+ INDEX))
(SETQ ASS (ASSOC 0 ENTL))
(IF (= "TEXT" (CDR ASS))
(PROGN
(SETQ ASS1 (ASSOC 41 ENTL))
(SETQ CO (CONS (CAR ASS1) HT))
(SETQ ENTL1 (SUBST CO ASS1 ENTL))
(ENTMOD ENTL1)
)
)
)
)