;;;**以下文字直线平行******************************************************************** (DEFUN C:pinxin (/ a ent ent1 et lineanglelinelist1 linelist2 linept1 linept2n name s) (repeat 100 (princ "\n选择需旋转的文字:") (setq s (ssget '((0 . "TEXT")) )) (setq et (entget (car (entsel "\n选择角度线:")))) (setq linelist1 (assoc 10 et)) (setq linelist2 (assoc 11 et)) (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));转成角度 (setq angh (/ (* tang pi) 180));转成弧度 (setq n (sslength s)) (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)) ) ))
|