안녕하세요…
제가 이번에 지번을 엑셀로 옮기는 작업을하고있는데…
일일이 눈으로 봐가며 수작업으로 엑셀로 옮기는데 ..눈이 빠질지경입니다.. 그래서 고캐드를 통해 지번줍는 리습이 있다는걸 알았는데 정작
사용법을 몰겠네요…
서럽습니다..흑흑…
이거 혹시 사용하실수 있는분은 설명좀 해주시겠어요?
플리즈 입니다.
ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
(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)
)
———————————————————————