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 | 캐드 블록 ON/OFF 기능 [1] | KMT | 2013.02.20 | 3843 |
2040 | 좌표로 횡단뜨는 방법 좀~알려주세요 [1] | 공알공알 | 2013.02.22 | 2999 |
2039 | 드림에서 면적 소수점 단위 설정 문의드립니다. [1] | 감사 | 2013.02.23 | 4120 |
2038 | 다중출력 문의.. [3] | 풍멸 | 2013.02.25 | 3635 |
2037 | 윈7 64비트 개발... [1] | 드림최고 | 2013.02.27 | 2912 |
2036 | Auto Cad 2013관련 [1] | tptmaleps | 2013.02.27 | 5869 |
2035 | autocad 2013 오류 문구 [1] | 강걍겅경 | 2013.02.28 | 26067 |
2034 | 옵션에 들어가 설정 변경후 저장하고 나오면 저장이 안됩니다 [2] | 이석형 | 2013.03.01 | 2560 |
2033 | 캐드 2013 오류문제 해결쯤 해주세여 [4] | Excel 2013 | 2013.03.01 | 4876 |
2032 | 캐드명령어 실행지 한글깨짐현상 [2] | 조직을위한상처 | 2013.03.02 | 4580 |
2031 | 드림실행후 Excel 2013 사용이 잘안됩니다. [2] | Excel 2013 | 2013.03.04 | 3 |
2030 | Automation Error. Failed to run VBA macro 라는 메세지가 나오네요 [1] | high80 | 2013.03.04 | 4660 |
2029 | 다중플롯 PDF변환문의 [4] | ^^ | 2013.03.04 | 3341 |
2028 | 응용프로그램 로드와 관련 질문... [2] | 김재영 | 2013.03.05 | 2765 |
2027 | 다중플롯시 에로사항 [2] | 쫄래미 | 2013.03.05 | 3247 |
죄송합니다만.. 전 LISP을 모릅니다.
제가 만든 드림은 모두 VBA로 만들어진 것입니다.
고캐드 리습질문방 (http://www.gocad.co.kr/qa_lisp )에 질문하셔야할것 같습니다.