(defun C:zsx (/ a ent ent1 et lineangle linelist1 linelist2 linept1 linept2 n name s)
(princ "\n选拔需旋转的翰墨：") 开发物联网软件一般需要多少钱
(setq s (ssget '((0 . "TEXT")) ))
(setq et (entget (car (entsel "\n选拔角度线:"))))
(setq linelist1 (assoc 10 et))
(setq linelist2 (assoc 11 et))
app(setq linept1 (list (nth 1 linelist1) (nth 2 linelist1)))
(setq linept2 (list (nth 1 linelist2) (nth 2 linelist2)))
(setq lineangle (angle linept1 linept2));预备弧度
(setq tang (/ (* lineangle 180) pi));转成角度
(IF (AND (> tang 90) (< tang 180)) (setq tang (+ tang 180));诊治90-180角到第4象限
);endif
(IF (AND (>= tang 180) (<= tang 270)) (setq tang (- tang 180));诊治180-270角到第1象限
);endif
(setq angh (/ (* tang pi) 180));转成弧度
(setq n (sslength s))
天狼星 VS 哥德堡盖斯两队近10年的交战次数为6场，天狼星2胜2平2负，赢球概率为33.3%，平局概率为33.3%，物联网软件开发公司输球概率为33.3%。
(setq a 1)
(while (<= a n)
(setq name (ssname s (- a 1)))
(setq ent (entget name))
(setq ent1 (subst (cons 50 angh) (assoc 50 ent) ent))
(entmod ent1)
(setq a (+ a 1))
)
)
本站仅提供存储做事，扫数施行均由用户发布，如发现存害或侵权施行，请点击举报。