我的目的是模具宽度,角度已知 算出深度
三角函数不会 麻烦你改一下 TAN处
(defun C:kk2()
(setq a (getreal"请输入模具宽"))
(if (not a) (setq a aa) (setq aa a))
(print a)
(setq b (getdist"请输入角度"))
(setq c (TAN B ))
(setq D (/ a C))
(setq pt (getpoint "\n 选取点:"))
(command "text" pt 2.5 0 d )
(princ)
)