홈/ 질문/Q 173217
다음
진행 중
승현0125
Lv.0
등록일: 2022-10-08T19:11:04+09:00 카테고리:

리습 공차오류 질문 합니다.

2015오토 캐드 사용 중입니다.
명령어 입력하면 streamp nil 오류가 나옵니다.

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    4 답변

    1. aalan
    2. Lv.0
      (수정됨)

      ; 공차 데이터 화일 쓰기 및 읽기
      (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)
      )

      • 0