홈/ 질문/Q 102691
다음
진행 중
Lv.0
등록일: 2014-11-18T19:33:00+09:00 카테고리:

도와주세요…. offset 리습

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

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

공유

    관련 있는 질문들

    5 답변

    1. aalan
    2. Lv.21

      기존 옵셋기능이란게 무슨말씀이신지 모르겠습니다  (순수 캐드 옵셋 기능을 말씀하시는건가요?)

      • 0

    3. 수야님
      반갑습니다.

      네, 순수 캐드 옵셋기능이요~~
      기존 옵셋기능에서 match 기능만 추가하고 싶어서요………
      부탁 드립니다.

      • 0
    4. Lv.21
      (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)
      )
      ;; 밑에것은 옵셋할때마다 레이어 선택 입니다
       
      • 0
    5. Lv.21

      (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)
      )

      • 0

    6. 수야 님
      감사드립니다.

      • 0