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 |
2053 | VBA/LISP 면적 구하기에 대해서 질문 드립니다. [2] | 태상노군 | 2013.02.15 | 153469 |
2052 | XREF 절대경로를 상대경로로 편집할때 외부참조관리자(AdRefMan) 말고 다른방법은 없나요? [1] | papersdream | 2013.02.18 | 54053 |
2051 | &H8007007E (-2147024770) 시스템 오류가 발생하였습니다. 지정된 모듈을 찾을 수 없습니다. [1] | 계장쟁이 | 2013.03.11 | 38173 |
2050 | 드림을 만나 요즘 정말 살맛나게 일하고 있는 1인입니다. [1] | livehero | 2013.02.12 | 36662 |
2049 | 다중플롯시 폼등록을 했는데.. [1] | ㅁㄴㅇ | 2014.03.21 | 35552 |
2048 | 오토캐드 도면 JPG파일로 내보내기하는 방법 문의 [1] | 김세직 | 2014.10.19 | 34045 |
2047 | 윈도우7 32비트 설치 오류! [1] | 삐삐누 | 2014.03.22 | 33823 |
2046 | civil 3d 2012에서 드림을 설치 할수 있나요. [1] | 배고픈곰 | 2013.02.16 | 33246 |
2045 | 다중플롯 시 POSTSCRIPT 문제 관련.. [1] | 규규규 | 2013.05.15 | 28899 |
2044 | autocad 2013 오류 문구 [1] | 강걍겅경 | 2013.02.28 | 26067 |
2043 | CAD 2014 버전 [1] | 띵호야 | 2013.05.22 | 24049 |
2042 | dreamsub.dll 을 로드하는중 에러발생 [1] | ted | 2013.05.16 | 22528 |
죄송합니다만.. 전 LISP을 모릅니다.
제가 만든 드림은 모두 VBA로 만들어진 것입니다.
고캐드 리습질문방 (http://www.gocad.co.kr/qa_lisp )에 질문하셔야할것 같습니다.