도와주세요…. offset 리습

Question

Lv.0

등록일: 2014-11-182014-11-18T19:33:00+09:00 2014-11-18T19:33:00+09:00카테고리: AutoCAD & CADian

도와주세요…. offset 리습

님들아 도와주세요
offset 리습이 필요한데요
기존옵셋 기능에서 match 기능만 추가하고 싶습니다.

수야12님이 전에 도와주셨는데 연속 작업이 안되서요
수야님 도와주세요~~~

5 답변

[Deleted User] · Answer 1 · 2014-11-25T13:46:24+09:00

[Deleted User]

2014-11-25T13:46:24+09:00답변 등록 답변 등록 일시 2014-11-25 1:46 pm

수야 님
감사드립니다.

0

공유
공유
- 공유 Facebook
- 공유 Twitter

수야12 · Answer 2 · 2014-11-22T08:54:09+09:00

(defun C:ff( / lay e0 e1 e2 pt )
(or ds(setq ds 10))
(setq ds(cond ((getdist(strcat “nInput offset distance<“(rtos ds 2 1)”>:”)))(ds)))
(while (setq e0(car(entsel”nSpecify to match layer the object:”)))
(setq lay(cdr(assoc 8 (entget e0))))
(setq e1 (car (entsel “nSelect object:”)))
(setq pt (getpoint “nSide to offset:”))
(command “offset” ds e1 pt “”)
(setq e2(entget(entlast)))
(entmod (subst (cons 8 lay)(assoc 8 e2)e2))
)
(princ)
)

수야12 · Answer 3 · 2014-11-21T20:45:02+09:00

(defun C:ff( / lay e1 e2 pt )
(setq e1(car(entsel”nSpecify to match layer the object:”)))
(setq lay(cdr(assoc 8 (entget e1))))
(or ds(setq ds 10))
(setq ds(cond ((getdist(strcat “nInput offset distance<“(rtos ds 2 1)”>:”)))(ds)))
(while (setq e1 (car (entsel “nSelect object:”)))
(setq pt (getpoint “nSide to offset:”))
(command “offset” ds e1 pt “”)
(setq e2(entget(entlast)))
(entmod (subst (cons 8 lay)(assoc 8 e2)e2))
)
(princ)
)
;; 밑에것은 옵셋할때마다 레이어 선택 입니다