홈/ 질문/Q 31796
다음
진행 중
Lv.0
등록일: 2002-07-04T18:40:06+09:00 카테고리:

캐드 지적도에서 지번을 excel로 주울수 있는 방법이 없을까여?

지적 수치지도에서 지번(text)을 엑셀이나 기타 문서로 줍는 방법이 없을까여?
아시는 분이 계시면 쩜 갈쳐주세여…
다정다감이라는 플그램으루두 함 해봤는데…
거기선 일정하게 정렬이 되어있지 않은 텍스트는 엑셀루 뿌려지지 않더군여
지적도에선 지번이 하두 여기저기 정신없이 널려 있어서여…
아크뷰로 불러들여서 어케 하는 방법이 있긴하다구 하는데…
딴 방법은 없을까여? 없음 아크뷰로 줍는 방법이라두 아시는 분은 리플 부탁드려여 ^^

공유

    관련 있는 질문들

    4 답변

    1. aalan

    2. 감사합니다. 지번들 어떻게 할까 고민되었는데 리습으로 간단히 해결되었습니다.

      • 0

    3. 감사합니다. 큰 도움이 됐습니다.

      • 0
    4. Lv.1

      (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)

      )

      • 0
    5. Lv.1

      (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)

      )

      • 0