发一个不大也不小的问题【文字归位】?

尘缘一生

问题提出：


      我们画图纸时候，用旋转命令，文字书写方式会出现变化，倒立得，反向位置的等等，为了解决这个问题，我写了个文字归正得程序。目前使用一切正常。如图：


   
程序如下：

• ;;【三领外挂】文字归正程序========
• (defun c:SL-GZ (/ k ss ent entss ang p1 p2 p3 p4 txt1 box)
•   (princ "选择要修改的文字，可多选")
•   (setq ss (ssget '((0 . "*TEXT"))))
•   (setq k 0)
•   (repeat (sslength ss)
•     (setq ent (ssname ss k))
•     (command ".JUSTIFYTEXT" ent "" "M")
•     (setq entss (entget ent))
•     (setq ang (cdr(assoc 50 entss)))
•     (if (and (>= ang (/ pi 2)) (<= ang pi)) ;;;;;第二象限
•       (setq ang (+ pi ang ))
•     )
•     (if (and (> ang  pi) (<= ang (* 1.5 pi))) ;;;;;第三象限
•       (setq ang (- ang pi))
•     )
•     (setq entss (subst (cons 50 ang) (assoc 50 entss) entss))  ;;;;;实体表更新【角度】
•     (entmod entss)
•     (entupd ent)
•     (command ".JUSTIFYTEXT" ent "" "L")  ;;;;;;改回文字为左定位
•     (setq k (1+ k))
•   )
•   (princ)
• )
  

深一步得考虑：

    反应器很不错，可惜我看了几天，没摸清个所以然，可否做个反应器，时刻监控文字的角度？或者时刻监控ROTATE 命令？ 一旦发现文字角度改变，就归正它？
    希望会反映器得高手，完善它。

天宇飞翔12

好用，谢谢

尘缘一生

天宇飞翔12 发表于 2021-11-3 12:19
; 错误: 输入中的点位置不正确

这可以说是古老部分了，早已变化改写。

• ;;选择集文字归正并左定位-----------(一级)-------------
• (defun sl-wzgz (ss / n s0 tp)
•   (setq s0 (entlast))
•   (repeat (setq n (sslength ss))
•     (setq nam (ssname ss (setq n (1- n))))
•     (slwzgz nam)
•   )
•   (setq s0 (last_ent s0))
• )
• ;;文字归正并左定位-----------(一级)-------------
• (defun slwzgz (nam / ell pt ang h tx bi ly sty)
•   (setq ell (entget nam))
•   (setq pt (e-mid nam))
•   (setq ang (e-ang nam nil))
•   (if (setq tx (getstr nam))
•     (progn
•       (entdel nam)
•       (cond
•         ((or (= "TEXT" (dxf1 ell 0))(= "MTEXT" (dxf1 ell 0)))
•           (setq h (dxf1 ell 40))
•           (setq bi (dxf1 ell 41))
•           (setq ly (dxf1 ell 8))
•           (setq sty (dxf1 ell 7))
•           (slmkwz tx pt (/ h slbl) ang bi ly sty nil "m")
•         )
•         (t
•           (slmkwz tx pt nil ang nil nil nil nil "m")
•         )
•       )
•       (setq ell (entget (setq nam (entlast))))
•       (setq ell (emod (emod ell 72 0) 73 0))
•       (entmod ell)
•       (entupd nam)
•       (setq nam (entlast))
•       nam
•     )
•   )
• )
  

；；由于涉及集成部分，我实在无法提出来，看看模样，和思路吧，光 e-ang ，e-mid，getstr,就无法提出来，涉及三领设计全局变量，SLBL：比例系数罢了！