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 관련 있는 질문들 캐드 기계설계 보조 프로그램을 찾고있습니다. 오토리습 open함수 질문 3D 작업중 화면이동시 좌표계가 계속 돌아감 선배님들 덕트 엘보 작성 리습좀 봐주세요 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 파일로 만들수 있는가에 대해 여쭤본 거였습니다 ㅎㅎ 해결했습니다. 감사합니다.