2013.02.15 14:24
분기관 삽입을 편하게 하려구 간단하게 LISP을 만들어 봤습니다.
LISP사용때마다 POLAR 로 지정된 점들이 엉망으로 찍히네요ㅡㅡ;
해결방법이 없을까요?????
(DEFUN C:hh ( / p1 p2 p3); Sukhwan
(SETQ Pnt1 (GETPOINT "\n 필지 꼭지점"))
(SETQ Pnt2 (GETPOINT Pnt1 "\n 본관 직교점"))
(SETQ Pnt3 (GETPOINT Pnt2 "\n 분기관 방향"))
(SETQ PM (ANGLE Pnt2 Pnt1))
(SETQ Pnt4 (POLAR Pnt1 PM 1.0))
(SETQ T (ANGLE Pnt2 pnt3))
(SETQ Pnt5 (POLAR Pnt4 T 3))
(SETQ Pnt6 (POLAR Pnt2 T 3))
(SETQ B2 (POLAR Pnt5 T -0.5))
(SETQ B1 (POLAR B2 PM -0.5))
(SETQ B3 (POLAR Pnt5 T 0.5))
(SETQ B4 (POLAR B3 PM -0.5))
(COMMAND "LAYER" "M" "check branch" "C" "8" "" "" )
(COMMAND "LINE" pnt2 pnt4 pnt5 Pnt6 "")
(COMMAND "LAYER" "M" "Branch" "C" "4" "" "" )
(COMMAND "PLINE" pnt5 Pnt6 "")
(COMMAND "PLINE" B1 B2 B3 B4 "")
)
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 2756 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23846 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68628 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74940 |
2041 | 만들어 주신 단축 명령어의 부여 방법에 대한 설명 부탁드립니다. [1] | 전동용 | 2014.09.29 | 1 |
2040 | 드림 기능중 레이어 관련 질문입니다. [1] | 2D초보 | 2014.10.21 | 1 |
2039 | 안녕하십니까. 캐드사람 이미지 문의 드립니다. [1] | 오정환 | 2014.11.06 | 1 |
2038 | dream 사용환경에 대해 문의드립니다. [1] | cad deck | 2014.11.07 | 1 |
2037 | 좌표 명령어? 좌표 찾는 것 좀 알려주세요 [1] | 다니 | 2014.11.13 | 1 |
2036 | 설치문제 해결좀 해주세요 [1] | 벼리야 | 2014.11.12 | 1 |
2035 | 이런질문이 적절한지 모르겠지만.....답답함에 올려봅니다. [1] | 영구아빠 | 2015.02.09 | 1 |
2034 | 등고선 작성관련 문의 드립니다. [1] | 남제민 | 2015.03.12 | 1 |
2033 | 오토캐드2012 질문입니다 [1] | 똘또리 | 2015.06.10 | 1 |
2032 | 멀티플롯 질문입니다. [1] | 잘생긴형 | 2015.07.21 | 1 |
2031 | 급)드림구입사용자입니다. | 김보희 | 2015.09.22 | 1 |
2030 | 질문입니다. [1] | 베스트인 | 2015.10.16 | 1 |
2029 | 질문입니다.(설계 관련) [1] | 베스트인 | 2015.10.16 | 1 |
2028 | 드림설치시 해치 파일 적용문제 [1] | 응땡이 | 2015.10.16 | 1 |
2027 | 질문 있습니다. [1] | 이승학 | 2015.10.19 | 1 |
죄송합니다만.. 전 LISP을 모릅니다.
제가 만든 드림은 모두 VBA로 만들어진 것입니다.
고캐드 리습질문방 (http://www.gocad.co.kr/qa_lisp )에 질문하셔야할것 같습니다.