(defun c:ew ( / ss index e obj oldspt oldept newspt newept dist)
(vl-load-com)
(prompt “n 양쪽 늘이기 [ bst ]”)
(setq ss (ssget (list (cons 0 “LINE”))))
(setvar “orthomode” 1)
(setq dist (getdist “n ≫ Input the stretch length : “))
(setq index 0)
(repeat (sslength ss)
(setq e (ssname ss index))
(setq obj (vlax-ename->vla-object e))
(setq oldspt (vlax-get obj ‘startpoint))
(setq oldept (vlax-get obj ‘endpoint))
(setq newspt (polar oldspt (angle oldept oldspt) dist))
(setq newept (polar oldept (angle oldspt oldept) dist))
(vlax-put obj ‘startpoint newspt)
(vlax-put obj ‘endpoint newept)
(setq index (1+ index))
)
(princ)
)
여기 고캐드에서 어느분이 올려주셔서 받은건데
현재 리습이 스타트 엔드 양쪽 늘이기로 되어있는데 엔드 포인트 한쪽만 늘리는
리습으로 수정이 가능할까요
능력자분들 좀 도와주시면 감사하겠습니다