批量轉文字角度。大家看看能還能完美一下

piao1887

插入点肯定是要变的 不变的话你怎么保证文字在原来位置

如果光改变角度不改变插入点的话 就很简单了 一个command都搞定了

还算旋转的基点干吗

xyz2009xyz

我的意思是多行文字旋转之后不在原来的位置上！

yoyoho

;CHTXRT - Changes the rotation of selected text.
;
;Jeffery P Sanders
;
(defun C:CTR( /  eset enlist oldht len ln)
 (princ "\n \n \nSelect Text: ")
 (if (setq eset (ssget))
  (progn
   (setq len(sslength eset) ln(- len 1))
   (while(>=(setq len(- len 1))0)
    (setq en(ssname eset len)enlist(entget en))
    (if(OR (= "TEXT" (cdr (assoc 0 enlist))) (= "MTEXT" (cdr (assoc 0 enlist))) (= "ATTDEF" (cdr (assoc 0 enlist))))
     (progn
      (if (= len ln)
       (progn
        (princ(strcat"\n \nOld Rotation Angle = "(angtos (cdr(assoc 50 enlist)))))
       
        ;(setq ht_angle(getangle "\nText Rotation Angle: "))
        (IF (/= ht_angle NIL) (SETQ ht_angle-S ht_angle) (SETQ ht_angle 0))
        (PRINC "\n TEXT ,MTEXT ,ATTDEF 旋转角度 <")(PRINC (angtos ht_angle))(PRINC ">:")
        (setq ht_angle  (getangle ))
        (IF (= ht_angle NIL)(SETQ ht_angle ht_angle-S))
   
        (princ "\n \n \n...Please Wait....Altering Selection Set...")
      ))
      (setq enlist(subst(cons 50 ht_angle)(assoc 50 enlist)enlist))(entmod enlist)
     )(setq ln(- ln 1))
   ))
   (princ "\n....CTR Complete. \n ")
  )
 (princ "\n \n....*ERROR*.. Nothing Selected! \n ")
 )
 (princ)
)

xyz2009xyz

yoyoho大虾的程序很好，感谢下！

guankuiwu

不错的小程序！简洁明了！