1번 텍스트의 포인트를 2번 포인트로 변경하는 리습 질문 드립니다..
justifytext 명령어를 사용할경우 텍스트의 위치는 그대로이고 가운데 포인트만 생성되는데
그림에서 처럼 가운데 포인트가 생기면서 그 가운데 포인트가 처음포인트의 왼쪽으로 이동하는게 필요합니
다.. 그림에서 보시면 라인은 고정이라고 생각하시면 되고요..
;—————————————————————————
(DEFUN c:JTM() ; 글자기준. 가운데
; (setq ent (car (entsel)))
(SETQ GE1(ssget ‘((0 . “TEXT”))) n(sslength GE1) i 0)
(repeat n
(SETQ OA1(ENTGET (SETQ SN1(SSNAME GE1 i))))
(SETQ OK1(CDR (ASSOC 0 OA1)))
(SETQ TC1(ASSOC 1 OA1))
(SETQ TXT1(CDR TC1))
(command “Justifytext” SN1 “” “M”)
(COMMAND “CHPROP” SN1 “” “C” 1 “”)
(SETQ i (1+ i))
)
)
;————————————————————————-