OFFSET 후 원본선은 삭제하고
OFFSET된 선만 남겨주는 리습이라고
지인에게 받았습니다.
문제는 작업하는 도면의 형상이 복잡하다 보니
OFFSET된 선과 기존의 선들이 같은 색이라서 작업시 혼란이 생깁니다.
OFFSET된 선의 색상을 30번 색상으로 바꿔지도록 하고 싶은데..
방법을 모르겠습니다.
염치없지만 수정을 부탁드리고 싶습니다.
LISP 내용은 아래와같습니다.
(defun c:MO (/ cmd)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(if (null dist)
(setq dist 1)
)
(setq d (getreal (strcat “n>> offset 할 거리를 입력하세요 <” (itoa (fix dist)) “>: “)))
(if (null d)
(setq d dist)
)
(setq e (entsel “n>> 객체를 선택하세요 :”))
(prompt “n>> offset 방향을 클릭하세요 : “)
(while (null e)
(setq e (entsel “n>> 객체를 선택하세요 :”))
(prompt “n>> offset 방향을 클릭하세요 : “)
)
(while (not (null e))
(command “offset” d e pause “”)
(command “erase” e “”)
(setq dist (fix d))
(setq e (entsel “n>> 계속 작업하려면 객체를 선택, 끝내려면 엔터를 치세요 :”))
(prompt “n>> offset 방향을 클릭하세요 : “)
)
(setvar “cmdecho” cmd)
(prin1)
)
(princ “nt 선택요소가 옮겨지면서 Offset. 명령어 : MO”)
(princ)
mo(수정).lsp
수야12 님 감사합니다.
옵셋을 하면서 좌우측에 있는 선들도 옵셋량만큰 길이가 줄어들게 할수 있나요?