[求助]：怎样实现多个块同时围绕各自的基点旋转？？

lzj511

如题，小弟做图急需，哪位大侠帮小弟从繁重的劳动中解脱出来啊？小弟不胜感激啊！！
可以根据块的名称，批量旋转同一名称的多个块，怎样来实现啊？
小弟不懂编程，惭愧，正要好好学习！

zml84

2. 
   
3.   [FONT=courier new]
   
4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
5. ;;;ZML84制作于2006-10-13
   
6. (defun c:test (/ s1 ang i ent pp )
   
7.   (princ "\n★★批量旋转图块★★")
   
8.   (setq n (getstring "\n请输入块名:"))
   
9.   (if (setq s1 (ssget "x" (list (cons 2 n))))
   
10.     (if        (setq ang (getangle "\n要旋转到的角度:"))
    
11.       (progn
    
12.         (setq i 0)
    
13.         (repeat        (sslength s1)
    
14.           (setq        ent (entget (ssname s1 i))
    
15.                 pp  (cons 50 ang)
    
16.                 ent (subst pp (assoc 50 ent) ent)
    
17.           )
    
18.           (entmod ent)
    
19.           (setq i (1+ i))
    
20.         )
    
21.         (princ (strcat
    
22.                 "\n已对"
    
23.                 (itoa i)
    
24.                 "个对象操作完毕。"
    
25.                 )
    
26.         )
    
27.       ) ;结束progn
    
28.     )
    
29.     (princ (strcat
    
30.              "\n在当前文档中未发现块名为""
    
31.              n
    
32.              ""的图块！！"
    
33.            )
    
34.     )
    
35.   )  ;结束if
    
36.   (princ)
    
37. )
    
38.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;ZML84制作于2006-10-13<br /> (defun c:test (/ s1 ang i ent pp )<br />   (princ "\n★★批量旋转图块★★")<br />   (setq n (getstring "\n请输入块名:"))<br />   (if (setq s1 (ssget "x" (list (cons 2 n))))<br />     (if        (setq ang (getangle "\n要旋转到的角度:"))<br />       (progn<br />         (setq i 0)<br />         (repeat        (sslength s1)<br />           (setq        ent (entget (ssname s1 i))<br />                 pp  (cons 50 ang)<br />                 ent (subst pp (assoc 50 ent) ent)<br />           )<br />           (entmod ent)<br />           (setq i (1+ i))<br />         )<br />         (princ (strcat<br />                 "\n已对"<br />                 (itoa i)<br />                 "个对象操作完毕。"<br />                 )<br />         )<br />       ) ;结束progn<br />     )<br />     (princ (strcat<br />              "\n在当前文档中未发现块名为""<br />              n<br />              ""的图块！！"<br />            )<br />     )<br />   )  ;结束if<br />   (princ)<br /> )<br />   [/FONT]<br />

aeo

(entmod ent)
不很好
比如有属性
不如老实一点,rotate

lzj511

cad2002提示zm184老兄的程序参数太少错误，什么原因啊？

zml84

请问楼上：执行的何处出错了？
操作后，图形中对象是否改变？

雨箭风刀

如果不在乎用command，用3楼方法更简单有效

lzj511

zm184老兄，在命令行输入test后，出现下面的情况
命令: test
; 错误: 参数太少

命令:


怎么回事啊？

Underway

(defun c:test (/s1 ang i ent pp )  

=======>
(defun c:test (/ s1 ang i ent pp )

dwg001

最初由 zml84 发布
[B][CODE]
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ZML84制作于2006-10-13
(defun c:test (/ s1 ang i ent pp )
  (princ "\n★★批量旋转图块★★")
  (setq n (getstrin... [/B]

带属性的块似乎不能正确运行。

dandee

好像根本不用编程的，有现成的命令

1，ctrl+1 打开属性窗，在右上角有个漏斗状的按钮-->为快速选择-->选取全图-->过滤你要的块名
2，在属性窗里旋转一栏，填入角度，就能大功告成

zml84

最初由 dandee 发布
[B]好像根本不用编程的，有现成的命令

1，ctrl+1 打开属性窗，在右上角有个漏斗状的按钮-->为快速选择-->选取全图-->过滤你要的块名
2，在属性窗里旋转一栏，填入角度，就能大功告成 [/B]

10楼的方法局限性在于只能统一指定要旋转到的角度，对不同旋转角度的快无能为力。