Lv.0 등록일: 2017-12-192017-12-19T08:49:24+09:00 2017-12-19T08:49:24+09:00카테고리: AutoCAD & CADian Text 좌표 추출 리습이 있을까요? 아래의 스샷과 같이 해당 Text의 형상에 해당하는 X,Y,Z 좌표를 Excel이나 Text파일로 추출할 수있는 방법이 있을까요?? 공유 Facebook 관련 있는 질문들 This assert indicates that you didn't double-click on the advaddin.reg file 에러 조치 문의입니다. 정식 오토캐드 2025에서 사용가능한 피카츄가 있을까요 ? 메뉴 글자크기 조정 방법 40ft 컨테이너 캐드도면 4 답변 작성 순 최신 순 공감 순 [Deleted User] 2017-12-19T09:15:05+09:00답변 등록 답변 등록 일시 2017-12-19 9:15 am (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)) [Deleted User] 2017-12-19T10:43:29+09:00답변 등록 답변 등록 일시 2017-12-19 10:43 am 답변 감사합니다..저게 소스? 같은건가요? 어떻게 적용하면 되는 건가요?ㅠㅠ [Deleted User] 2017-12-19T16:11:14+09:00답변 등록 답변 등록 일시 2017-12-19 4:11 pm 리습 요청하시면서 어떻게 적용하면 되다니요??? [Deleted User] 2017-12-19T18:40:33+09:00답변 등록 답변 등록 일시 2017-12-19 6:40 pm 아 저 소스를 어떻게 해야 Lisp 파일로 만들수 있는가에 대해 여쭤본 거였습니다 ㅎㅎ 해결했습니다. 감사합니다.
답변 감사합니다..
저게 소스? 같은건가요? 어떻게 적용하면 되는 건가요?ㅠㅠ
리습 요청하시면서 어떻게 적용하면 되다니요???
아 저 소스를 어떻게 해야 Lisp 파일로 만들수 있는가에 대해 여쭤본 거였습니다 ㅎㅎ 해결했습니다. 감사합니다.