fl202 发表于 2015-6-10 08:57:28

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

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

fire9527 发表于 2015-6-10 21:09:05

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

llsheng_73 发表于 2015-6-12 11:14:19

(defun c:tt2(/ ss i en pt ang1 ang2)
(if(setq ang1(* pi 0.5)
         ang2(+ pi ang1)
         ss(ssget"X"'((0 . "LINE"))))
    (repeat(setq i(sslength ss))
      (IF(<= ANG1
             (APPLY'ANGLE(setq i(1- i)
                               en(entget(ssname ss i))
                               pt(mapcar'(lambda(x)(setq x(assoc x en)en(vl-remove x en))(cdr x))'(10 11))))
             ANG2)
      (ENTMOD(APPEND en(mapcar'cons'(11 10)pt)))))
    ))
页: 1 [2]
查看完整版本: 如何批量改变直线角度？