求复制的时候 动态旋转角度

weiqi

求复制COPY的时候 动态旋转角度

如COPY 选好对象 基点后  然后按键盘 空格时 对象 旋转了90度~

jicqj

这个能否满足你的要求

weiqi

就是把复制的功能 加上这个效果~~http://bbs.mjtd.com/thread-99379-1-1.html

wowan1314

这个想法好！ 天正软件中就有这样的程序！ 叫“自由拷贝”，还有个命令叫“自由粘贴”的。

自由拷贝 倒是可以实现。 不过 自由粘贴  估计是LISP实现不了

说下我对自由拷贝的思路：
1、选择物体，选择基点。然后原位将选择集复制一遍。
2、用GRREAD函数循环，当鼠标移动时就把复制出的选择集由基点MOVE到鼠标点位置。
3、如果是 按A就把复制出的选择集以鼠标点位置为基准点旋转90度，其他W,S.D一样的处理方式。
4、当左键点击时结束GRREAD循环.
5、如果点的是右键那么久删除复制出的选择集。

weiqi

1. (defun c:fz ()
   
2.   (prompt "\n请选择复制旋转的对象：")
   
3.   (if (and (setq ss (ssget))
   
4.     (setq pt (getpoint "\n选择基点:"))
   
5.       )
   
6. (c:qq)
   
7. 
   
8. 
   
9.   )
   
10. )
    
11. 
    
12. 
    
13. 
    
14. 
    
15. (defun c:qq ()
    
16. 
    
17.    (setq la (entlast))
    
18.       (princ "\n请指点目标点:")
    
19.       (command "copy" ss "" pt pause)
    
20.       (setq newss (ssadd))
    
21.       (while (setq la (entnext la)) (ssadd la newss))
    
22.       (princ "\n指定旋转角度或 [参照(R)]:")
    
23.       ;;(command "rotate" newss "" "non" "@" pause)
    
24.     (SETQ SSet1 newss)
    
25.        (XZ)
    
26. )
    
27. 
    
28. 
    
29. 
    
30. 
    
31. 
    
32. 
    
33. 
    
34. 
    
35. 
    
36. 
    
37. 
    
38. ;;; ----------------------------------------------------------------------------
    
39. ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------
    
40. ;;; ----------------------------------------------------------------------------
    
41. ;;;                            ( 通过键盘旋转目标 )                             
    
42. ;;; ----------------------------------------------------------------------------
    
43. (DEFUN xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)
    
44. (SETQ cmd (GETVAR "CMDECHO"))
    
45. (SETVAR "CMDECHO" 0)
    
46. (SETQ loop 1)
    
47. (WHILE loop
    
48.   (PROMPT "\n 选择对象 : ")
    
49.   (SETQ SSet (ssget "l"))
    
50.   (COND
    
51.    ((NULL SSet)(ALERT "没有选中对象!"))
    
52.    (T (SETQ loop nil))
    
53.   )
    
54. )
    
55. (setq p1 (getpoint "指定基点: "))
    
56. (PRINC "\n Press key:")
    
57. (PRINC "\n\t 《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》   ")
    
58. (PRINC "\n\t 《A键 90度》《E键 -90度》 《D键 180度》")
    
59. (TERPRI)
    
