[求助]：求实现双向复制旋转的程序

haibinpro

求实现双向复制旋转的程序，类似于附件功能（附件只是单向）

不可以连续复制 旋转也可以。

fsxm

grread用来用去也就是那么为事!
多练习就好!以下写的不太好
希望对你有点启发啦~

2. 
   
3. (defun c:test ()
   
4.   (cond
   
5.     ((and
   
6.        (setq ss (ssget))
   
7.        (setq ang (getangle "\n请输入(量取)角度:"))
   
8.        (setq pt (getpoint "\n指定基点:"))
   
9.      )
   
10.      (setq ang             (* ang (/ 180 pi))
    
11.            ang2             0
    
12.            exitwhile t
    
13.      )
    
14.      (while exitwhile
    
15.        (princ "\n右键，空格，回车继续，N 跳过一个,其它退出:")
    
16.        (setq gr (grread))
    
17.        (cond
    
18.          ((or
    
19.             (= (car gr) 25)
    
20.             (equal gr '(2 32))
    
21.             (equal gr '(2 13))
    
22.           )
    
23.           (setq        ang2   (+ ang ang2) )
    
24.           (repeat 2
    
25.             (setq lasten (entlast))
    
26.             (command "copy" ss "" "@" "@" "")
    
27.             (setq ss1 (newenss lasten))
    
28.             (command "ROTATE" ss1 "" "non" pt (setq ang2 (- ang2)))
    
29.           )
    
30.          )
    
31.          ((equal gr '(2 110))
    
32.           (setq ang2 (+ ang ang2))
    
33.           (princ "跳过")
    
34.          )
    
35.          (t (setq exitwhile nil))
    
36.        )
    
37.      )
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    
42. (defun newenss (en / copyss tmp)
    
43.   (setq        tmp    en
    
44.         copyss (ssadd)
    
45.   )
    
46.   (while (setq tmp (entnext tmp))
    
47.     (ssadd tmp copyss)
    
48.   )
    
49.   copyss
    
50. )
    

<br /> (defun c:test ()<br />   (cond<br />     ((and<br />        (setq ss (ssget))<br />        (setq ang (getangle "\n请输入(量取)角度:"))<br />        (setq pt (getpoint "\n指定基点:"))<br />      )<br />      (setq ang             (* ang (/ 180 pi))<br />            ang2             0<br />            exitwhile t<br />      )<br />      (while exitwhile<br />        (princ "\n右键，空格，回车继续，N 跳过一个,其它退出:")<br />        (setq gr (grread))<br />        (cond<br />          ((or<br />             (= (car gr) 25)<br />             (equal gr '(2 32))<br />             (equal gr '(2 13))<br />           )<br />           (setq        ang2   (+ ang ang2) )<br />           (repeat 2<br />             (setq lasten (entlast))<br />             (command "copy" ss "" "@" "@" "")<br />             (setq ss1 (newenss lasten))<br />             (command "ROTATE" ss1 "" "non" pt (setq ang2 (- ang2)))<br />           )<br />          )<br />          ((equal gr '(2 110))<br />           (setq ang2 (+ ang ang2))<br />           (princ "跳过")<br />          )<br />          (t (setq exitwhile nil))<br />        )<br />      )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun newenss (en / copyss tmp)<br />   (setq        tmp    en<br />         copyss (ssadd)<br />   )<br />   (while (setq tmp (entnext tmp))<br />     (ssadd tmp copyss)<br />   )<br />   copyss<br /> )<br />

haibinpro

谢谢，正是我需要的。我现在lsp的编写水平还不高，谢谢提供源程序给我使用和学习。