드림플러스 선 등분 분할 추가 요청

2017.09.12 11:22

아저씨짱 조회 수:76

현재 선 등분 분할로 사용하고 있는 리습인데요 드림에 추가됐으면 해서요



(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.05.16 2738
공지 제목이 엉망이면 답변달지 않습니다. [1] 아저씨 2014.04.04 23833
공지 순수 캐드 질문은 고캐드로 아저씨 2013.05.28 68611
공지 질문 답변 게시판을 만들었습니다. 아저씨 2013.02.09 74916
1801 2010캐드 에서 드림을크릭하면 경고창이틈니다 [2] 박원근 2017.09.16 51
» 드림플러스 선 등분 분할 추가 요청 [3] 아저씨짱 2017.09.12 76
1799 오토캐드 2012 기사용 중 오토캐드 2007 설치 후 드림 오류 증상 해결(2012에서 MPL 사용) 방법은 ??? [2] jhlee 2017.09.08 164
1798 계산기 문의드립니다 [2] 캐드 2017.09.07 24
1797 파이프 2라인 작성후 삭제시 센터선만 남기는 리습 [2] HJH SHOP 2017.09.06 144
1796 컴 교체후 다시등록 하기 [1] 이희우 2017.09.06 47
1795 다중 출력을 할 때 PDF 파일을 각각의 폴더에 저장할 순 없을까요? [2] 2017.09.05 39
1794 캐드 2007 질문드려요 [2] 리정희 2017.09.04 175
1793 번호쓰기 후 텍스트 지움 [3] secret JLA2007 2017.09.01 2
1792 캐드 추천좀 부탁드려요~ [2] 유성하 2017.08.30 401
1791 다중플롯 배치탭 출력 관련오류 질문입니다. [1] 김원재 2017.08.29 69
1790 오토캐드 2007 드림 사용중입니다 [2] 토목재이 2017.08.28 463
1789 투명도 BYBLOCK 로 변경 [2] 블럭 메니아 2017.08.24 28
1788 2017년 32비트 드림사용문의 [1] 2017.08.23 91
1787 드림플러스 문자수정중에.. [2] 박재벌 2017.08.21 59