캐드 분류
OFFSET 에서 원본을 삭제하는 리습인데 수정하고 싶습니다.
컨텐츠 정보
- 262 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
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)
관련자료
댓글 3