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 | 2775 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23854 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68641 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
1474 | vba 설치관련 문제 [1] | 크트프츠 | 2014.01.08 | 708 |
1473 | 드림 면적구하기 관련 [2] | 김연수 | 2014.04.08 | 700 |
1472 | [다중 플롯] 출력할때마다 (조명 - 삽입 단위) 메세지가 뜹니다 [3] | az | 2014.05.14 | 699 |
1471 | 드림 재 설치 후 실행 파일이 외부에 있다고 로드하라고 나옵니다. [2] | 이청재 | 2016.09.29 | 697 |
1470 | 캐드 2014 영문판을 깔았는데 아래와 같은 메시지가 뜨네요 [2] | 재곱 | 2014.04.09 | 696 |
1469 | 2006, 2008버젼 2개다 사용방법 [1] | 꺼비 | 2014.03.18 | 695 |
1468 | 고수님 자동치수 가능한지 한번 봐주세요? ㅠㅠ: [1] | 붕붕 | 2014.03.11 | 693 |
1467 | 치명적오류관련 문의입니다. [2] | 김명규 | 2014.02.14 | 693 |
1466 | 좌회전 테이퍼 "DTA"명령시 오류 [1] | 공원길 | 2014.03.31 | 692 |
1465 | 캐드 단축키(명령어)변경시에 [4] | 캐드초보 | 2013.12.26 | 689 |
1464 | 드림에서 좌표내보내기 시에 엑셀 새 창 열림 문제 문의 ( 추가로 캐드 파일 여는 문제...) [2] | 갑돌도령 | 2016.04.25 | 688 |
1463 | 다중플롯시 플롯순서 [2] | 오홍홍 | 2014.02.17 | 688 |
1462 | 숨겨진 모듈에서 컴파일 오류가 발생하였습니다. [1] | 김윤상 | 2014.12.23 | 686 |
1461 | FORM 등록 문의 드립니다. [1] | 소라집 | 2014.02.21 | 685 |
1460 | 오토캐드 2011 64비트에서 드림사용 질문입니다. [1] | 표준모델 | 2014.08.27 | 683 |
안녕하세요.
제가 리습언어는 몰라서
안타깝게 올려주신 내용은 봐도 모르겠네요.. ^^
올려주신 것 실행해보고
같은 것으로 만들어 드리겠습니다.
선(LINE)은 등분 만들기가 어렵지 않아서 만드는데 딱히 애로 사항은 없을 것 같고...
단순히 명령 실행 등분 수 입력 하는 것이 나을 것 같은데
만약 등분된 선을 다른 레이어로 설정하는 것이 필요하다면
명령 기반이 아니라 프로그램 창을 만들어야 합니다.
제 생각에는
프로그램 창 만들고 등분된 선의 특성(레이어, 선종류 등)을 조정하는 것을 넣는 것이
활용성 측면에서 조금 더 나을 것 같은데 어떠신지요?
그리고
드림플러스가 현재 9월 12일자로 업데이트된 상태고
다음 업데이트는 앞으로 2~3달 후라서
그 때까지 기다리시기 곤란한 경우
메일 주소를 댓글로 남겨주시던가
아니면 email72@nate.com 으로 알려주시면
다음 주 정도에 작업해서 파일 보내드리겠습니다.
참고로 현재 게시판은 파일 첨부도 안되고
제가 자주 확인하지 않아 답변이 빠르지 않습니다.
드림플러스 질문이나 건의 사항 등은
드림플러스 홈페이지를 이용해주시면
제가 빠르게 확인할 수 있으니 참고해주세요.
http://www.dreamcad.net/support/qna/
감사합니다.