[编程申请]：在天正3.0中选择一组轴号并使他们绕各自的圆心旋转一个指定的角度

mrbean13

在天正3.0中选择一组轴号并使他们绕各自的圆心旋转一个指定的角度

XDSoft

最初由 mrbean13 发布
[B]在天正3.0中选择一组轴号并使他们绕各自的圆心旋转一个指定的角度 [/B]

程序写好了，请试用。

2. 
   
3. ;|
   
4.    命令：dsym_ro
   
5.    功能：将天正系列软件的轴圈符号按照自身的插入点
   
6.         根据指定的角度旋转（轴号层AXIS,INSERT实体）
   
7.         
   
8.         
   
9.    说明：1.程序考虑了可以手工输入角度值，也可以根据屏幕的两点
   
10.           定角度。
    
11.         2.角度输入DEC度，逆时针为正
    
12.         3.程序考虑了用户坐标系，和一次性UNDO
    
13.    
    
14.    配合XDRX_API使用
    
15.    对程序有好的建议，请到“晓东CAD空间－论坛“留言
    
16.    [url]http://www.xdcad.net/forum[/url]
    
17. |;
    
18. 
    
19. (defun c:dsym_ro (/ $getangle ss an e)
    
20.   (defun $getangle (/ p1 p2 an)
    
21.     (initget 2 "F")
    
22.     (setq an (getreal "\n请输入旋转的角度[F-两点定角度]<退出>"))
    
23.     (if (= "F" an)
    
24.       (progn
    
25.         (prompt "\n**请逆时针点取两点决定角度**")
    
26.         (initget 6)
    
27.         (setq p1 (getpoint "\n起点:")
    
28.               p2 (getpoint p1 "\n终点:")
    
29.               an (atof (angtos (- (angle p1 p2) (/ pi 2)) 0 4))
    
30.         )
    
31.       )
    
32.     )
    
33.     an
    
34.   )
    
35.   (if (and
    
36.         (setq an ($getangle))
    
37.         (progn
    
38.           (prompt "\n请选取要旋转的轴圈<退出>:")
    
39.           (setq ss (ssget '((8 . "axis") (0 . "insert"))))
    
40.         )
    
41.       )
    
42. 
    
43.     (progn
    
44.       (xdrx_begin)
    
45.       (xdrx_ucson)
    
46.       (xdrx_setsstodb ss 0)
    
47.       (while (setq e (xdrx_getentdata 0))
    
48.         (command ".rotate" e "" (xdrx_getentdxf 10) (rtos an 2 4))
    
49.       )
    
50.       (xdrx_ucsoff)
    
51.       (xdrx_end)
    
52.     )
    
53.   )
    
54.   (princ)
    
55. )
    

<br /> ;|<br />    命令：dsym_ro<br />    功能：将天正系列软件的轴圈符号按照自身的插入点<br />         根据指定的角度旋转（轴号层AXIS,INSERT实体）<br />         <br />         <br />    说明：1.程序考虑了可以手工输入角度值，也可以根据屏幕的两点<br />           定角度。<br />         2.角度输入DEC度，逆时针为正<br />         3.程序考虑了用户坐标系，和一次性UNDO<br />    <br />    配合XDRX_API使用<br />    对程序有好的建议，请到“晓东CAD空间－论坛“留言<br />    [url]http://www.xdcad.net/forum[/url]<br /> |;<br /> <br /> (defun c:dsym_ro (/ $getangle ss an e)<br />   (defun $getangle (/ p1 p2 an)<br />     (initget 2 "F")<br />     (setq an (getreal "\n请输入旋转的角度[F-两点定角度]<退出>"))<br />     (if (= "F" an)<br />       (progn<br />         (prompt "\n**请逆时针点取两点决定角度**")<br />         (initget 6)<br />         (setq p1 (getpoint "\n起点:")<br />               p2 (getpoint p1 "\n终点:")<br />               an (atof (angtos (- (angle p1 p2) (/ pi 2)) 0 4))<br />         )<br />       )<br />     )<br />     an<br />   )<br />   (if (and<br />         (setq an ($getangle))<br />         (progn<br />           (prompt "\n请选取要旋转的轴圈<退出>:")<br />           (setq ss (ssget '((8 . "axis") (0 . "insert"))))<br />         )<br />       )<br /> <br />     (progn<br />       (xdrx_begin)<br />       (xdrx_ucson)<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (command ".rotate" e "" (xdrx_getentdxf 10) (rtos an 2 4))<br />       )<br />       (xdrx_ucsoff)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

请点下面的附件下载：

梦断江南

这个是以前写的，对所有物体有效－－选择时要多框几下了：）
程序没有考虑坐标系转换的问题－－所以你最好是在世界坐标系，有兴趣的朋友可以在后面的帖子完善
undo的方式还不够好，xd以前介绍过定义undo的方法，用那种会更好，不需要用undo/b.直接u就可以

2. 
   
3. ;rt多实体自身旋转;多次------------lxx.9901[2001.2m]
   
4. ;适用:all,包括block/attrib
   
5. ;ROTATE entity 基点:dxfcode-10
   
6. (defun c:RT (/ s n i en e pti);(/ sc s n i en e pti)
   
7.   (princ "\nrt多实体自身旋转;多次-----undo/b恢复-------lxx.9901[2001.2m]")
   
8.   (command "undo" "m")
   
9.   (setvar "cmdecho" 0)
   
10.   (setq sc (angtos (getangle "\n旋转角度:") 0 3))
    
11.   (while (and sc (setq s (ssget)))
    
12.      (setq n (sslength s) i 0)
    
13.      (repeat n
    
14.        (setq
    
15.         en (ssname s i)
    
16.         e (entget en '("*"))
    
17.         pti (cdr (assoc 10 e))
    
18.         i (+ 1 i)
    
19.        )
    
20.        (command "_ROTATE" en "" pti sc)
    
21.      )
    
22.   )(princ)
    
23. )
    
24. (princ "\nrt多实体自身旋转;多次------undo/b恢复------lxx.9901[2001.2m]")
    

<br /> ;rt多实体自身旋转;多次------------lxx.9901[2001.2m]<br /> ;适用:all,包括block/attrib<br /> ;ROTATE entity 基点:dxfcode-10<br /> (defun c:RT (/ s n i en e pti);(/ sc s n i en e pti)<br />   (princ "\nrt多实体自身旋转;多次-----undo/b恢复-------lxx.9901[2001.2m]")<br />   (command "undo" "m")<br />   (setvar "cmdecho" 0)<br />   (setq sc (angtos (getangle "\n旋转角度:") 0 3))<br />   (while (and sc (setq s (ssget)))<br />      (setq n (sslength s) i 0)<br />      (repeat n<br />        (setq <br />         en (ssname s i)<br />         e (entget en '("*"))<br />         pti (cdr (assoc 10 e))<br />         i (+ 1 i)<br />        )<br />        (command "_ROTATE" en "" pti sc)<br />      )<br />   )(princ)<br /> )<br /> (princ "\nrt多实体自身旋转;多次------undo/b恢复------lxx.9901[2001.2m]")<br />

mrbean13

多谢二位大侠!很好用!

CCarch

——————————————————
晓东CAD空间，天正论坛快速查阅：

话题分类：
『C类』：天正开发技术与技巧
——————————————————

痴心絕戀

新手报到~~~~~