我的目的是模具宽度,角度已知 算出深度 三角函数不会 麻烦你改一下 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) ) ...