성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^
① CAD 종류 : cad
② VERSION : 2005
③ 운영 체제 :win7
④ 질문내용 및 스크린샷(이미지 및동영상)
아래리습은 회사에서 사용하는 볼트 리습입니다
레이어가 없다보니(setvar "clayer" "bolt")를 이용해서 레이어를 추가하려고 작업중인데요
볼트 명령어를 치고 볼트사이즈를 정하고 볼트위치를 찍게 되는데
이때 한번에 여러곳을 찍을수 있게 했습니다 그런데 볼트를 다 찍고 엔터를 안누르고 esc를 누르는 경우가
많은데요 이러면 레이어가 0번으로 돌아 가지 않습니다 혹시 방법이 있는지요
그리고 하나더 문의 드립니다
숫자 1번을 누르면 선택한 객체를1번 레이어로 1번색 라인타입 center로 변경하는리습은 만들었는데
색은 그래도 이고 1번 레이어로만 보내려 할때 단축키를 ctrl+1 키나 혹시 키패드의 숫자와 윗쪽 숫자키를 별도로 인식해서 단축키를 만들수 있을까요? 지금까지 리습들 보면 ctrl 이나 alt 조합 단축키는 없는듯 한데요 가능한지 궁금합니다
⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.
A-WBOLT.DAT
bolt.LSP
kk.LSP
kk는 bolt 리습과 연동이 됩니다
※ 유의사항
- ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^(필수 선택)
- ②Screenshot : 이해를 돕기위해 삽입요망.
- ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.
해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.
- ④제 목 : 질문 내용 반영(개략적인 내용), 예) 해치를 만들고 싶어요, pline을 연결할려면?
금지어(만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등)
- ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.
여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음.
※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.
회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해
검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.
이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.
첫댓글 1번 에러구문을 사용하셔야 합니다 보통 이렇게들 작성하시죠
(defun c:블라블라(/ 변수들....)
(defun *error* (msg)(princ "\nerror:")(princ msg)
(setvar 'clayer cl) ;esc나 다른이유로 리습실행이 중단됐을때 레이어 값을 cl로 변경
(princ) )
;;물론 리습 본문에
(setq cl(getvar 'clayer ));존재한다는 가정하에 ----------------------------------------
에러구문에 리습 초기설정을 넣으시면 (osmode, cmdecho 등등) esc같은 명령으로 비정상 종료시 리습이전 상태로 캐드 시스템변수를 돌려놓습니다
흐흐흐 아임 피러님 제가 짜집기만 대충 할수 있는 초보라 잘 이해를 한건지 모르겠는데요
말씀하신걸로 보아서는 제가 올린 볼트 리습 본문 시작부붐쯤에 (setq cl(getvar 'clayer )) 있어야 하고 끝부위쪽에
(defun *error* (msg)(princ "\nerror:")(princ msg)
(setvar 'clayer cl) ;esc나 다른이유로 리습실행이 중단됐을때 레이어 값을 cl로 변경
(princ) ) 있어야 한다는 건가요? 여기서 cl은 기본 레이어를 뜻하는건가요?
음 제대로 이해 한게 아닌가 보네요 ㅋㅋㅋ 리습이 작동이 안되네요 ㅎㅎ
@치기 볼트관련 데이타 파일좀 올려주세요 제 스타일로 한번 만들어보게요
@아임피러 올려드려습니다 ^^
2번 https://www.theswamp.org/index.php?topic=19644.0
저도 모르는 분야라서 구현은 알아서 하시길 홧팅~!!