매일쓰는 리습인데 기능추가를 부탁드립니다
똑같은도면 두개를 놓고 하나는 꼲어 레이즈에 쓰고 똑같은 다른 도면에는 빨간원(R3)을 만들어 밴드 파일에 넘겨야 되거 든요.
그러니까 일정한 거리에서 도면복사해서 빨간원만 나타내도록 해주시면될것 같은데
도움주시면 감사하겠습니다. 빨간 원만이라도 일정거리에 나타내게~
울영감님 빠트려 먹어서 추가 노동이 따라와요~~헐
만들어주시는 분께 피자나 영화표2개 쏠께요
매일&문자 주세요
;;==========================================================================
(defun c:cutnc(/ test aa loop bb gap gap2 gap5 loopn loopno loop ja bb1 a1 tru c1 d1
angs lens step dol step1 nbk1 nbk2 nbk3)
;;===========변수의 초기화처리====
(setq test nil) (setq aa nil) (setq loop nil) (setq bb nil) (setq gap nil)
(setq gap2 nil) (setq gap5 nil) (setq loopn nil)(setq loopno nil)(setq loop nil)
(setq ja nil) (setq bb1 nil) (setq a1 nil) (setq tru nil) (setq c1 nil)
(setq d1 nil) (setq angs nil) (setq lens nil)(setq step nil)(setq dol nil)
(setq step1 nil)(setq nbk1 nil)(setq nbk2 nil)(setq nbk3 nil)(setq bbloop nil)
(setq gaploop nil)
;;==============================================================================
(setq test T)
(setvar “cmdecho” 0)
(while test
(setq AA (ssget))
;————————————————————
(if (= AA nil)
(progn (princ “n 짜를 선을 선택하세요.”)
(TERPRI)
)
(progn
(setq loop(sslength aa))
(setq test nil)
);progn종료
) ;if문 종료
) ;while문 종료
;;————————————————————-
(setvar “cmdecho” 0)
(setq bbloop t)
(while bbloop
(setq BB (getdist”짜를 갯수를 입력하세요.”))(terpri)
(if (/= bb nil)(setq bbloop nil)(princ ” <<값이 없습니다.>>”))(terpri)
) ;;while bbloop 마침
;;——————————————————————————-
(setq gaploop t)
(while gaploop
(setq gap(getdist”짜를 간격을 입력하세요.”))(terpri)
(if (/= gap nil)(setq gaploop nil)(princ ” <<값이 없습니다.>>”))(terpri)
) ;;while gaploop 마침
(setq gap2(/ gap 2.0))
(setq gap5(* gap 5.0))
;;————————————————————-
(setq loopn t)
(setq loopno 0)
(while loopn
(setq loop(- loop 1))
(setq bb1 bb)
(SETQ A1(ENTGET (ssname AA loop)))
(setq tru(cdr(assoc 0 a1)))
(if (= tru “LINE”)
(progn
(setq c1(cdr(assoc 10 a1)))
(setq d1(cdr(assoc 11 a1)))
(setq angs(angle c1 d1))
(setq lens(distance c1 d1))
(setq STEP(/ lens (* bb 2.0)))
(SETQ JA 1.0)
(setq dol(fix bb))
(repeat dol
(SETQ STEP1(* STEP JA))
(setq nbk1(polar c1 angs STEP1)) ;등분기준점
(setq nbk2(polar c1 angs (- step1 gap2))) ;등분기준점에서 절반gap아래
(setq nbk3(polar c1 angs (+ step1 gap2))) ;등분기준점에서 절반gap위
(setvar “cecolor” “1”)
(command “zoom” “c” nbk1 gap5)
(command “break” nbk2 nbk3 )
(command “zoom” “p”)
(SETQ JA(+ JA 2.0))
) ;repeat을 닫음
) ;progn닫음
) ;if문을 닫음
(if (= loop 0)
(setq loopn nil)
) ;if닫음
(setvar “cecolor” “7”)
);while닫음
);defun닫음