안녕하세요,,,
TXT파일을 이용해서 여러줄문자를 인식 해야 하는데요…
여러줄문자가 한줄만 인식해서 실행합니다..
예 )13-004-0538-0100(%%C13)창동로 1900 —-> 메모장에서 이렇게 입력하고
저장 이름은 LIST 입니다.. 이코딩은 ANSI로 저장했습니다..
캐드로 이렇게 리습을 사용해서 캡처하면 두줄이 아니 한줄만 인식합니다..
(defun c:MHC ()
(setvar “cmdecho” 0)
(setq fileName (strcat (getvar “dwgprefix”) “LIST.TXT”)) <==리스트번호
(setq entFile (open fileName “r”))
(setq mhList (read-line entFile))
(setq folder (getstring “nCapture lmages를 저장할 폴더를 입력하세요 : “))
(while (/= mhList nil)
(setq ss (ssget “X” ‘((0 . “text,mtext”))))
(setq num (if ss (sslength ss) 0))
(setq index 0)S
(repeat num
(setq entName (ssname ss index))
(setq entList (entget entName))
(setq entStr (cdr (assoc 1 entList)))
(setq entXY (cdr (assoc 10 entList)))
(setq x (car entXY))
(setq y (cadr entXY))
(setq pt1 (list (+ x 80)(+ y 80)))
(setq pt2 (list (- x 80)(- y 80)))
(if (eq mhList entStr)
(progn
(command “chprop” entName “” “c” “1” “”)
(command “zoom” “c” entXY 80)
(setq sscap (ssget “c” pt1 pt2))
(command “jpgout” (strcat (getvar “dwgprefix”) folder “\” entStr”.jpg”) sscap “”)
(command “chprop” entName “” “c” “t” “200,200,200” “”)
) <progn>
) <if>
(setq index (+ index 1))
) <repeat num>
(setq mhList (read-line entFile))
) <while>
(close entFile)
(if (eq index num)
(alert “Sucessful Completion !!”)
)
) <defun>
(princ “nLoading Complete…… MHC : 캡쳐완료 !!”)
(princ)
사진 첨부 했습니다…