특정 설정을 하면 도면을 열때마다 설정값과 다를때 경고창 표시 기능 추가 가능여부 > 기능 제안 및 요청

의도를 잘 이해하지는 못했지만...

아래 문장을 복사해서
../xicad/Lisp/_Onekey.lsp  파일을 메모장으로 열어서 넣어 시면 되세요.

** 아래 문장에서 물음표 ?  를 원하시는 숫자로 바꾸어야 합니다.

(if (/= (getvar 'LTSCALE) ?)
  (alert (strcat "  설정값과 도면이 다름. 도면값: " (rtos (getvar 'LTSCALE) 2 1)))
)

• 답변

감사합니다 의도한 기능이 맞아요

• 답변
• 삭제

참고로... 여러 도면의 선축척은 MSL 의 스크립트 명령으로 바꿀 수 있습니다.

• 답변

감사합니다 스크립트 명령어 쪽에
LTSCALE
10
이라는 글자 두개를 입력하니까 바뀌네요
근대 혹시
캐드 게시기능으로 PDF 만들때

../xicad/Lisp/_Onekey.lsp쪽에 추가해 놓은 기능 때문에
설정해 놓은 경고창이 뜨는데

../xicad/Lisp/_Onekey.lsp쪽에 추가해 놓은 기능 삭제하는 방법 말고
일시적으로 무력화하는 방법있나요?

• 답변
• 삭제

있긴 하지만, 이 것은 개인적인 용도에 국한되는 기능이라서.. 제가 만들어 드릴 수는 없고,
올려 드린 함수에서 alert  이라는 문자를 prompt 로 바꾸면, 명령창에서만 보이게 되므로, 성가실게 되지는 않을 텐데...

이미 xicad 를 깔면, 맨 처음에 도면의 선축척이 보이도록 해 놓았기에.. 결국 중복되는 기능이므로, 그렇게 사용하실거면, 삭제를 하시는 것이 좋습니다.

• 답변

명령창을 입력부분 빼고 줄어놔서 몰랐는데 기능이 이미 있었네요?

메모장같은데 저장해놨다가 필요할때만 추가해서 사용해야겠어요
감사합니다.

• 답변
• 삭제

(defun c:MYLTS ()
 (setq path-lts "C:\\xicad\\Lisp\\alertlts.lsp")
 (load path-lts)
)
(defun c:LTSEDIT ()
  (setq path-lts "C:\\xicad\\Lisp\\alertlts.lsp")
  (vl-mkdir (vl-filename-directory path-lts))
  (setq ltscale-value (getreal "\nLTSCALE 입력 : "))
  (setq fn (open path-lts "w"))
  (write-line (strcat "(if (/= (getvar 'LTSCALE) " (rtos ltscale-value 2 1) ")") fn)
  (write-line (strcat "  (alert (strcat \"  설정값과 도면이 다름. 도면값: \" (rtos (getvar 'LTSCALE) 2 1)))") fn)
  (write-line "(princ)" fn)
  (write-line ")" fn)
  (close fn)
  (prompt (strcat "\n" path-lts "을 생성하였습니다."))
  (princ)
)

연습 삼아 간단하게 수정해보았습니다

LTSEDIT으로 LTS값을 수정하고 필요할때만 MYLTS로 불러오시면 됩니다

조금이나마 사용하기 좋게 수정해 보려고 하긴 했는데

XICAD의 기본 출력 메세지와 MSL 기능을 이용하시는게 제일 편리할것 같습니다

• 답변
• 삭제

zwcad사용자님 수정 감사합니다

• 답변
• 삭제