如何批量改变直线角度？

fl202

fire9527 发表于 2015-6-7 11:59
刚是了下，没反应哦，还有就是并不是所有直线都要旋转180度，而是在一定角度范围内的直线才需要旋转，解决 ...

ZZXXQQ的程序，把判断条件稍微改下，不就解决你的问题了？

fire9527

关键就是不会改那判断条件啊

llsheng_73

1. (defun c:tt2(/ ss i en pt ang1 ang2)
   
2.   (if(setq ang1(* pi 0.5)
   
3.            ang2(+ pi ang1)
   
4.            ss(ssget"X"'((0 . "LINE"))))
   
5.     (repeat(setq i(sslength ss))
   
6.       (IF(<= ANG1
   
7.              (APPLY'ANGLE(setq i(1- i)
   
8.                                en(entget(ssname ss i))
   
9.                                pt(mapcar'(lambda(x)(setq x(assoc x en)en(vl-remove x en))(cdr x))'(10 11))))
   
10.              ANG2)
    
11.         (ENTMOD(APPEND en(mapcar'cons'(11 10)pt)))))
    
12.     ))

(defun c:tt2(/ ss i en pt ang1 ang2)<br />   (if(setq ang1(* pi 0.5)<br />            ang2(+ pi ang1)<br />            ss(ssget"X"'((0 . "LINE"))))<br />     (repeat(setq i(sslength ss))<br />       (IF(<= ANG1<br />              (APPLY'ANGLE(setq i(1- i)<br />                                en(entget(ssname ss i))<br />                                pt(mapcar'(lambda(x)(setq x(assoc x en)en(vl-remove x en))(cdr x))'(10 11))))<br />              ANG2)<br />         (ENTMOD(APPEND en(mapcar'cons'(11 10)pt)))))<br />     ))