안녕하세요
모두들 어려운 여건속에서도 열심히 일하시는 설계인들에게~ <- 화이팅~
——– 아 래 ———–
응용 요청 : lisp
구현프로그램 : autocad 2007
win7 64bit, 불편한 점이 있어 8월엔 32bit로 다운 시킬거에요.
요청사항
간섭체크는 보편적으로 3d에서 주로들 많이 구현하는데
언제 3d를 만들어서 잘 모르는 분들에게 보여 줄까요? 그래서..
2d의 도면내에서 작성된 평면도면의 전체도면에서 일부 블럭화한
부품이 측면 또는 상하면으로 슬라이딩을 하며 보여주는 리습을 찾고 있어여
아무리.. 확인해봐도.. 안되서리.. ㅎㅎㅎ
간단하게는 그냥… move를 사용하면 되는데
그래도 좀 뽀다구 있게시리.. 깜빡이면서, 상하 또는 좌우로 움직이며 최소 1분 또는 그이하라도…
보여주는 그런거 없을까요?
그런게 있다면 보내주심 정말 감사하겠읍니다.
그럼 모두들 수고 하세요
———- 참고 사항 —-
예전에 어느분이 열심히 만들어 공개 하셨던.. 회전체 간섭체크 리습을 참고로 올립니다.
* 남드신 님 감사히 잘쓰고 있읍니다. .. 그리고 허락 없이 올려 송구합니다..
뉘신지 몰라서…
;———————— 간섭확인용 회전 ——————
(defun c:rtu (/ obj pt ang x cnt y spd z bspd)
(setvar “cmdecho” 0)
(setq obj (ssget))
(setq pt (getpoint “nbase point: “))
(if (= ang nil) (setq ang 360))
(setq x ang)
(setq ang (getint (strcat “nRotation angle:<” (itoa ang) “>”)))
(if (= ang nil) (setq ang x))
(setq retun (* ang -1))
(if (= cnt nil) (setq cnt 1))
(setq y cnt)
(setq cnt (getint (strcat “nRepeat count number:<” (itoa cnt) “>”)))
(if (= cnt nil) (setq cnt y))
(if (= spd nil) (setq spd 1))
(setq z spd)
(setq limt (/ ang 2))
(if (> spd limt) (setq spd limt))
(if (< ang 0) (setq limt (* ang -1)))
(setq spd (getint (strcat “nAngle spacing: (1-” (itoa limt) “)<” (itoa spd) “>”)))
(if (< spd 1) (setq spd z))
(if (= spd nil) (setq spd z))
(setq bspd (- 0 spd))
(setq ang (/ ang spd))
(setq ang (* ang 10))
(setq spd (/ spd 10.0))
(setq bspd (/ bspd 10.0))
(if (< ang 0) (setq spd (* spd -1)))
(if (< ang 0) (setq bspd (* bspd -1)))
(if (< ang 0) (setq ang (* ang -1)))
(repeat cnt
(repeat ang
(command “rotate” obj “” pt spd)
)
; (repeat ang
(command “rotate” obj “” pt retun)
; )
)
(setvar “cmdecho” 1)
)