文字与线自动平行的LISP代码，对档距文字处理有用

利源制图

;;;**以下文字直线平行********************************************************************

(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))

  )

))