求教怎么控制文字方向

start4444

我测试了一下，这种捕捉最近点还是不完全可靠，在线端点选的时候角度不对，不过大部分情况还是对的
(defun c:tt5(/ ang ang1 ang2 ang3 dbiaozhu ename ent1 entdat p0 pd pk pmid ps1 ps2)
        (setq Dbiaozhu (getvar "DIMSCALE"))
         (while (= (setq ent1 (entsel "\n選擇線")) nil)
        (setq ent1 (entsel "\n選擇線")))
        (setq ename (car ent1) entdat(entget ename) pk (cadr ent1) p0 (osnap pk "nea") pmid (osnap pk "mid") ang (angle pk p0))        
        (setq PS1  (polar pmid ang 10))
        (setq PS2  (polar pmid ang -10))        
        (if                           
                (and (>= (angle PS1 PS2) (* 0 pi))
                        (<= (angle PS1 PS2) (* 1 pi)))               
                (setq ANG1 (+ (angle PS1 PS2) pi))
                (setq ANG1 (angle PS1 PS2))                 
        )               
        (setq PD  (polar pmid ang (* -1.5 Dbiaozhu)))
        ;(setq ang2(+ ang1 (* 0.5 pi)))  ；暂且先把ang2定义出来，就是文字的方向，后面再判断
        (if (or (= ang 0) (= ang pi)) (setq ang2 (* 0.5 pi)) (setq ang2(+ ang1 (* 0.5 pi))))  你给的方案直接复制来的
;(if
;(or (/= ang2 (* 0.5 pi))  ;如果ang2 不是垂直方向
;(= ang2 (* 0.5 pi)))  ;如果ang2是垂直方向
;(setq ang3 ang2) ;不是垂直方向的话 方向不变=ang2
;(setq ang3(+ 1 ang2 ))  ;如果是垂直方向  ang2+1  也就是转180度，实在不知道哪里理解的不到位啦 ,还尝试了其他几种都没成功
;)  
  (EntMake-Text-ZS-Ang PD "文字文字" (* 2 Dbiaozhu) ang2 )
  (princ)
)