절반만 offset 하는 리습

 알고있는 치수의 절반만 오프셋 하는 리습입니다. 저도 처음에는 50의 반 나누면 25니깐 그냥 25 적으면 되지 않나 그렇게 생각했습니다. 그런데 328의 절반이라면요? 3098의 절반이라면요? 언제까지나 계산기를 두드릴 수는 없습니다. 그래서 생각보다 아주 유용하게 쓸 수 있는 리습입니다.

 

---

주어진 값의 절반만 offset 하는 리습

---

(defun c:op ()
    (setq su1 (getreal "\n enter the length:"))
    (setq su2 (/ su1 2.0))
    (command "offset" su2   )
)

 명령어는 op입니다. 그냥 o가 offset이라 비슷하게 쓰려고 op로 사용하고 있습니다. 

 

 op → 스페이스 → 기준객체 클릭 → offset 할 방향 쪽으로 클릭

간단한 나누기라도 사람이 계산하게 되면 실수라는걸 할 수 있습니다. 그러면 그게 도면오류가 되는거지요. 간단하게 수정할 수 있으면 상관없는데 처음부터 작은실수를 하게되면 그걸 수정하는데 또 처음부터 수정해야 했던 경험을 보았습니다. 그래서 왠만하면 간단한 것도 컴퓨터가 계산하게 하고, 제가 직접 계산하는 것은 지양하도록 하고 있습니다.

 

op.lsp

0.00MB