안녕하세요
가입하고 처음 글을써보는거같아요.
종종 리습관련 궁금증이있을때 사이트를 방문 하여 도움을 얻었는데 이번에는 있으면 좋겠다 싶은 리습이 생겨 문의하고자 글을 써봅니다.
제가 리습에 문외한이라서 만들어볼까하고 이것저것 조금 찾아보다가 제가 원하는리습을 만드는 방법이 없는거 같아 이렇게 염치 불구하고 고수님들의 도움을 얻고자합니다.
본론으로 들어가서 제가 원하는 방법은 사진의 하단 텍스트 SUS(304) 10T 6EA라고 제가 MTEXT로 작성해놓았는데요 리습을 통하여 제품 안쪽에 적어놓은 M=304 T=10 Q=6텍스트를 DTEXT로 변환하며 추가 되게하는 리습을 만들고 싶습니다.
M같은경우는 자재들이 종류가 있다보니 많은 변수가 추가 되어야할거같은데 가능할까요?
이게 맞을까요?
(defun c:MM(/ *error* spt spt1 spt2 spt3 os)
(defun *error* (msg)(princ “nerror: “)(princ msg)
(setvar ‘OSMODE os)
(princ)
)
(setq os (getvar “OSMODE”))
(setvar “OSMODE” 0)
(setq spt 0)
(setq spt1 0)
(setq spt (getpoint “n문자의 시작점을 클릭하세요 : “))
(setq spt1 (getreal “n문자크기를 입력하세요 : “))
(setq spt2 (car spt))
(setq spt3 (nth 1 spt))
(setq n 0)
(while (<= n 5)
(setq pt1 (list spt2 spt3 0))
(if (= n 0)
(progn
(setq Textval0 (getstring “nP=”))
(setq Textval1 “P=”)
)
)
(if (= n 1)
(progn
(setq Textval0 (getstring “nM=”))
(setq Textval1 “M=”)
)
)
(if (= n 2)
(progn
(setq Textval0 (getstring “nT=”))
(setq Textval1 “T=”)
)
)
(if (= n 3)
(progn
(setq Textval0 (getstring “nQ=”))
(setq Textval1 “Q=”)
)
)
(if (= n 4)
(progn
(setq Textval0 (getstring “nR=”))
(setq Textval1 “R=”)
)
)
(if (= n 5)
(progn
(setq Textval0 (getstring “n기타사항:”))
(setq Textval1 “RM=”)
)
)
(setq Textval7 (strcat Textval1 Textval0))
(if (not (= Textval0 “”))
(progn
(command “text” pt1 spt1 0 Textval7)
(setq spt3(- spt3 (+ 2 spt1)))
(setq n(+ n 1))
)
(progn
(setq n(+ n 1))
)
)
)
(setvar ‘OSMODE os)
(princ)
)
명령:WT ; 오류: *오류* 오류 기능 인수 유형 오류: FILE nil
제가 명령어 바꿔서 적용시켰는데 이렇게 뜨네요 ㅠㅠ
(defun c:WT(/ *error* spt spt1 spt2 spt3 os)
(defun *error* (msg)(princ “nerror: “)(princ msg)
(setvar ‘OSMODE os)
(princ)
)
(setq os (getvar “OSMODE”))
(setvar “OSMODE” 0)
(setq spt 0)
(setq spt1 0)
(setq spt (getpoint “n문자의 시작점을 클릭하세요 : “))
(setq spt1 (getreal “n문자크기를 입력하세요 : “))
(setq spt2 (car spt))
(setq spt3 (nth 1 spt))
(setq n 0)
(while (<= n 5)
(setq pt1 (list spt2 spt3 0))
(if (= n 0)
(progn
(setq Textval0 (getstring "nP="))
(setq Textval1 "P=")
)
)
(if (= n 1)
(progn
(setq Textval0 (getstring "nM="))
(setq Textval1 "M=")
)
)
(if (= n 2)
(progn
(setq Textval0 (getstring "nT="))
(setq Textval1 "T=")
)
)
(if (= n 3)
(progn
(setq Textval0 (getstring "nQ="))
(setq Textval1 "Q=")
)
)
(if (= n 4)
(progn
(setq Textval0 (getstring "nR="))
(setq Textval1 "R=")
)
)
(if (= n 5)
(progn
(setq Textval0 (getstring "n기타사항:"))
(setq Textval1 "RM=")
)
)
(setq Textval7 (strcat Textval1 Textval0))
(if (not (= Textval0 ""))
(progn
(command "text" pt1 spt1 0 Textval7)
(setq spt3(- spt3 (+ 2 spt1)))
(setq n(+ n 1))
)
(progn
(setq n(+ n 1))
)
)
)
(setvar 'OSMODE os)
(princ)
)
https://cafe.naver.com/autocats/2143
캣츠 판금 전개 리습에 MTQ 입력하는 기능들이 있습니다.
메뉴얼도 참고해보시고 필요한 기능이 있는지 살펴보세요 ~ ㅎㅎ
메뉴얼
답변 감사합니다.
찾아보니 MTQ입력하는 기능이있던데 캣츠 판금 설치를 해야하더라구요.
제가 필요한건 본문과 같은 기능만 필요한거라서 그 부분만 사용할수있는 방법이 있나해서 글을 올렸습니다.