스트레치 관련 리습 도와주세요.

2016년에 수야12 님이 만들어주신 선택된 레이어만 스트레치 되는 리습입니다.


(defun c:ff(/ ss lay)
 (or #@lay (setq #@lay "01(REd)"))
  (setq lay "")
  (setq lay (getstring (strcat "n선택 레이어 이름<"(vl-princ-to-string #@lay) ">: ")))
  (if (/= "" lay)(setq #@lay lay))
 (command "_stretch" (setq ss(ssget (list (cons 8 #@lay)))) "" pause)
 (princ)
 )

이 리습은 레이어를 선택할때 자판으로 레이어명을 입력을해서 선택하는방식입니다.

레이어 이름이 길거나 복잡한경우 작업하는데 오래걸리는경우가있어서

레이어를 선택을 입력하는방법 대신에 클릭으로 선택할수있게 수정 부탁드립니다.

감사합니다.