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

(defun “@”Hec-data-setting(/ “@”Hec-data-first-list “@”Hec-data-read @Hec-data-while-list)

“@”문자 값이 사용자 아이디 테그에 걸리는 듯 합니다.

관련 내용 확인 해보겠습니다.

알려주신 방법으로 한번 해보시겠습니다 답변 너무 감사드립니다 정말 너무 감사드립니다

왜 그런지 모르겠지만 “c:\폴더추가\Dim-Tol-History.dat” 이런식으로 폴더를 추가 하면 작동을 합니다 그리고 이렇게 게시글로만 올리시면 복붙과정에서 정상적인 문자가 비정상적인 문자로 변해버려서 테스트 하기 힘들어집니다 제 컴퓨터에서는 쌍따옴표가 쌍따옴표로 인식인 안되는군요

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