캐드 분류
옵셋 레이어 구문 수정 리습
컨텐츠 정보
- 217 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
이 리습은 뭐하남님께서 만들어 주신 리습인데 레이어 구문이 들어가게끔 리습 설정을 바꿔주시면 감사하겠습니다.
(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 페이지