如何用命令实现单行文字从倾斜变为正立

chj20050606

画图中有很多字的旋转角度不为0，也就是说字是倾斜的，如何用命令实现让这些字正立过来？

langjs

大喊一声：“立正！齐步走——”
(defun c:tt (/ ent i ss)
  (if (setq ss (ssget '((0 . "*TEXT"))))
    (repeat (setq i (sslength ss))
      (setq ent (entget (ssname ss (setq i (1- i))))
     ent (subst  (cons 50 0.0)  (assoc 50 ent) ent )
      )
      (entmod (subst (cons 51 0.0) (assoc 51 ent) ent ))
    )
  )
  (princ)
)

669423907

langjs 发表于 2012-3-29 16:26
大喊一声：“立正！齐步走——”
(defun c:tt (/ ent i ss)
  (if (setq ss (ssget '((0 . "*TEXT" ...

谢谢langjs大师分享好程序！

注册

langjs大师够油墨

lidaxiu

大师够幽默

theisland

langjs 发表于 2012-3-29 16:26
大喊一声：“立正！齐步走——”
(defun c:tt (/ ent i ss)
  (if (setq ss (ssget '((0 . "*TEXT" ...

狼大侠，能否同时把颠倒的文字“立正”呢？就是把属性中的颠倒选项改为否

香田里浪人

theisland 发表于 2014-10-14 23:32
狼大侠，能否同时把颠倒的文字“立正”呢？就是把属性中的颠倒选项改为否

;;;旋转文字及图块
(defun c:xzwz(/ x k s n m en r)
  (vl-load-com)
  (setq x(getangle"\n输入需要旋转的角度<归0>:"))
  (if(null x)(setq x 0 k nil) (setq k t))
  (while
(setq s(ssget'((0 . "INSERT,text,mtext"))))
  (if s
    (progn
      (setq n(sslength s)m 0)
      (while(< m n)
        (setq en(ssname s m)
              m(1+ m))
        (if k(setq r (+ (cdr(assoc 50 (entget en))) x))(setq r x))
        (vla-put-Rotation (vlax-ename->vla-object en) r)
        )))
)
  (princ)
  )

theisland

香田里浪人 发表于 2014-10-15 16:19
;;;旋转文字及图块
(defun c:xzwz(/ x k s n m en r)
  (vl-load-com)

谢谢你的回复！试了下没反应哦