2017.09.12 11:22
현재 선 등분 분할로 사용하고 있는 리습인데요 드림에 추가됐으면 해서요
(defun c:ss(/ ct no len c2 cla s1 s2 e1 e2 int msx msy mex mey i e1 e2 s1 s2 sx sy ex ey po1 )
( prompt "\n select 2-LINES : ... " ) ; selection entity
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(command "undo" "be")
( setq ct ( ssget '((0 . "LINE"))))
( SETQ no ( GETINT "\n DIVIDING NUMBER : ... ")
len ( sslength ct ) cl1 ( ssname ct 0 )
cl2 ( ssname ct 1 ) c1 ( entget cl1 )
c2 ( entget cl2 )
cla ( cdr ( assoc 8 c1 ))
s1 ( cdr ( assoc 10 c1 ))
e1 ( cdr ( assoc 11 c1 ))
s2 ( cdr ( assoc 10 c2 ))
e2 ( cdr ( assoc 11 c2 ))
int ( inters s1 e2 e1 s2 ) )
( if (= int nil ) ( setq k s2 s2 e2 e2 k ))
( setq msx (/ (- (car s2) (car s1)) no )
msy (/ (- (cadr s2) (cadr s1)) no )
mex (/ (- (car e2) (car e1)) no )
mey (/ (- (cadr e2) (cadr e1)) no )
i 1 )
( REPEAT (- NO 1)
( setq sx (+ (car s1) (* msx i))
sy (+ (cadr s1) (* msy i))
ex (+ (car e1) (* mex i))
ey (+ (cadr e1) (* mey i)) i (+ i 1)
po1 (list sx sy) po2 (list ex ey) )
( COMMAND "line" (trans po1 0 1) (trans po2 0 1) "" )
)
(command "undo" "e")
(setvar "osmode" 4287)
(princ)
)
입니다.
2017.09.12 11:57
2017.09.13 13:54
빠른 답변 감사합니다.
활용도 측면에서는 아저씨님께서 말씀하신게 맞습니다
프로그램창으로 할경우 작업시간이 오래걸리신다면 그냥 단순히 나눠지게 해도 괜찮습니다
bluegain@naver.com 로 메일 부탁드립니다^^
2017.09.13 21:58
프로그램 창으로 만드는게 사용자 분들은 체감이 어렵지만
코드가 별게 다 들어가서 시간은 다소 걸려도
활용도를 볼 때 프로그램 창으로 만드는 것이 나으니 그렇게 하겠습니다.
금요일까지는 메일로 보내겠습니다.
감사합니다.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 2754 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23845 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68627 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74940 |
2056 | 오토캐드 2010에는 드림이 실행되지않나요 [1] | 김화영 | 2013.03.30 | 1 |
2055 | 시스템오류 문의 [1] | SG | 2013.06.26 | 1 |
2054 | 드림설치 관련 [1] | Reira | 2013.06.26 | 1 |
2053 | 2009 버전 64비트 용 드림아직 출시 안되는지요 [1] | 코넷 | 2013.07.26 | 1 |
2052 | 혹시 프로그램 제작도 가능 하신가요? [1] | 이와지 | 2014.11.21 | 1 |
2051 | 다중플롯 질문입니다. [1] | 일꾼 | 2014.11.18 | 1 |
2050 | 파일 로드에 대한 보안 경고 [1] | 정인이 | 2014.11.19 | 1 |
2049 | 리습에 관한 질문입니다. [1] | su009005 | 2014.11.17 | 1 |
2048 | 질문입니다. [1] | 토쟁이 | 2013.09.26 | 1 |
2047 | 질문입니다~ [1] | 궁금 | 2013.09.26 | 1 |
2046 | 안녕하세요. [1] | 김우열 | 2013.11.25 | 1 |
2045 | 안녕하십니까! 오토캐드2015 완전삭제 관련 질문입니다. [1] | sandy | 2014.11.16 | 1 |
2044 | DVIEW 에 관한 질문 입니다. [1] | 에우세비오 | 2014.01.12 | 1 |
2043 | 윈도우 7에서 캐드 드림에 있는 명령어를 실행하려고 하면.. [1] | jin | 2014.05.28 | 1 |
2042 | 안녕하세요 복구로 인해 찾게 되었습니다 ㅠㅠㅠ [1] | 조은지 | 2014.07.23 | 1 |
안녕하세요.
제가 리습언어는 몰라서
안타깝게 올려주신 내용은 봐도 모르겠네요.. ^^
올려주신 것 실행해보고
같은 것으로 만들어 드리겠습니다.
선(LINE)은 등분 만들기가 어렵지 않아서 만드는데 딱히 애로 사항은 없을 것 같고...
단순히 명령 실행 등분 수 입력 하는 것이 나을 것 같은데
만약 등분된 선을 다른 레이어로 설정하는 것이 필요하다면
명령 기반이 아니라 프로그램 창을 만들어야 합니다.
제 생각에는
프로그램 창 만들고 등분된 선의 특성(레이어, 선종류 등)을 조정하는 것을 넣는 것이
활용성 측면에서 조금 더 나을 것 같은데 어떠신지요?
그리고
드림플러스가 현재 9월 12일자로 업데이트된 상태고
다음 업데이트는 앞으로 2~3달 후라서
그 때까지 기다리시기 곤란한 경우
메일 주소를 댓글로 남겨주시던가
아니면 email72@nate.com 으로 알려주시면
다음 주 정도에 작업해서 파일 보내드리겠습니다.
참고로 현재 게시판은 파일 첨부도 안되고
제가 자주 확인하지 않아 답변이 빠르지 않습니다.
드림플러스 질문이나 건의 사항 등은
드림플러스 홈페이지를 이용해주시면
제가 빠르게 확인할 수 있으니 참고해주세요.
http://www.dreamcad.net/support/qna/
감사합니다.