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 | 2761 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23847 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68632 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74940 |
2058 | 오토캐드 2010에는 드림이 실행되지않나요 [1] | 김화영 | 2013.03.30 | 1 |
2057 | 시스템오류 문의 [1] | SG | 2013.06.26 | 1 |
2056 | 드림설치 관련 [1] | Reira | 2013.06.26 | 1 |
2055 | 2009 버전 64비트 용 드림아직 출시 안되는지요 [1] | 코넷 | 2013.07.26 | 1 |
2054 | 혹시 프로그램 제작도 가능 하신가요? [1] | 이와지 | 2014.11.21 | 1 |
2053 | 다중플롯 질문입니다. [1] | 일꾼 | 2014.11.18 | 1 |
2052 | 파일 로드에 대한 보안 경고 [1] | 정인이 | 2014.11.19 | 1 |
2051 | 리습에 관한 질문입니다. [1] | su009005 | 2014.11.17 | 1 |
2050 | 질문입니다. [1] | 토쟁이 | 2013.09.26 | 1 |
2049 | 질문입니다~ [1] | 궁금 | 2013.09.26 | 1 |
2048 | 안녕하세요. [1] | 김우열 | 2013.11.25 | 1 |
2047 | 안녕하십니까! 오토캐드2015 완전삭제 관련 질문입니다. [1] | sandy | 2014.11.16 | 1 |
2046 | DVIEW 에 관한 질문 입니다. [1] | 에우세비오 | 2014.01.12 | 1 |
2045 | 윈도우 7에서 캐드 드림에 있는 명령어를 실행하려고 하면.. [1] | jin | 2014.05.28 | 1 |
2044 | 안녕하세요 복구로 인해 찾게 되었습니다 ㅠㅠㅠ [1] | 조은지 | 2014.07.23 | 1 |
죄송합니다만.. 전 LISP을 모릅니다.
제가 만든 드림은 모두 VBA로 만들어진 것입니다.
고캐드 리습질문방 (http://www.gocad.co.kr/qa_lisp )에 질문하셔야할것 같습니다.