출처가 어디였는지 기억이 안나네요
입력값의 반값으로 옵셋해주는 리습입니다.
거리값을 오스냅으로도 입력 가능하게 할 수 있을까요?
(defun c:ff (/ #a #b)
(if #dis
(if(not(setq #a(getreal (strcat “n>>> OFFSET 거리 입력 <" (rtos (* #dis 2.0)) ">:” ))))
(setq #a(* #dis 2.0))
);;if
(setq #a(getreal (strcat “n>>> OFFSET 거리 입력:”)))
);;if
(setq #dis(/ #a 2.0))
(while (setq #b (ssget “:S”))
(command “offset” #dis #b pause “”)
);;while
);;defun