[autolisp] 객체를 원하는 만큼 이동하는 리습문장

캐드에서 백미는 역시 리습이 아닐까 싶네요.

리습으로 설계시간을 단축한다면 이는 일을 정말 잘하는 직장인 또는 자영업자가 되는 길이 아닐까 싶군요.

리습을 통해 더 나은 세상을 꿈꿔봅니다.

객체를 선택 후 위로 50미리 이동하는 리습입니다. 간단히 수정하면 위로 아래로 옆으로 등등 모두 구현이 가능하지 않을까 싶네요.

아직 리습에 대해 모르는 것이 많지만, 하나하나 배워가며 연습해서 설계를 앞으로 더 멋지게 하려고 해요~

모두모두 화이팅입니다.

(defun c:up50 (/ s)
  (if (setq s (ssget ":L"))
    (while (getpoint "\nPick a point to nudge: ")
      (command "_.move" s "" '(0. 0. 0.) '(0. 50. 0.))
    )
  )
  (princ)
)

명령어는 up50

실행하면 아래와 같이 됩니다.

오토리습으로 객체를 이동하는 소스가 생각보다 복잡하지는 않습니다.

간단히 이런 작업을 쉽게 할 수 있어요^^