#MIN tm 님 찾아가세요.

;;>>>>>>>>>>>>>>>>>>> √(A²+B²)=답
(defun c:SA (/ #a #b #c #d #e #f)
(vl-load-com)
(setq #a(vlax-ename->vla-object(car(entsel “n≫≫≫첫번째숫자를 선택:”)))
#b(expt(atof(vla-get-textstring #a))2)
#c(expt(atof(cdr(assoc 1(entget(car(entsel “n≫≫≫다음숫자를 선택:”))))))2)
#d(vla-copy #a)
);;setq
(setq #e(getpoint “n≫≫≫어디에?”))
(if (setq #f(nentselp #e))
(vla-put-textstring(vlax-ename->vla-object (car #f))(rtos(sqrt(+ #b #c))))
(progn
(vla-move #d (vla-get-insertionpoint #a) (vlax-3d-point #e))
(vla-put-textstring #d (rtos(sqrt(+ #b #c))))
);;progn
);;if
(princ)
);;defun