모따기 리습 질문요.
컨텐츠 정보
- 252 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
아래 리습을 모따기 길이를 수정안하고 정해진 수로만 모따기 되게 안될까요???
가령 5 를 많이 쓰거든요
고수님들 부탁드립니다!!!!
——————————————————————————————————————-
; 교차점에 한 선은 그대로 두고 한 선만 모따기 하는 리습
(defun C:SCHM(/ sichamer cmde dis en1 en2 ena enb pt1 pt2 sp1 ep1 sp ep enc)
(defun *error* (msg)
(setq *error* sichamer)
(command "undo" "e")
(command "ucs" "P")
(setvar "CMDECHO" cmde)
(setvar "CHAMFERA" cham)
(setvar "CHAMFERB" chamb)
(princ)
)
(setq sichamer *error*)
(setvar "ucsfollow" 0)
(setq cmde (getvar "CMDECHO"))
(setq cham (getvar "CHAMFERA"))
(setq chamb (getvar "CHAMFER"))
(setvar "CMDECHO" 0)
(command "undo" "group")
(command "ucs" "w")
(setq dis (getdist (strcat "n 모따기 거리 입력 :<"(rtos cham)"> :")))
(if (= dis nil) (setq dis cham))
(setq k 5)
(while k
(setq en2 (entsel "n 모따기 할 대상 객체선택 :"))
(if en2
(progn
(redraw (car en2) 3)
(setq en1 (entsel "n 모따기 제외 대상 객체선택:"))
(setq ena (car en1) pt1 (cadr en1))
(setq enb (car en2) pt2 (cadr en2))
(setq sp1 (assoc 10 (entget ena))
ep1 (assoc 11 (entget ena)))
(setvar "CHAMFERA" dis)
(setvar "CHAMFERB" dis)
(command "CHAMFER" en1 en2)
;;;;—————————————————————
(setq enc (entget (car en1)))
(setq sp (assoc 10 enc))
(setq ep (assoc 11 enc))
(setq enc (subst sp1 sp enc) enc (subst ep1 ep enc))
(entmod enc)
)
(setq k nil)
))
(setq *error* sichamer)
(command "undo" "e")
(command "ucs" "P")
(setvar "CHAMFERA" cham)
(setvar "CHAMFERB" chamb)
(setvar "CMDECHO" cmde)