홈/ 질문/Q 106655
다음
진행 중
Lv.0
등록일: 2016-05-25T14:07:55+09:00 카테고리:

옵셋 레이어 구문 수정 리습

이 리습은 뭐하남님께서 만들어 주신 리습인데 레이어 구문이 들어가게끔 리습 설정을 바꿔주시면 감사하겠습니다.
(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)
)
공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. (setvar “clayer” 레이어명)

      이러면 됩니다. 직접 고쳐보세요.
      • 0
    3. (defun c:o5 ( / os sv s a b d)
       (setq os (getvar “clayer”));;;현제레이어
      (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 0)) “”)
      )
      )
      (setvar “osmode” os)
      (princ)
      )
      뭐하남님 어제 엄첨 이리저리했는데도 안되네요 실력이 부족한거 갔습니다 현제레이어로 인식되게끔 하고 싶었는데 질문내요을 잘못 전달했습니다
      • 0