프로그램
캐드 분류

각자 다른 포인트 스케일 일괄적용

컨텐츠 정보

  • 680 조회
  • 2 댓글
  • 0 추천
  • 0 비추천
  • 목록

본문

안녕하세요 아주 간단한 리습만 작성할 수 있는 구문 거의 모르는 유저입니다

지금은 리습을 받아서 주요내용을 고쳐쓰거나 변경해서 저에게 맞는 리습으로 사용하는데요
스케일 명령어를 통해 만약 1/3이라는 수치를 주고 명령이 끝나지 않고 계속하여 포인트를 클릭하게 할 수는 없을까요?
혹시 리습구문을 작성할때 명령하나 완료 후 자동으로 반복될 수 있게 할 수 있는 명령이 있을까요?
언뜻 글을 작성하면서 repeat 이 떠오릅니다만.. 일단 궁금증이 있어 올려봐요
(defun c:sd ()
;스케일 원하는 값으로 변경(오브젝트선택, 기준점 찍고, 원래스케일값, 변경할 스케일값)
;키보드와 마우스 이동을 줄이기 위해 만들었심더~
    (setq o1 (ssget))
    (setq p1 (getpoint "—기준점찍기—"))
    (setq t1 (getstring "현재 스케일 :"))
    (setq t2 (getstring "바뀔 스케일 :"))
    (command "SCALE" "si" o1 p1 "r" t1 t2)
) ; repeat
어떤분의 리습인데 사용중입니다. 여기서 현재와 바뀔스케일을 스킵하고 
    (setq o1 (ssget))
    (setq p1 (getpoint "—기준점찍기—"))
    (command "SCALE" "si" o1 p1 "r" t1 t2)
이렇게 세구문을 뒤에 반복시키고 싶습니다 어떻게해야 좋을까요?

관련자료

댓글 2 / 1 페이지
전체 7,698 / 200 페이지
RSS
번호
제목
이름
알림 0