성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^
- 제목 작성시 금지어
만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등
- 특정분과 질문은 제목에 분과삽입 [건축]
좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.
- 말머리 필수
① CAD 종류 : Acad2006
② VERSION : 2006
③ 운영 체제 : windows xp sp3
원본리습
; Program : 현황도그리기!!!
; Choi Byung-Hak
; 2002.04.11
;***********************************
(defun C:tmfpxm(/)
(setq os (getvar "osmode"))
(command "osmode" "0")
(setq txtp (getpoint "\n>> Pick the ID point "))
(command "TEXT" "J" "mc" txtp "1.5" "0" "스" "")
(setvar "osmode" os)
)
아래 리습은 제가 짜집기해서 사용하고 있는 리습입니다.
(defun C:tmfpxm(/ OS TXTP) ;명령어 및 지역 변수
(command "osmode" "0") ;오스냅 끄기
(if (not (tblsearch "style" "현황주기")) ;현황주기 스타일 찾기
(command "_.-style" "현황주기" "굴림체" "" "" "0" "n" "n")) ;현황주기스타일이 없으면 만들기
(command "layer" "m" "HTXT" "c" "2" "HTXT" "") ;HTXT레이어 만들기
(setq txtp (getpoint "\n>> Pick the ID point ")) ;위치 지정 - >> Pick the ID point 문자 출력
(while (/= txtp nil) ;반복구문
(command "TEXT" "J" "mc" txtp "1.5" "0" "스" "") ;문자 크기 및 넣을 글자(스)
(setq txtp (getpoint "\n>> Pick the ID point ")) ;위치 지정 - >> Pick the ID point 문자 출력 (반복문)
);while ;반복구문 종료
(setvar "osmode" os) ;저장되었던 오스냅모드 다시 불러오기
);defun ;종료
제가 수정을 해서 사용하고 있는 리습을 실행하고 나면 아래와 같이 필요없는 과정이 출력이 됩니다.
------------------------------------------------------------------------------------
명령: _tmfpxm osmode
명령: _.-style 문자 스타일의 이름 입력 또는 [?] <Standard>: 현황주기
새로운 스타일.
전체 글꼴 이름 또는 글꼴 파일 이름을 지정 (TTF 또는 SHX) <txt>: 굴림체 문자의
높이 지정 <0.0000>: 폭 비율 지정 <1.0000>:
기울기 각도 지정 <0>: 0 문자를 거꾸로 표시하겠습니까? [예(Y)/아니오(N)] <N>: n
문자를 위아래로 뒤집어 표시하겠습니까? [예(Y)/아니오(N)] <N>: n
이제 "현황주기"이(가) 현재 문자 스타일임.
명령: layer
현재 도면층: "0"
옵션 입력
[?/만들기(M)/설정(S)/신규(N)/켜기(ON)/끄기(OFF)/색상(C)/선종류(L)/선가중치(LW)/
플롯(P)/동결(F)/동결해제(T)/잠금(LO)/잠금해제(U)/상태(A)]: m
새로운 도면층에 대한 이름 입력 (현재 도면층으로 함 ) <0>: HTXT 옵션 입력
[?/만들기(M)/설정(S)/신규(N)/켜기(ON)/끄기(OFF)/색상(C)/선종류(L)/선가중치(LW)/
플롯(P)/동결(F)/동결해제(T)/잠금(LO)/잠금해제(U)/상태(A)]: c
새로운 색상 [트루 컬러(T)/색상표(CO)] : 2
색상에 대한 도면층(들)의 이름 리스트 입력 2 (노란색) <HTXT>: HTXT 옵션 입력
[?/만들기(M)/설정(S)/신규(N)/켜기(ON)/끄기(OFF)/색상(C)/선종류(L)/선가중치(LW)/
플롯(P)/동결(F)/동결해제(T)/잠금(LO)/잠금해제(U)/상태(A)]:
명령:
>> Pick the ID point TEXT
현재 문자 스타일: "현황주기" 문자 높이: 2.5000
문자의 시작점 지정 또는 [자리맞추기(J)/스타일(S)]: J 옵션 입력
[정렬(A)/맞춤(F)/중심(C)/중간(M)/오른쪽(R)/좌상단(TL)/상단중앙(TC)/우상단(TR)/좌
측중간(ML)/중앙중간(MC)/우측중간(MR)/좌하단(BL)/하단중앙(BC)/우하단(BR)]: mc
문자의 중간점 지정:
높이 지정 <2.5000>: 1.5
문자의 회전 각도 지정 <0>: 0
문자 입력: 스
명령: _TMFPXM 알 수 없는 명령 "TMFPXM". 도움말을 보려면 F1을 누르십시오.
요기까지 불필요한 과정이 출력됩니다.
------------------------------------------------------------------------
제가 리습 공부한 바로는 프럼프트창에 나와야 할 문장은
(setq txtp (getpoint "\n>> Pick the ID point ")) 요것만 나와야 하는데
문자 스타일 생성과정, 문자 크기 조정, 레이어 만들기 등등 생성과정을 모두 표시가 됩니다.
이러한 과정들이 표시가 되지 않게 할려면 어떤 구문을 넣어야 하는지요.
사용하는데 지장은 없읍니다 만 조금씩 시간 날때마다 사용하는 리습을 중심으로 조금씩 추가도 하고
리습 해석도 해가면서 리습공부하고 있는 중입니다.
해석이 틀린 부분이나 위의 불필요한 과정이 표시 되지 않게 하려면 어떤 구문을 넣어야 하는지 지적 부탁드립니다.
⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.
※ 유의사항
- ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^
- ②Screenshot : 이해를 돕기위해 삽입요망.
- ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.
해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.
- ④제 목 : 질문 내용 반영(개략적인 내용), 예) 해치를 만들고 싶어요, pline을 연결할려면?
- ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.
여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음.
※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.
회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해
검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.
이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.
