批量把图元旋转至水平、有问题、请高手帮忙下

434939575

可以用。你的图是什么？左下起点。逆时钟方向的图。我的cad2007

llsheng_73

按说楼主这种要求应该可以实现。。。
框选得到闭合多线段图元表。。。遍历该表：选出被它包含的图元（如果有图元在闭合多线段图元表中，将其从表中去掉）与该多线段构一个选择集，同时找出该多线段左下角点（旋转基点），计算出含该点的南边一条边的角度进一步算出旋转角。。。调用ROTATE命令。。。这是计算最少的了

自贡黄明儒

llsheng_73 发表于 2014-12-14 22:20
按说楼主这种要求应该可以实现。。。
框选得到闭合多线段图元表。。。遍历该表：选出被它包含的图元（如果 ...

1 按面积排序  2取点  3凸包扫描（高飞）4最小矩形5旋转

gys2010

自贡黄明儒 发表于 2014-12-14 23:28
1 按面积排序  2取点  3凸包扫描（高飞）4最小矩形5旋转

有没有类似程序

易云网络

我山寨presscad的

2. (defun c:rp()
   
3. (setvar "cmdecho" 0)
   
4. (setq ss (entsel "\n请指定旋转用之参考边：")
   
5.         en (entget (car ss))
   
6.         p1(cdr (assoc 10 en))
   
7.         p2(cdr (assoc 11 en))
   
8.         c(trans (cadr ss)1 0))
   
9.        (redraw (car ss) 3)  ;选择高亮
   
10. (if (>(distance c p1)(distance c p2))
    
11.         (progn
    
12.         (setq p1(cdr (assoc 11 en))
    
13.               p2(cdr (assoc 10 en)))
    
14.     )
    
15. )
    
16.   (princ "\n请选取欲旋转的图元")
    
17.   (setq ss1 (ssget))
    
18.   (setq p3 (trans (getpoint "请指定旋转方向：") 1 0))
    
19.   (setq ang1 (angle p1 p2)
    
20.         ang2 (angle p1 p3)
    
21.         ang  (/ ang1 (/ pi 2)))
    
22. (repeat 3
    
23. (if  (> ang 1)
    
24.          (setq ang (- ang 1.0)))
    
25. )
    
26. (setq RA1(*(/ (* ang (/ pi 2))pi)180))
    
27. 
    
28. (if (> pi ang1)
    
29. (progn (if ( > ang2 ang1) (progn (if ( < ang2 (+ ang1 PI))(setq RA (- 90. RA1 ))(setq RA (* -1 RA1 ))))(setq RA (* -1. RA1))))
    
30. (progn (if ( < ang2 ang1) (progn (if ( > ang2 (- ang1 pi))(setq RA (* -1. RA1 ))(setq RA (- 90. RA1))))(setq RA (- 90. RA1))))
    
31. )
    
32. ;(princ(sslength SS1))
    
33. ;(princ RA)
    
34.      (command ".ROTATE" ss1 "" (trans p1 0 1) RA)
    
35.   (princ "\n旋转角度=") (princ RA)
    
36. (princ )
    
37. )

(defun c:rp()<br /> (setvar "cmdecho" 0)<br /> (setq ss (entsel "\n请指定旋转用之参考边：")<br />         en (entget (car ss))<br />         p1(cdr (assoc 10 en))<br />         p2(cdr (assoc 11 en))<br />         c(trans (cadr ss)1 0))<br />        (redraw (car ss) 3)  ;选择高亮<br /> (if (>(distance c p1)(distance c p2))<br />         (progn <br />         (setq p1(cdr (assoc 11 en))<br />               p2(cdr (assoc 10 en)))<br />     )<br /> )<br />   (princ "\n请选取欲旋转的图元")<br />   (setq ss1 (ssget))<br />   (setq p3 (trans (getpoint "请指定旋转方向：") 1 0))<br />   (setq ang1 (angle p1 p2)<br />         ang2 (angle p1 p3)<br />         ang  (/ ang1 (/ pi 2)))<br /> (repeat 3<br /> (if  (> ang 1)<br />          (setq ang (- ang 1.0)))<br /> )<br /> (setq RA1(*(/ (* ang (/ pi 2))pi)180))<br /> <br /> (if (> pi ang1)<br /> (progn (if ( > ang2 ang1) (progn (if ( < ang2 (+ ang1 PI))(setq RA (- 90. RA1 ))(setq RA (* -1 RA1 ))))(setq RA (* -1. RA1))))<br /> (progn (if ( < ang2 ang1) (progn (if ( > ang2 (- ang1 pi))(setq RA (* -1. RA1 ))(setq RA (- 90. RA1))))(setq RA (- 90. RA1))))<br /> )<br /> ;(princ(sslength SS1))<br /> ;(princ RA)<br />      (command ".ROTATE" ss1 "" (trans p1 0 1) RA) <br />   (princ "\n旋转角度=") (princ RA)<br /> (princ ) <br /> )

gys2010

易云网络 发表于 2014-12-19 08:50
我山寨presscad的

感谢易云网络的帮助，这就是我需要的状态

bai2000

感谢易云网络,如果能连续执行就更好

易云网络

这个程序90度整倍数的时候就不好使了

依然小小鸟

不错的帖子 支持一下