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 | 2775 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23854 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68641 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
1144 | dream애러 [1] | 가곡나라 | 2015.08.26 | 178 |
1143 | 드림 설치후 캐드가 깜박 거리는 현상이 있습니다. [1] | 최정화 | 2016.01.25 | 178 |
1142 | 예전 드림과 드림플러스 기능차이 [1] | 드림플 | 2015.12.07 | 179 |
1141 | 드림이 잘 되지 않습니다 조언점 부탁드리겠습니다 [1] | 건우 | 2016.01.08 | 179 |
1140 | 캐드 드림 결제했는데요.. [1] | 중부산림 | 2016.04.02 | 179 |
1139 | 드림 버전 문의드여요 [2] | 홍혜진 | 2015.06.29 | 181 |
1138 | 객체길이 쓰기 CL 단위에 관하여 질문입니다. [1] | mrsong | 2017.03.07 | 181 |
1137 | 캐드 드림캐드 적용시 [2] | good | 2015.05.06 | 182 |
1136 | 운영체제가 64비트 입니다. [1] | 나무진 | 2015.11.16 | 183 |
1135 | 드림 실행시 Visual Basic 오류관련 [1] | CAD초보 | 2019.01.16 | 183 |
1134 | -드림 플러스 설치후 오류 및 추가적인 리습 부탁합니다. [1] | 학군이 | 2015.05.28 | 184 |
1133 | 비쥬얼베이직 오류관련 [1] | kyi2232 | 2015.07.08 | 184 |
1132 | 제어판에서 Autocad 삭제 [1] | 잘생긴형왔다 | 2015.07.27 | 184 |
1131 | "좌표 내보내기" 기능질문있습니다. [1] | 뽁뽁이아빠 | 2014.11.24 | 186 |
1130 | 아저씨 님께 부탁드리고 싶은 드림 기능 추가 건의합니다. [1] | 삽질의 제왕 | 2015.04.06 | 186 |
안녕하세요.
죄송합니다만 제가 리습 언어를 몰라 말씀을 드릴 수가 없습니다.
제가 아는 것은 .NET 기반 밖에 몰라서요.
http://www.gocad.co.kr/ 에 같은 내용 올리시면
리습 아시는 분들이 답변해주실 거라 생각됩니다.