고수님들 아래리습은 스트레치 리습인데
처음에 한번 숫자를 입력하고 사용합니다
그다음에 스트레치하고 작동이 됩니다 그런데 엔터를 두번눌리고 해야되는데
매번할려니 공수가 많이 들어가는데 반복으로 가능할수 없을까 해서요
도면작업이 많타보니 시간이 많이 걸리네요 부탁드립니다
(DEFUN C:Sq ( / d k m)
(setq os (getvar “osmode”))
(COMMAND CANCEL “OSNAP” “NONE”)
(SETVAR “ORTHOMODE” 0)
(SETQ k ‘(0.0 0.0))
(if (null kdt1)
(setq kdt1 1)
)
(setq d (getreal (strcat “n Enter offset distance <” (rtos kdt1) “>: “)))
(if (null d)
(setq d kdt1)
)
(setq kdt1 d)
(setq m (list 0.0 d))
(COMMAND “osnap” “none” “STRETCH” “c” pause pause “” k m)
(setvar “osmode” 4791)
(princ)
)