리습 공차오류 질문 합니다.
컨텐츠 정보
- 39 조회
- 4 댓글
- 0 추천
- 0 비추천
-
목록
본문
2015오토 캐드 사용 중입니다.
명령어 입력하면 streamp nil 오류가 나옵니다.
관련자료
승현0125님의 댓글
; 공차 데이터 화일 쓰기 및 읽기 (defun @Hec-data-setting(/ @Hec-data-first-list @Hec-data-read @Hec-data-while-list) (setq @Hec-data-file “c:\Dim-Tol.dat”) ;;공차값 새로 쓰기 ———————————– (if (not (findfile @Hec-data-file)) (progn (setq @Hec-data-first-list (list ;”HCad 치수 공자 적용 리습의 환경 화일 입니다. 임의 변경 하지 마세요 !!!” “0.03” “0.01” “0.05” “0.02” “0.06” “0.03” “0.08” “0.05” “0.1” “0.05” “0.3” “0.1” “0.03” “0.05” “0.1” “0.5” “0.025” “0.05” “0.1” “0.5” “0.03” “0.05” “0.1” “0.5” “0.01” “0.03” “0.02” “0.05” “0.03” “0.06” “0.05” “0.08” “0.1” “0.05” “0.1” “0.3” “0.5” “0.8” “0.8” “0” “0” “Romans”)) (setq @Hec-data-write (open @Hec-data-file “w”)) (foreach x @Hec-data-first-list (write-line x @Hec-data-write)) (close @Hec-data-write));progn );if
;;공차값 읽어오기 ———————————— (setq @Hec-data-second-list ‘()) (setq @Hec-data-read (open @Hec-data-file “r”)) (setq @Hec-data-while-list (read-line @Hec-data-read)) (while @Hec-data-while-list (setq @Hec-data-second-list (append @Hec-data-second-list (list @Hec-data-while-list))) (setq @Hec-data-while-list (read-line @Hec-data-read)) );while (close @Hec-data-read) (setq @Hec-font (nth 41 @Hec-data-second-list)) ;; @Hec-data-second-list 에 목록 저장 (princ) )
;;—————————————————————— ;; 공차 HISTORY 쓰기 및 읽기 (defun @Hec-History-setting(/ @Hec-History-data-list @Hec-History-data-write @Hec-History-data-read @Hec-History-data-while-list ) (setq @Hec-History-data-file “c:\Dim-Tol-History.dat”) ;;공차값 새로 쓰기 ———————————– (if (not (findfile @Hec-History-data-file)) (progn (setq @Hec-History-data-list (list “+0.05” “+0.02” “2”)) (setq @Hec-History-data-write (open @Hec-History-data-file “w”)) (foreach x @Hec-History-data-list (write-line x @Hec-History-data-write)) (close @Hec-History-data-write));progn );if
;;공차값 읽어오기 ———————————— (setq @Hec-History-data-second-list ‘()) (setq @Hec-History-data-read (open @Hec-History-data-file “r”)) (setq @Hec-History-data-while-list (read-line @Hec-History-data-read)) (while @Hec-History-data-while-list (setq @Hec-History-data-second-list (append @Hec-History-data-second-list (list @Hec-History-data-while-list))) (setq @Hec-History-data-while-list (read-line @Hec-History-data-read)) );while (close @Hec-History-data-read) ;; @Hec-History-data-second-list 에 목록 저장 (princ) )
;;—————————————————————— ;; Ok 시 최근 공차 쓰기 (defun @Hec-History-Writing(/ @Ht-History-data-write @Ht-History-data-fourth @Ht-History-data-list @Ht-History-data-write) (if @Hec-History-data-thrid-list (setq @Hec-History-data-second-list @Hec-History-data-thrid-list)) (setq @Ht-History-data-fourth (caddr @Hec-History-data-second-list)) (setq @Ht-History-data-list (append @Ht-Tolence-Text-History (list @Ht-History-data-fourth))) (setq @Ht-History-data-write (open @Hec-History-data-file “w”)) (foreach x @Ht-History-data-list (write-line x @Ht-History-data-write)) (close @Ht-History-data-write) (princ) )