안녕하세요^^
다름이 아니오라 일주일째 연구하다가 도저히 안되겠어서 고수님들에게 도움 요청 합니다.
내용은 아래 리습은 완성된 것은 아닙니다. 의도는 여러게 텍스트를 선택후 동일한 택스트를 한개만 써지게 할 것입니다. 그런데 조건문을 잘못했는지??? 반복순환에 문제가 있는지 통 모르겠내요…..자꾸 같은글씨 갯수 만큼 써지내요. 도움 부탁드립니다.
(defun C:MLI ()
(setq str_p (getpoint “n 쓰여질 부호 상부 위치을 선택 하세요 : “))
(setq mem_t_@ (getdist “n 쓰여질 부호 간격을 정 하세요 : “))
(setq mem_sel (ssget))
(setq ro_num 0)
(while
(setq en (ssname mem_sel ro_num))
(setq en_dxf (entget en))
(setq en_t_dxf (assoc 1 en_dxf))
(setq en_text (cdr en_t_dxf))
(if (/= en_text en_text_a) ;<===요기서 조건을 잘못 햇는지???
(progn
(setq en_text_a en_text)
(command “text” “j” “mc” str_p (* 2.5 (getvar “ltscale”)) 0.0 en_text)
(setq str_p (list (car str_p) (- (cadr str_p) mem_t_@)))
)
)
(setq ro_num (1+ ro_num))
)
)