60. (SETQ KeyList '(32  49 50 65 68 81 83 87 119 101 113 32 115 97 100))
    
61. (WHILE (/= (SETQ n (CADR (GRREAD))) 13)
    
62.   (if (MEMBER n KeyList)
    
63.    (COND
    
64. ((= n 49)(COMMAND "ROTATE" SSet "" p1 1)(PRINC "\r< +1度 >"))
    
65.   ((= n 50)(COMMAND "ROTATE" SSet "" p1 -1)(PRINC "\r< -1度 >"))
    
66. 
    
67.     ((= n 113)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< q 15度 >"))
    
68.     ((= n 81)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< Q 15度 >"))
    
69. 
    
70.     ((= n 119)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< w -15度 >"))
    
71.     ((= n 87)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< W -15度 >"))
    
72. 
    
73.     ((= n 101)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< e 45度 >"))
    
74.     ((= n 69)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< E  45度 >"))
    
75. 
    
76.     ((= n 115)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< s -90度 >"))
    
77.     ((= n 83)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< S -90度 >"))
    
78. 
    
79.     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< a  90度>"))
    
80.     ((= n 65) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< A  90度>"))
    
81. 
    
82.     ((= n 100)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< d 180度>"))
    
83.     ((= n 68)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< D 180度>"))
    
84. 
    
85.     ((= n 32)(COMMAND "ROTATE" SSet "" p1 -45)(PRINC "\r<空格  -45度>"))
    
86. 
    
87.    )
    
88.   )
    
89. );WHILE
    
90. (SETVAR "CMDECHO" cmd)
    
91. (PRINC)
    
92. )
    
93. (PRINC "按键旋转1 2 q w e a s d 命令XZ ")
    

(defun c:fz ()<br />   (prompt "\n请选择复制旋转的对象：")<br />   (if (and (setq ss (ssget))<br />     (setq pt (getpoint "\n选择基点:"))<br />       )<br /> (c:qq)<br /> <br /> <br />   )<br /> )<br /> <br /> <br /> <br /> <br /> (defun c:qq ()<br /> <br />    (setq la (entlast))<br />       (princ "\n请指点目标点:")<br />       (command "copy" ss "" pt pause)<br />       (setq newss (ssadd))<br />       (while (setq la (entnext la)) (ssadd la newss))<br />       (princ "\n指定旋转角度或 [参照(R)]:")<br />       ;;(command "rotate" newss "" "non" "@" pause)<br />     (SETQ SSet1 newss)<br />        (XZ)<br /> )<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> ;;; ----------------------------------------------------------------------------<br /> ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------<br /> ;;; ----------------------------------------------------------------------------<br /> ;;;                            ( 通过键盘旋转目标 )                             <br /> ;;; ----------------------------------------------------------------------------<br /> (DEFUN xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)<br /> (SETQ cmd (GETVAR "CMDECHO"))<br /> (SETVAR "CMDECHO" 0)<br /> (SETQ loop 1)<br /> (WHILE loop<br />   (PROMPT "\n 选择对象 : ")<br />   (SETQ SSet (ssget "l"))<br />   (COND<br />    ((NULL SSet)(ALERT "没有选中对象!"))<br />    (T (SETQ loop nil))<br />   )<br /> )<br /> (setq p1 (getpoint "指定基点: "))<br /> (PRINC "\n Press key:")<br /> (PRINC "\n\t 《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》   ")<br /> (PRINC "\n\t 《A键 90度》《E键 -90度》 《D键 180度》")<br /> (TERPRI)<br /> (SETQ KeyList '(32  49 50 65 68 81 83 87 119 101 113 32 115 97 100))<br /> (WHILE (/= (SETQ n (CADR (GRREAD))) 13)<br />   (if (MEMBER n KeyList)<br />    (COND<br /> ((= n 49)(COMMAND "ROTATE" SSet "" p1 1)(PRINC "\r< +1度 >"))<br />   ((= n 50)(COMMAND "ROTATE" SSet "" p1 -1)(PRINC "\r< -1度 >"))<br /> <br />     ((= n 113)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< q 15度 >"))<br />     ((= n 81)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< Q 15度 >"))<br /> <br />     ((= n 119)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< w -15度 >"))<br />     ((= n 87)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< W -15度 >"))<br /> <br />     ((= n 101)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< e 45度 >"))<br />     ((= n 69)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< E  45度 >"))<br /> <br />     ((= n 115)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< s -90度 >"))<br />     ((= n 83)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< S -90度 >"))<br /> <br />     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< a  90度>"))<br />     ((= n 65) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< A  90度>"))<br /> <br />     ((= n 100)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< d 180度>"))<br />     ((= n 68)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< D 180度>"))<br /> <br />     ((= n 32)(COMMAND "ROTATE" SSet "" p1 -45)(PRINC "\r<空格  -45度>"))<br /> <br />    )<br />   )<br /> );WHILE<br /> (SETVAR "CMDECHO" cmd)<br /> (PRINC)<br /> )<br /> (PRINC "按键旋转1 2 q w e a s d 命令XZ ")<br />

有几个问题，(ssget "l") 怎么是多个对象

mccad

这个太简单了，不需要复杂的程序：

2. ;;复制旋转对象
   
3. (defun c:cr ()
   
4.   (setq ent (ssget))
   
5.   (command "copy" ent "" pause "@" "rotate" "p" "" "@")
   
6. )

;;复制旋转对象<br /> (defun c:cr ()<br />   (setq ent (ssget))<br />   (command "copy" ent "" pause "@" "rotate" "p" "" "@")<br /> )

edsion24

请问能不能加上根据旁边的线来改变块的角度的功能 谢谢 哈哈

cre8or

不用天正的人表示 其实ctrl+v之后 输入r+角度就是旋转 s+数字就是缩放或者镜像 方便得很 干吗要用到天正那么不稳定的东西

669423907

(defun c:Q1()
(setq ent (ssget))
(command "copy" ent "")
(while (= 1 (getvar "cmdactive")) (command pause))
(command pause "@" "rotate" (entlast) "" "@"))