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 | 2774 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23854 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68641 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
934 | 캐드도면 시작시 acad.fas 파일이 생겨요 무엇인가요 [1] | 야용 | 2018.11.05 | 337 |
933 | 다중플롯[mpl] "잘못된 FORM 입니다 ~ " 오류 [5] | 오이깎기 | 2015.11.23 | 342 |
932 | CAD 2014 드림 관련(win xp) [1] | 썬 | 2014.10.23 | 344 |
931 | 외부 도면등을 열었을때 글씨가 깨져요 [1] | 미70 | 2016.12.20 | 345 |
930 | 드림플러스캐드2010버전을 쓰는데 CL명령어관련해서 문의드립니다. [1] | 드리머 | 2015.08.28 | 348 |
929 | 문자열에서Boolean형식으로 변환할수 없습니다 [1] | 명경지수 | 2016.03.14 | 348 |
928 | 치수보조선 정렬에 관해 질문 드립니다. [1] | 캐드초보 | 2014.11.06 | 349 |
927 | 경로/파일 접근오류 질문드립니다 [2] | 다금바리 | 2016.12.02 | 352 |
926 | TEXT 사각형의 가운데로 정렬 [1] | 무이 | 2015.04.11 | 353 |
925 | 2월달 입니다. [5] | 드림없인 일못해 | 2015.02.10 | 354 |
924 | 2013설치후 드림 인식 알수없는 명령어 [1] | 굳맨 | 2015.02.11 | 355 |
» | 캐드 사면표시 리습 관련 질문 드립니다. [1] | 흑룡하늘소 | 2018.11.15 | 355 |
922 | Dream plus 정식구입사용자입니다. [1] | 탱글아바이 | 2017.06.13 | 357 |
921 | 오피스 2013용 드림 [1] | 비번비번좋아좋아 | 2014.07.28 | 358 |
920 | 좌표값 자동 변환 좌표 표시 선 크기 조절은 안 되나요? [1] | LF3 | 2014.09.09 | 358 |
안녕하세요.
죄송합니다만 제가 리습 언어를 몰라 말씀을 드릴 수가 없습니다.
제가 아는 것은 .NET 기반 밖에 몰라서요.
http://www.gocad.co.kr/ 에 같은 내용 올리시면
리습 아시는 분들이 답변해주실 거라 생각됩니다.