고캐드에서 받은 선연장 축소 리습인데 라인만 되네요…ㅠㅠ
아크도 적용 됐으면 합니다
아무리 구글링을 해도 없이서 이렇게 고수님도 부탁드립니다
(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)
)
(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)
)
와우 자유천지님 감사합니다 잘되네요…ㅎㅎ
(initget 6) => (initget 2)
로 수정하시고 길이 입력시 – (마이너스) 값을입력하시면 됩니다
참고로 (initget 6) 은
1. 0(제로)값 입력금지
2. -(마이너스 즉 음수) 값 입력 금지 입니다
(initget 2) 은 2번항 음수값을 넣도록 허용한겁니다.
자유 천지님 감사합니다
http://www.lee-mac.com/doubleextend.html