지적 수치지도에서 지번(text)을 엑셀이나 기타 문서로 줍는 방법이 없을까여?
아시는 분이 계시면 쩜 갈쳐주세여…
다정다감이라는 플그램으루두 함 해봤는데…
거기선 일정하게 정렬이 되어있지 않은 텍스트는 엑셀루 뿌려지지 않더군여
지적도에선 지번이 하두 여기저기 정신없이 널려 있어서여…
아크뷰로 불러들여서 어케 하는 방법이 있긴하다구 하는데…
딴 방법은 없을까여? 없음 아크뷰로 줍는 방법이라두 아시는 분은 리플 부탁드려여 ^^
공유
(defun c:txt ( )
; (command "layer" "s" "0" "f" "*" "t" "필요한 layer" "")
(setq name (getstring "text filename :"))(terpri)
(setq path (getvar "dwgprefix"))
(setq gono (strcat path name))
(setq doname (strcat gono ".txt"))
(command "cmdecho" 0)
(princ "n *** 지명 속성 DATA FILE 작성 *** FILE NAME —>")
(princ doname)
(princ)
; (setq a (ssget "x" (list (cons 0 "TEXT"))))
(setq a (ssget))
(setq no 0)
(setq sno 0)
(setq b (sslength a) no 0)
(setq fw (open doname "w"))
(repeat b
(setq ss (ssname a no))
(setq pl (entget ss))
(if (= (cdr (assoc 0 pl)) "TEXT")(progn
(setq la (cdr (assoc 8 pl)))
(setq te (cdr (assoc 1 pl)))
; (setq s-data (strcat te))
(setq s-data (strcat la " , " te))
(setq wl (write-line s-data fw))
(setq sno (+ sno 1))
))
(setq no (+ no 1))
)
(close fw)
(princ " write no ==> ")
(princ sno)
(princ)
)
(defun c:txy ( )
(setq name (getstring "text filename :"))(terpri)
(setq path (getvar "dwgprefix"))
(setq gono (strcat path name))
(setq doname (strcat gono ".txt"))
(command "cmdecho" 0)
(princ "n *** 지명 속성 DATA FILE 작성 *** FILE NAME —>")
(princ doname)
(princ)
(setq a (ssget))
(setq no 0)
(setq sno 0)
(setq b (sslength a) no 0)
(setq fw (open doname "w"))
(repeat b
(setq ss (ssname a no))
(setq pl (entget ss))
(if (= (cdr (assoc 0 pl)) "TEXT")(progn
(setq la (cdr (assoc 8 pl)))
(setq te (cdr (assoc 1 pl)))
(setq tX (cdr (assoc 10 pl)))
(setq txx (rtos (car tx)))
(setq txy (rtos (cadr tx)))
(setq txz (rtos (caddr tx)))
(setq s-data (strcat la " , " te " , " txx " ," txy " , " txz))
(setq wl (write-line s-data fw))
(setq sno (+ sno 1))
))
(setq no (+ no 1))
)
(close fw)
(princ " write no ==> ")
(princ sno)
(princ)
)
감사합니다. 큰 도움이 됐습니다.
감사합니다. 지번들 어떻게 할까 고민되었는데 리습으로 간단히 해결되었습니다.