2018.11.15 12:27
드림플러스 질문은 아래에 남기는 것이 답변이 빠릅니다.
홈페이지 : http://www.dreamcad.net/support/qna/
메일 : email72@nate.com
지금 현재 사용하고 있는 사면표시 리습입니다.
라인에서만 리습이 적용 되는데요
혹시 폴리라인에서도 적용 될수 있는지요. 가능하면 어떤 부분을 수정 해야 하는지 ?
(DEFUN C:nn ()
(setq os-mode (getvar "osmode"))
(setvar "osmode" 0)
(setq a_0 (entsel "\n Select Object Pick *1*"))
(setq a_a (car a_0))
(setq x_po (car (cdr a_0)))
(setq a_b (entget a_a))
(setq a_c10 (cdr (assoc 10 a_b)))
(setq a_c11 (cdr (assoc 11 a_b)))
(setq a_an (angle a_c10 a_c11))
(setq g-po (polar x_po (+ a_an (* pi 0.5)) 100))
(setq po1 (inters g-po x_po a_c10 a_c11 nil))
(setq b_a (car (entsel "\n Select Object Pick *2*")))
(setq b_b (entget b_a))
(setq b_c10 (cdr (assoc 10 b_b)))
(setq b_c11 (cdr (assoc 11 b_b)))
(setq po2 (inters x_po g-po b_c10 b_c11 nil))
(setq an (angle po1 po2))
(setq di (distance po1 po2))
(setq mp1 (polar po1 an (* 0.1 di)))
(setq mp2 (polar po1 an (* 0.2 di)))
(setq mp3 (polar po1 an (* 0.3 di)))
(setq mp11 (polar mp1 (+ an (* pi 0.5)) (* 0.700 di)))
(setq mp21 (polar mp2 (+ an (* pi 0.5)) (* 0.250 di)))
(setq mp31 (polar mp3 (+ an (* pi 0.5)) (* 0.125 di)))
(setq mp12 (polar mp1 (- an (* pi 0.5)) (* 0.700 di)))
(setq mp22 (polar mp2 (- an (* pi 0.5)) (* 0.250 di)))
(setq mp32 (polar mp3 (- an (* pi 0.5)) (* 0.125 di)))
(command "line" mp3 po2 "")
(command "line" mp11 mp12 "")
(command "line" mp21 mp22 "")
(command "line" mp31 mp32 "")
(setvar "osmode" os-mode)
(prin1)
)
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 2756 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23846 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68628 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74940 |
1951 | Aec publish UI 로드중 ... [1] | 설악산 | 2013.04.12 | 2480 |
1950 | 제가 쓰는 리습에 대해 여쭙겠습니다. [4] | 감사합니다 | 2013.04.15 | 3746 |
1949 | 드림명령중 다중도면 특정레이어 끄거나 켜기 가능여부 [2] | 10년 | 2013.04.15 | 2860 |
1948 | 드림의 도구모음 화면 표시에 대한 문의 [1] | 김연수 | 2013.04.16 | 2611 |
1947 | Automation 오류 VBA 매크로 실행 실패 [2] | 아빠늑대 | 2013.04.16 | 5449 |
1946 | 명령어변경 시 오류 [2] | 윤 | 2013.04.16 | 3035 |
1945 | 은(는) 이 컴퓨터에서 더 이상 유효하지 않으므로 개체를 불러올 수 없습니다. [2] | 소방짜응 | 2013.04.17 | 7765 |
1944 | 캐드가 아닌 것에 대한 문의 [4] | 토쟁이 | 2013.04.17 | 4 |
1943 | 드림 옵션에서 설정저장이 안되어 문의드립니다 [1] | 아저씨화이팅 | 2013.04.18 | 2966 |
1942 | 자동플롯 이용시.. [2] | 인권쒸 | 2013.04.18 | 2900 |
1941 | 드림실행오류에 대해 도움 부탁드립니다. [1] | 청월 | 2013.04.19 | 4313 |
1940 | 홀챠트 작성법 [1] | David | 2013.04.19 | 4161 |
1939 | OVERKILL에 대해서 궁금합니다. [1] | 삼천리 | 2013.04.20 | 2873 |
1938 | 파일용량도 적은데 프린터만 보내면 약 십분정도 걸린 후 출력됩니다. [4] | 감사합니다. | 2013.04.20 | 3144 |
1937 | 드림이 갑자기 실행 안되는 이유가 뭘까요? [1] | 며누씨 | 2013.04.22 | 2782 |
안녕하세요.
죄송합니다만 제가 리습 언어를 몰라 말씀을 드릴 수가 없습니다.
제가 아는 것은 .NET 기반 밖에 몰라서요.
http://www.gocad.co.kr/ 에 같은 내용 올리시면
리습 아시는 분들이 답변해주실 거라 생각됩니다.