홈/ 질문/Q 106643
다음
진행 중
Lv.0
등록일: 2016-05-23T09:09:52+09:00 카테고리:

무한반복과 옵셋 간격구문을 넣어서 만들어 줄수없는가요

(defun c:o5 ()
(command “offset” “1” pause “@0,10” “”)
(command “offset” “1” pause “@0,10” “”)
(princ)
)
고수님하나만 더 물어보겠습니다
위에 리습은 2번반복해주는 리습인데 저걸 무한반복과 옵셋 간격구문을 넣어서 만들어 줄수없는가요 간격별로 넣을려니 리습을 한 30개 만들어야 될거 같아서요 참고로 @0,10는 위방향을 표현한겁니다

공유

    관련 있는 질문들

    8 답변

    1. aalan
    2. (defun c:o5 ( / a b)
      (if (setq a (getreal “n옵셋 간격?:”))
      (while (setq b (entsel))
      (command “offset” a b “_non” (mapcar ‘+ (cadr b) ‘(0 100)) “”)
      )
      )
      (princ)
      )
      • 0

    3. 머하남님 너무 고맙습니다 리습 잘쓰겠습니다 수고하십시요

      • 0

    4. 머하남님 하나만 더 물어봐두 될까요
      “_non” (mapcar ‘+ (cadr b) ‘(0 1)) “”)

      이구문이 mapcar 이건 함수인거 같은데요 다른건 어떤의미인지 풀어서 글로 설명좀 해주시면 안될까요  염치없지만 좀 가르켜 주시면 안될까요?

      • 0

    5. 저도 저 리습 써 보니 참 좋더라고요. 혹시 죄성한데 이 리습 숫자 입력하고 다시 리습 쓸때 이전 숫자 기억하게끔은 해서 엔터 바로 칠수 있게끔 리습 수정이 안될까요? 부탁드립니다.~~ ^^*

      • 0

    6. “_non”은 오스넵을 해제한 것이고, 선택한 좌표(cadr b)에 x+0, y+100 한겁니다. 그럼 선택한 좌표의 윗쪽이니 위로 옵셋합니다.

      • 0
    7. (defun c:o5 ( / sv s a b d)
      (setq sv (if (and (setq s (getcfg “AppData/offset”)) (/= s “”)) (strcat “<” s “>”) “”))
      (if (setq a (cond ((setq d (getdist (strcat  “n옵셋 간격 ” sv “:”))) (setcfg “AppData/offset” (rtos d)) d) (atof s)))
      (while (setq b (entsel))
      (command “offset” a b “_non” (mapcar ‘+ (cadr b) ‘(0 100)) “”)
      )
      )
      (princ)
      )
      • 0

    8. 좋은 리습 감사합니다. 유용하게 잘 쓰겠습니다. 오늘도 좋은 하루 보내세요~~! ^^

      • 0

    9. 감사합니다.

      • 0