如何批量改变直线角度？

fire9527

制作带文字的线型一个不好的地方就是如果线段是反向的，比如180度，270度，则线型上的文字也会反向，能否批量选中这些文字反向的直线，然后将直线以中心点旋转180度（或者采用reverse命令）来解决这个问题？

edata

fire9527 发表于 2015-6-10 21:09
关键就是不会改那判断条件啊

1. ;直线90-270度反向
   
2. (defun c:tt (/ ss i en ent p1 p2 ang )
   
3. (if (and (princ "\n选择直线: ")
   
4.           (setq ss (ssget '((0 . "LINE")))))
   
5.   (repeat (setq i (sslength ss))
   
6.    (setq en (ssname ss (setq i (1- i))))
   
7.    (setq ent (entget en))
   
8.    (setq p1 (cdr(assoc 10 ent)))
   
9.    (setq p2 (cdr(assoc 11 ent)))
   
10.    (setq ang (angle p1 p2))
    
11.    (if (and (> ang (* pi 0.5))(<= ang (* pi 1.5))  ) (progn
    
12.     (setq ent (subst (cons 10 p2) (assoc 10 ent) ent))
    
13.     (entmod (subst (cons 11 p1) (assoc 11 ent) ent))
    
14.    ))
    
15.   )
    
16. )
    
17. (princ)
    
18. )
    
19. ;直线90-270度全部反向
    
20. (defun c:tt2 (/ ss i en ent p1 p2 ang )
    
21. (if (and (princ "\n选择直线: ")
    
22.           (setq ss (ssget "x" '((0 . "LINE")))))
    
23.   (repeat (setq i (sslength ss))
    
24.    (setq en (ssname ss (setq i (1- i))))
    
25.    (setq ent (entget en))
    
26.    (setq p1 (cdr(assoc 10 ent)))
    
27.    (setq p2 (cdr(assoc 11 ent)))
    
28.    (setq ang (angle p1 p2))
    
29.    (if (and (> ang (* pi 0.5))(<= ang (* pi 1.5))  ) (progn
    
30.     (setq ent (subst (cons 10 p2) (assoc 10 ent) ent))
    
31.     (entmod (subst (cons 11 p1) (assoc 11 ent) ent))
    
32.    ))
    
33.   )
    
34. )
    
35. (princ)
    
36. )

;直线90-270度反向<br /> (defun c:tt (/ ss i en ent p1 p2 ang )<br /> (if (and (princ "\n选择直线: ")<br />           (setq ss (ssget '((0 . "LINE")))))<br />   (repeat (setq i (sslength ss))<br />    (setq en (ssname ss (setq i (1- i))))<br />    (setq ent (entget en))<br />    (setq p1 (cdr(assoc 10 ent)))<br />    (setq p2 (cdr(assoc 11 ent)))<br />    (setq ang (angle p1 p2))<br />    (if (and (> ang (* pi 0.5))(<= ang (* pi 1.5))  ) (progn<br />     (setq ent (subst (cons 10 p2) (assoc 10 ent) ent))<br />     (entmod (subst (cons 11 p1) (assoc 11 ent) ent))<br />    ))<br />   )<br /> )<br /> (princ)<br /> )<br /> ;直线90-270度全部反向<br /> (defun c:tt2 (/ ss i en ent p1 p2 ang )<br /> (if (and (princ "\n选择直线: ")<br />           (setq ss (ssget "x" '((0 . "LINE")))))<br />   (repeat (setq i (sslength ss))<br />    (setq en (ssname ss (setq i (1- i))))<br />    (setq ent (entget en))<br />    (setq p1 (cdr(assoc 10 ent)))<br />    (setq p2 (cdr(assoc 11 ent)))<br />    (setq ang (angle p1 p2))<br />    (if (and (> ang (* pi 0.5))(<= ang (* pi 1.5))  ) (progn<br />     (setq ent (subst (cons 10 p2) (assoc 10 ent) ent))<br />     (entmod (subst (cons 11 p1) (assoc 11 ent) ent))<br />    ))<br />   )<br /> )<br /> (princ)<br /> )

Andyhon

请给个调试用的样本Dwg供验证...

ZZXXQQ

2. ;直线转180度
   
3. (defun c:tt ()
   
4. (if (and (princ "\n选择直线: ")
   
5.           (setq ss (ssget '((0 . "LINE")))))
   
6.   (repeat (setq i (sslength ss))
   
7.    (setq en (ssname ss (setq i (1- i))))
   
8.    (setq ent (entget en))
   
9.    (setq p1 (cdr(assoc 10 ent)))
   
10.    (setq p2 (cdr(assoc 11 ent)))
    
11.    (setq ang (angle p1 p2))
    
12.    (if (< (* pi 0.5) ang (* pi 1.6)) (progn
    
13.     (setq ent (subst (cons 10 p2) (assoc 10 ent) ent))
    
14.     (entmod (subst (cons 11 p1) (assoc 11 ent) ent))
    
15.    ))
    
16.   )
    
17. )
    
18. (princ)
    
19. )
    

;直线转180度<br /> (defun c:tt ()<br /> (if (and (princ "\n选择直线: ")<br />           (setq ss (ssget '((0 . "LINE")))))<br />   (repeat (setq i (sslength ss))<br />    (setq en (ssname ss (setq i (1- i))))<br />    (setq ent (entget en))<br />    (setq p1 (cdr(assoc 10 ent)))<br />    (setq p2 (cdr(assoc 11 ent)))<br />    (setq ang (angle p1 p2))<br />    (if (< (* pi 0.5) ang (* pi 1.6)) (progn<br />     (setq ent (subst (cons 10 p2) (assoc 10 ent) ent))<br />     (entmod (subst (cons 11 p1) (assoc 11 ent) ent))<br />    ))<br />   )<br /> )<br /> (princ)<br /> )<br />

fire9527

ZZXXQQ 发表于 2015-6-7 10:31

刚上传了附件，我想要的效果并不是所有直线旋转180度，而是满足一定角度的直线，请看一下

fire9527

Andyhon 发表于 2015-6-7 09:17
请给个调试用的样本Dwg供验证...

附件已上传

fire9527

ZZXXQQ 发表于 2015-6-7 10:31

刚是了下，没反应哦，还有就是并不是所有直线都要旋转180度，而是在一定角度范围内的直线才需要旋转，解决带字线型字体反转的问题

ivde

reverse 曲线反向

自贡黄明儒

ivde 发表于 2015-6-7 12:15
reverse 曲线反向

高版本才有这个命令，不知从哪一版开始

fire9527

ZZXXQQ 发表于 2015-6-7 10:31

老大，试试reverse这个命令呢，还有就是麻烦看看附件，需要程序构建特定角度的选择集，而不是手动去选择