리습 질문에 올라와 있는거 받아서 약간 수정점 했는데요..
중복텍스트 찾는 리습인데 무작위 좌표로 된 중복텍스트를 라인으로 연결해서 위치를 표시해 주는 리습인데 한개 텍스트는 잘되는데 여려 텍스트를 선택하면 실행은 되는데 마지막에 ESC 키를 눌러야 함수 오류로 뜨고 멈춰지더라고요 이거 수정할 수 있는 방법이 있을까요?
;텍스트 중복 확인
;Duplicate Text Check
(defun c:dtc(/ sel num sname slist stxtv spt count nname nlist ntxtv npt osmode ortho clayer)
(setq osmode (getvar “osmode”))
(setq ortho (getvar “orthomode”))
(setq clayer (getvar “clayer”))
(setvar “osmode” 0)
(setvar “orthomode” 0)
(setq sel (ssget ‘((0 . “TEXT”))))
(setq num (sslength sel))
(command “layer” “m” “check” “c” “1” “check” “”)
(repeat num
(setq sname (ssname sel 0))
(setq slist (entget sname))
(setq stxtv (cdr (assoc 1 slist)))
(setq spt (cdr(assoc 10 slist)))
(if (and (/= stxtv nil) (/= stxtv “N”))
(progn
(setq count 1)
(while (setq nname (ssname sel count))
(setq nlist (entget nname))
(setq ntxtv (cdr (assoc 1 nlist)))
(setq npt (cdr (assoc 10 nlist)))
(if (= stxtv ntxtv)
(command “pline” spt npt “”)
);if (= stxtv ntxtv)
(setq count (1+ count))
);while
);progn
);if (/= stxtv nil) (/= stxtv “N”)
(ssdel sname sel)
);repeat num
(setvar “osmode” osmode)
(setvar “orthomode” ortho)
(setvar “clayer” clayer)
(princ)
)
공유