홈/ 질문/Q 109232
다음
진행 중
Lv.0
등록일: 2017-12-19T08:49:24+09:00 카테고리:

Text 좌표 추출 리습이 있을까요?

아래의 스샷과 같이 해당 Text의 형상에 해당하는 X,Y,Z 좌표를 Excel이나 Text파일로 추출할 수있는 방법이 있을까요??

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. (defun c:TXOUT (/ elist en fn fname i ss xyz)
      (setvar “cmdecho” 0)
      (prompt “n* Text file written to directory of current drawing *”)
      (if (setq ss (ssget (list (cons 0 “TEXT”))))
      (progn (setq fname (getstring “n* Enter text file name: “))
      (if (= fname “”)
      (setq fname (substr (getvar “dwgname”) 1 (- (strlen (getvar 
      “dwgname”)) 4))))
      (setq fn (open (strcat (getvar “dwgprefix”) fname “.txt”) “w”))
      (setq i -1)
      (repeat (sslength ss)
      (setq i (1+ i))
      (setq en (ssname ss i)
      elist (entget en)
      pt (cdr (assoc 10 elist))
      xyz (strcat “X:” (rtos (car pt)) “, Y:” (rtos (cadr pt)) “, Z:” (rtos (caddr pt)))
      )
      (write-line xyz fn))
      (close fn)))
      (princ (strcat “n* Text file ” (getvar “dwgprefix”) fname ” has been 
      created *”))
      (setvar “cmdecho” 1)
      (setq fn (strcat (getvar “dwgprefix”) fname “.txt”))
      (startapp (strcat “Notepad ” (chr 34) fn (chr 34))) 
      (princ))
      • 0

    3. 답변 감사합니다..
      저게 소스? 같은건가요? 어떻게 적용하면 되는 건가요?ㅠㅠ

      • 0

    4. 리습 요청하시면서 어떻게 적용하면 되다니요???

      • 0

    5. 아 저 소스를 어떻게 해야 Lisp 파일로 만들수 있는가에 대해 여쭤본 거였습니다 ㅎㅎ 해결했습니다. 감사합니다.

      • 0