本帖最后由 xyp1964 于 2024-12-25 10:50 编辑
- (defun c:tt ()
- (defun xyp-DXF (c e) (cdr (assoc c (entget e))))
- (defun xyp-R2D (r) (* r (/ 180 pi)))
- (while (setq s1 (car (entsel "\n选择构造线<退出>: ")))
- (setq p11 (xyp-DXF 11 s1)
- rad (angle '(0 0) p11)
- )
- (princ "\n角度 = ")
- (princ (xyp-r2d rad))
- )
- (princ)
- )
|