pline 안에 있는 텍스트를 파일로 추출하는 리습질문
컨텐츠 정보
- 277 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
제가 가지고 있는 리습중에 pline으로 영역을 만들고 지금 가지고 있는 리습을 쓰면 텍스트파일로 만들어지면서 그 안에 텍스트들이 저장이 됐었는데 지금은 뭐가 문제인지 저장이 안되더군요…
이게 있어야 작업이 편한데 ㅠㅠ
(defun c:VertexFile ( / File oFile )
(if (setq File (getfiled "Create a Text File" "C:\" "txt" 9))
(progn
(setvar "osmode" 0)
(initget 7)
(setq tHeight (getdist "n문자 높이 값 입력: "))
(setq pLlst (ssget))
(setq sw 0)
(repeat (sslength pLlst)
(setq selPl (ssname pLlst sw))
(if (= "LWPOLYLINE" (cdr (assoc 0 (entget selPl))))
(progn
(setq plNmae (strcat "Line_" (itoa (+ 1 sw))))
(setq oFile (open (strcat File plNmae ".txt") "W"))
(setq fPt (cdr (assoc 10 (entget selPl))))
(command "text" "j" "mc" fpt "250″ "0″ (itoa (+ 1 sw)) "")
(foreach x (entget selPl)
(if (= 10 (car x))
(progn
(setq xVal (rtos (cadr x) 2 4)
yVal (rtos (caddr x) 2 4)
)
(setq wLine (strcat xVal "t" yVal))
(write-line wLine oFile)
)
)
)
;;;(write-line plNmae oFile)
(close oFile)
);;;(progn
);;;(if (= "LWPOLYLINE" (cdr (assoc 0 selPl)))
(setq sw (1+ sw))
);;;(repeat (sslength pLlst)
);;;(progn
);;;if (setq File (getfiled "Create a Text File" "c:\" "txt" 9))
(princ)
)
(defun c:TextFile ( / File oFile )
(if (setq File (getfiled "Create a Text File" "C:\" "txt" 9))
(progn
(setvar "osmode" 0)
(setq selCont (car (entsel "nSelect a Contour : ")))
(setq ptLst nil
sw 0
)
(if (= "LWPOLYLINE" (cdr (assoc 0 (entget selCont))))
(progn
(foreach x (entget selCont)
(if (= 10 (car x))
(progn
(setq xVal (cadr x)
yVal (caddr x)
)
(setq ptVal (list xVal yVal))
(setq ptLst (append ptLst (list ptVal)))
)
)
);;;(foreach x (entget selPl)
(setq selLst (ssget "_CP" ptLst '((0 . "TEXT"))))
(if (/= selLst nil)
(progn
(setq oFile (open File "W"))
(repeat (sslength selLst)
(setq selText (ssname selLst sw))
(setq fpt (cdr (assoc 10 (entget selText))))
(setq strName (cdr (assoc 1 (entget selText))))
;;;(command "point" fpt)
(setq wLine (strcat strName "t"
(rtos (car fpt) 2 4) "t"
(rtos (cadr fpt) 2 4)
)
)
(write-line wLine oFile)
(setq sw (1+ sw))
);;;(repeat (sslength selLst)
(close oFile)
);;; (progn
);;; (if (/= selLst nil)
;;;
;;;
;;;
);;; (progn
);;; (if (= "LWPOLYLINE" (cdr (assoc 0 (entget selCont))))
);;; (progn
);;; (setq File (getfiled "Create a Text File" "C:\" "txt" 9))
(princ)
)
뭐가 문제일까요..
제발 살려주세요 ㅠㅠ