[编程申请]：在天正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 />

请点下面的附件下载：