多功能复制、移动、旋转

baoxiaozhong

1. (defun c:cx ( / *error* c cmde s ang )
   
2.   (defun *error* (msg)
   
3.     (if c (setvar 'COPYMODE c))
   
4.     (if cmde (setvar 'CMDECHO cmde))
   
5.     (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
   
6.       (princ (strcat "\n错误： " msg))
   
7.     )
   
8.   )
   
9.   (if (setq cmde (getvar 'CMDECHO)) (setvar 'CMDECHO 0))
   
10.   (if (setq c (getvar 'COPYMODE)) (setvar 'COPYMODE 1))
    
11.   (defun do_C nil
    
12.     (prompt "\n下一点：")
    
13.     (command "_.point" "_non" "@")
    
14.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
    
15.     (setq sss (cons s sss))
    
16.     (entdel (entlast))
    
17.     (command "_.undo" "m")
    
18.     (command "_.copy" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))
    
19.     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)
    
20.     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))
    
21.   )
    
22.   (defun do_CC nil
    
23.     (command "_.point" "_non" "@")
    
24.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
    
25.     (setq sss (cons s sss))
    
26.     (entdel (entlast))
    
27.     (command "_.undo" "m")
    
28.     (command "_.copy" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))
    
29.     (command "_.move" s "" "_non" (if llp llp (setq lp (getvar 'LASTPOINT))) "_non" (if llp (setq llp (mapcar '+ llp lllp)) lp))
    
30.   )
    
31.   (defun do_CCC ( / n k kk pt d )
    
32.     (command "_.point" "_non" "@")
    
33.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
    
34.     (setq sss (cons s sss))
    
35.     (entdel (entlast))
    
36.     (command "_.undo" "m")
    
37.     (initget 7)
    
38.     (setq n (getint "\n输入数组数量<结束按空格键>"))
    
39.     (command "_.copy" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))
    
40.     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)
    
41.     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))
    
42.     (setq k (float n))
    
43.     (setq d (/ (distance lllp '(0.0 0.0 0.0)) k))
    
44.     (prompt "\n设定总距离") (princ (rtos d 2 8)) (prompt "\t ENTER 继续")
    
45.     (command pause)
    
46.     (setq kk 0.0)
    
47.     (repeat (- n 1)
    
48.       (setq pt (mapcar '- lp (mapcar '* (list (* (setq kk (1+ kk)) (/ 1.0 k)) (* kk (/ 1.0 k)) (* kk (/ 1.0 k))) lllp)))
    
49.       (command "_.copy" s "" "_non" lp "_non" pt)
    
50.     )
    
51.     (setvar 'LASTPOINT llp)
    
52.   )
    
53.   (defun do_M nil
    
54.     (prompt "\n下一点:")
    
55.     (command "_.point" "_non" "@")
    
56.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
    
57.     (setq sss (cons s sss))
    
58.     (entdel (entlast))
    
59.     (command "_.undo" "m")
    
60.     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)
    
61.     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))
    
62.   )
    
63.   (defun do_MM nil
    
64.     (command "_.point" "_non" "@")
    
65.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
    
66.     (setq sss (cons s sss))
    
67.     (entdel (entlast))
    
68.     (command "_.undo" "m")
    
69.     (command "_.move" s "" "_non" (if llp llp (setq lp (getvar 'LASTPOINT))) "_non" (if llp (setq llp (mapcar '+ llp lllp)) lp))
    
70.   )
    
71.   (defun do_R ( / lo g )
    
72.     (setq lo T)
    
73.     (while lo
    
74.       (prompt "\n按鼠标左键<鼠标输入>; 鼠标右键<键盘输入>")
    
75.       (setq g (grread nil 14 0))
    
76.       (cond
    
77.         ((eq (car g) 3) (do_RM))
    
78.         ((or (eq (car g) 25) (eq (car g) 11)) (do_RK))
    
79.       )
    
80.     )
    
81.   )
    
82.   (defun do_RM ( / pt osm pola )
    
83.     (setq osm (getvar 'OSMODE))
    
84.     (setvar 'OSMODE 0)
    
85.     (setq pola (getvar 'POLARANG))
    
86.     (setvar 'POLARANG 0.0)
    
87.     (prompt "\n输入角度<鼠标输入> : ")
    
88.     (command "_.point" "_non" "@")
    
89.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
    
90.     (setq sss (cons s sss))
    
91.     (entdel (entlast))
    
92.     (command "_.undo" "m")
    
93.     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) pause)
    
94.     (command "_.line" "_non" pt "_non" (cadr (grread 1)) "")
    
95.     (setq ang (atof (rtos (cvunit (getvar 'LASTANGLE) "radians" "degrees"))))
    
96.     (setvar 'LASTPOINT pt)
    
97.     (setvar 'OSMODE osm)
    
98.     (setvar 'POLARANG pola)
    
99.     (entdel (entlast))
    
100.     (setq lo nil)
     
101.   )
     
102.   (defun do_RK ( / pt osm pola )
     
103.     (setq osm (getvar 'OSMODE))
     
104.     (setvar 'OSMODE 0)
     
105.     (setq pola (getvar 'POLARANG))
     
106.     (setvar 'POLARANG 0.0)
     
107.     (initget 3)
     
108.     (setq ang (getreal "\n输入角度"))
     
109.     (command "_.point" "_non" "@")
     
110.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
     
111.     (setq sss (cons s sss))
     
112.     (entdel (entlast))
     
113.     (command "_.undo" "m")
     
114.     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) ang)
     
115.     (setvar 'LASTPOINT pt)
     
116.     (setvar 'OSMODE osm)
     
117.     (setvar 'POLARANG pola)
     
118.     (setq lo nil)
     
119.   )
     
120.   (defun do_RT nil
     
121.     (command "_.point" "_non" "@")
     
122.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
     
123.     (setq sss (cons s sss))
     
124.     (entdel (entlast))
     
125.     (command "_.undo" "m")
     
126.     (command "_.rotate" s "" "_non" (if llp llp (getvar 'LASTPOINT)) 90)
     
127.   )
     
128.   (defun do_RR nil
     
129.     (command "_.point" "_non" "@")
     
130.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
     
131.     (setq sss (cons s sss))
     
132.     (entdel (entlast))
     
133.     (command "_.undo" "m")
     
134.     (command "_.rotate" s "" "_non" (if llp llp (getvar 'LASTPOINT)) "")
     
135.   )
     
136.   (defun do_RRR nil
     
137.     (command "_.point" "_non" "@")
     
138.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
     
139.     (setq sss (cons s sss))
     
140.     (entdel (entlast))
     
141.     (command "_.undo" "m")
     
142.     (command "_.rotate" s "" "_non" (if llp llp (getvar 'LASTPOINT)) (if ang (setq ang (- ang)) 0))
     
143.   )
     
144.   (defun do_RRRR ( / lo g )
     
145.     (setq lo T)
     
146.     (while lo
     
147.       (prompt "按鼠标左键<鼠标输入>; 鼠标右键<键盘输入>")
     
148.       (setq g (grread nil 14 0))
     
149.       (cond
     
150.         ((eq (car g) 3) (do_RRRRM))
     
151.         ((or (eq (car g) 25) (eq (car g) 11)) (do_RRRRK))
     
152.       )
     
153.     )
     
154.   )
     
155.   (defun do_RRRRM ( / loo g pt osm pola ss entl n k kk d )
     
156.     (setq osm (getvar 'OSMODE))
     
157.     (setvar 'OSMODE 0)
     
158.     (setq pola (getvar 'POLARANG))
     
159.     (setvar 'POLARANG 0.0)
     
160.     (prompt "\n输入角度<鼠标输入> : ")
     
161.     (command "_.point" "_non" "@")
     
162.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
     
163.     (setq sss (cons s sss))
     
164.     (entdel (entlast))
     
165.     (command "_.undo" "m")
     
166.     (command "_.copy" s "" "_non" "@" "_non" "@")
     
167.     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) pause)
     
168.     (command "_.line" "_non" pt "_non" (cadr (grread 1)) "")
     
169.     (setvar 'LASTPOINT pt)
     
170.     (setq ang (atof (rtos (cvunit (getvar 'LASTANGLE) "radians" "degrees"))))
     
171.     (entdel (entlast))
     
172.     (setq loo T)
     
173.     (while loo
     
174.       (prompt "\n鼠标左键控制角度小于180度；鼠标右键控制角度大于180度")
     
175.       (setq g (grread nil 14 0))
     
176.       (cond
     
177.         ((eq (car g) 3) (setq loo nil))
     
178.         ((or (eq (car g) 25) (eq (car g) 11)) (if (not (minusp ang)) (setq ang (- ang 360.0)) (setq ang (+ ang 360.0))) (setq loo nil))
     
179.       )
     
180.     )
     
181.     (setq ss (ssadd))
     
182.     (initget 6)
     
183.     (setq n (getint "\n输入数组数量<结束按空格键><ENTER旋转一次>"))
     
184.     (if (not (null n))
     
185.       (progn
     
186.         (setq k (float n))
     
187.         (setq d (/ ang k))
     
188.         (prompt "\n设定角度输入单位") (princ (rtos d 2 8)) (prompt "\t ENTER 继续")
     
189.         (command pause)
     
190.         (setq kk 0)
     
191.         (repeat (- n 1)
     
192.           (setq kk (1+ kk))
     
193.           (if (= kk 1)
     
194.             (progn
     
195.               (setq entl (entlast))
     
196.               (command "_.copy" s "" "_non" "@" "_non" "@")
     
197.               (while (setq entl (entnext entl))
     
198.                 (ssadd entl ss)
     
199.               )
     
200.               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))
     
201.             )
     
202.             (progn
     
203.               (command "_.copy" s "" "_non" "@" "_non" "@")
     
204.               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))
     
205.             )
     
206.           )
     
207.         )
     
208.       )
     
209.     )
     
210.     (if (/= (sslength ss) 0) (setq s ss))
     
211.     (setvar 'LASTPOINT pt)
     
212.     (setvar 'OSMODE osm)
     
213.     (setvar 'POLARANG pola)
     
214.     (setq lo nil)
     
215.   )
     
216.   (defun do_RRRRK ( / pt osm pola ss entl n k kk d )
     
217.     (setq osm (getvar 'OSMODE))
     
218.     (setvar 'OSMODE 0)
     
219.     (setq pola (getvar 'POLARANG))
     
220.     (setvar 'POLARANG 0.0)
     
221.     (initget 3)
     
222.     (setq ang (getreal "\n键盘输入角度"))
     
223.     (command "_.point" "_non" "@")
     
224.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
     
225.     (setq sss (cons s sss))
     
226.     (entdel (entlast))
     
227.     (command "_.undo" "m")
     
228.     (command "_.copy" s "" "_non" "@" "_non" "@")
     
229.     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) ang)
     
230.     (setq ss (ssadd))
     
231.     (initget 6)
     
232.     (setq n (getint "\n输入数组数量<结束按空格键><ENTER旋转一次>"))
     
233.     (if (not (null n))
     
234.       (progn
     
235.         (setq k (float n))
     
236.         (setq d (/ ang k))
     
237.         (prompt "\n设定角度输入单位：") (princ (rtos d 2 8)) (prompt "\t ENTER 继续")
     
238.         (command pause)
     
239.         (setq kk 0)
     
240.         (repeat (- n 1)
     
241.           (setq kk (1+ kk))
     
242.           (if (= kk 1)
     
243.             (progn
     
244.               (setq entl (entlast))
     
245.               (command "_.copy" s "" "_non" "@" "_non" "@")
     
246.               (while (setq entl (entnext entl))
     
247.                 (ssadd entl ss)
     
248.               )
     
249.               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))
     
250.             )
     
251.             (progn
     
252.               (command "_.copy" s "" "_non" "@" "_non" "@")
     
253.               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))
     
254.             )
     
255.           )
     
256.         )
     
257.       )
     
258.     )
     
259.     (if (/= (sslength ss) 0) (setq s ss))
     
260.     (setvar 'LASTPOINT pt)
     
261.     (setvar 'OSMODE osm)
     
262.     (setvar 'POLARANG pola)
     
263.     (setq lo nil)
     
264.   )
     
265.   (defun do_U nil
     
266.     (command "_.undo" "b")
     
267.     (setq llp (car l))
     
268.     (setq s (car sss))
     
269.     (setvar 'LASTPOINT llp)
     
270.     (setq l (cdr l))
     
271.     (setq sss (cdr sss))
     
272.   )
     
273.   (defun mcr ( / loop gr sss l p lp llp lllp )
     
274.     (setq loop T)
     
275.     (if (not (eq s nil))
     
276.       (while loop
     
277.         (prompt "\n\S\选择对象 \P\重设基准点 \C\复制 \A\数组 \D\连续复制 \M\移动 \N\连续移动 \R\旋转 \T\连续旋转 \E\前次旋转 \Y\数组旋转 \TAB\旋转90度 \　U\复原 ESC键或鼠标右键结束")
     
278.         (setq gr (grread nil 14 0))
     
279.         (cond
     
280.           ((or (equal gr '(2 115)) (equal gr '(2 83))) (progn (setq s nil) (mcr)))
     
281.           ((or (equal gr '(2 112)) (equal gr '(2 80))) (progn (setq p (getpoint "\n选择基准点")) (setq llp nil) (setvar 'LASTPOINT p)))
     
282.           ((or (equal gr '(2 99)) (equal gr '(2 67))) (do_C))
     
283.           ((or (equal gr '(2 100)) (equal gr '(2 68))) (do_CC))
     
284.           ((or (equal gr '(2 97)) (equal gr '(2 65))) (do_CCC))
     
285.           ((or (equal gr '(2 109)) (equal gr '(2 77))) (do_M))
     
286.           ((or (equal gr '(2 110)) (equal gr '(2 78))) (do_MM))
     
287.           ((or (equal gr '(2 114)) (equal gr '(2 82))) (do_R))
     
288.           ((or (equal gr '(2 116)) (equal gr '(2 84))) (do_RR))
     
289.           ((or (equal gr '(2 101)) (equal gr '(2 69))) (do_RRR))
     
290.           ((or (equal gr '(2 121)) (equal gr '(2 89))) (do_RRRR))
     
291.           ((or (equal gr '(2 117)) (equal gr '(2 85))) (do_U))
     
292.           ((equal gr '(2 9)) (do_RT))
     
293.           ((or (equal gr '(2 27)) (eq (car gr) 25) (eq (car gr) 11)) (setq loop nil))
     
294.         )
     
295.       )
     
296.       (progn
     
297.         (setq s (ssget "_"))
     
298.         (setq p (getpoint "\n选择基准点"))
     
299.         (setvar 'LASTPOINT p)
     
300.         (mcr)
     
301.       )
     
302.     )
     
303.   )
     
304.   (mcr)
     
305.   (*error* nil)
     
306.   (princ)
     
307. )
     
308. 
     

(defun c:cx ( / *error* c cmde s ang )<br />   (defun *error* (msg)<br />     (if c (setvar 'COPYMODE c))<br />     (if cmde (setvar 'CMDECHO cmde))<br />     (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))<br />       (princ (strcat "\n错误： " msg))<br />     )<br />   )<br />   (if (setq cmde (getvar 'CMDECHO)) (setvar 'CMDECHO 0))<br />   (if (setq c (getvar 'COPYMODE)) (setvar 'COPYMODE 1))<br />   (defun do_C nil<br />     (prompt "\n下一点：")<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.copy" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))<br />     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)<br />     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))<br />   )<br />   (defun do_CC nil<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.copy" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))<br />     (command "_.move" s "" "_non" (if llp llp (setq lp (getvar 'LASTPOINT))) "_non" (if llp (setq llp (mapcar '+ llp lllp)) lp))<br />   )<br />   (defun do_CCC ( / n k kk pt d )<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (initget 7)<br />     (setq n (getint "\n输入数组数量<结束按空格键>"))<br />     (command "_.copy" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))<br />     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)<br />     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))<br />     (setq k (float n))<br />     (setq d (/ (distance lllp '(0.0 0.0 0.0)) k))<br />     (prompt "\n设定总距离") (princ (rtos d 2 8)) (prompt "\t ENTER 继续")<br />     (command pause)<br />     (setq kk 0.0)<br />     (repeat (- n 1)<br />       (setq pt (mapcar '- lp (mapcar '* (list (* (setq kk (1+ kk)) (/ 1.0 k)) (* kk (/ 1.0 k)) (* kk (/ 1.0 k))) lllp)))<br />       (command "_.copy" s "" "_non" lp "_non" pt)<br />     )<br />     (setvar 'LASTPOINT llp)<br />   )<br />   (defun do_M nil<br />     (prompt "\n下一点:")<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)<br />     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))<br />   )<br />   (defun do_MM nil<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.move" s "" "_non" (if llp llp (setq lp (getvar 'LASTPOINT))) "_non" (if llp (setq llp (mapcar '+ llp lllp)) lp))<br />   )<br />   (defun do_R ( / lo g )<br />     (setq lo T)<br />     (while lo<br />       (prompt "\n按鼠标左键<鼠标输入>; 鼠标右键<键盘输入>")<br />       (setq g (grread nil 14 0))<br />       (cond<br />         ((eq (car g) 3) (do_RM))<br />         ((or (eq (car g) 25) (eq (car g) 11)) (do_RK))<br />       )<br />     )<br />   )<br />   (defun do_RM ( / pt osm pola )<br />     (setq osm (getvar 'OSMODE))<br />     (setvar 'OSMODE 0)<br />     (setq pola (getvar 'POLARANG))<br />     (setvar 'POLARANG 0.0)<br />     (prompt "\n输入角度<鼠标输入> : ")<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) pause)<br />     (command "_.line" "_non" pt "_non" (cadr (grread 1)) "")<br />     (setq ang (atof (rtos (cvunit (getvar 'LASTANGLE) "radians" "degrees"))))<br />     (setvar 'LASTPOINT pt)<br />     (setvar 'OSMODE osm)<br />     (setvar 'POLARANG pola)<br />     (entdel (entlast))<br />     (setq lo nil)<br />   )<br />   (defun do_RK ( / pt osm pola )<br />     (setq osm (getvar 'OSMODE))<br />     (setvar 'OSMODE 0)<br />     (setq pola (getvar 'POLARANG))<br />     (setvar 'POLARANG 0.0)<br />     (initget 3)<br />     (setq ang (getreal "\n输入角度"))<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) ang)<br />     (setvar 'LASTPOINT pt)<br />     (setvar 'OSMODE osm)<br />     (setvar 'POLARANG pola)<br />     (setq lo nil)<br />   )<br />   (defun do_RT nil<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.rotate" s "" "_non" (if llp llp (getvar 'LASTPOINT)) 90)<br />   )<br />   (defun do_RR nil<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.rotate" s "" "_non" (if llp llp (getvar 'LASTPOINT)) "")<br />   )<br />   (defun do_RRR nil<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.rotate" s "" "_non" (if llp llp (getvar 'LASTPOINT)) (if ang (setq ang (- ang)) 0))<br />   )<br />   (defun do_RRRR ( / lo g )<br />     (setq lo T)<br />     (while lo<br />       (prompt "按鼠标左键<鼠标输入>; 鼠标右键<键盘输入>")<br />       (setq g (grread nil 14 0))<br />       (cond<br />         ((eq (car g) 3) (do_RRRRM))<br />         ((or (eq (car g) 25) (eq (car g) 11)) (do_RRRRK))<br />       )<br />     )<br />   )<br />   (defun do_RRRRM ( / loo g pt osm pola ss entl n k kk d )<br />     (setq osm (getvar 'OSMODE))<br />     (setvar 'OSMODE 0)<br />     (setq pola (getvar 'POLARANG))<br />     (setvar 'POLARANG 0.0)<br />     (prompt "\n输入角度<鼠标输入> : ")<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.copy" s "" "_non" "@" "_non" "@")<br />     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) pause)<br />     (command "_.line" "_non" pt "_non" (cadr (grread 1)) "")<br />     (setvar 'LASTPOINT pt)<br />     (setq ang (atof (rtos (cvunit (getvar 'LASTANGLE) "radians" "degrees"))))<br />     (entdel (entlast))<br />     (setq loo T)<br />     (while loo<br />       (prompt "\n鼠标左键控制角度小于180度；鼠标右键控制角度大于180度")<br />       (setq g (grread nil 14 0))<br />       (cond<br />         ((eq (car g) 3) (setq loo nil))<br />         ((or (eq (car g) 25) (eq (car g) 11)) (if (not (minusp ang)) (setq ang (- ang 360.0)) (setq ang (+ ang 360.0))) (setq loo nil))<br />       )<br />     )<br />     (setq ss (ssadd))<br />     (initget 6)<br />     (setq n (getint "\n输入数组数量<结束按空格键><ENTER旋转一次>"))<br />     (if (not (null n))<br />       (progn<br />         (setq k (float n))<br />         (setq d (/ ang k))<br />         (prompt "\n设定角度输入单位") (princ (rtos d 2 8)) (prompt "\t ENTER 继续")<br />         (command pause)<br />         (setq kk 0)<br />         (repeat (- n 1)<br />           (setq kk (1+ kk))<br />           (if (= kk 1)<br />             (progn<br />               (setq entl (entlast))<br />               (command "_.copy" s "" "_non" "@" "_non" "@")<br />               (while (setq entl (entnext entl))<br />                 (ssadd entl ss)<br />               )<br />               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))<br />             )<br />             (progn<br />               (command "_.copy" s "" "_non" "@" "_non" "@")<br />               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))<br />             )<br />           )<br />         )<br />       )<br />     )<br />     (if (/= (sslength ss) 0) (setq s ss))<br />     (setvar 'LASTPOINT pt)<br />     (setvar 'OSMODE osm)<br />     (setvar 'POLARANG pola)<br />     (setq lo nil)<br />   )<br />   (defun do_RRRRK ( / pt osm pola ss entl n k kk d )<br />     (setq osm (getvar 'OSMODE))<br />     (setvar 'OSMODE 0)<br />     (setq pola (getvar 'POLARANG))<br />     (setvar 'POLARANG 0.0)<br />     (initget 3)<br />     (setq ang (getreal "\n键盘输入角度"))<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.copy" s "" "_non" "@" "_non" "@")<br />     (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) ang)<br />     (setq ss (ssadd))<br />     (initget 6)<br />     (setq n (getint "\n输入数组数量<结束按空格键><ENTER旋转一次>"))<br />     (if (not (null n))<br />       (progn<br />         (setq k (float n))<br />         (setq d (/ ang k))<br />         (prompt "\n设定角度输入单位：") (princ (rtos d 2 8)) (prompt "\t ENTER 继续")<br />         (command pause)<br />         (setq kk 0)<br />         (repeat (- n 1)<br />           (setq kk (1+ kk))<br />           (if (= kk 1)<br />             (progn<br />               (setq entl (entlast))<br />               (command "_.copy" s "" "_non" "@" "_non" "@")<br />               (while (setq entl (entnext entl))<br />                 (ssadd entl ss)<br />               )<br />               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))<br />             )<br />             (progn<br />               (command "_.copy" s "" "_non" "@" "_non" "@")<br />               (command "_.rotate" s "" "_non" (setq pt (if llp llp (getvar 'LASTPOINT))) (* (* (- 1.0) (/ 1.0 k)) ang))<br />             )<br />           )<br />         )<br />       )<br />     )<br />     (if (/= (sslength ss) 0) (setq s ss))<br />     (setvar 'LASTPOINT pt)<br />     (setvar 'OSMODE osm)<br />     (setvar 'POLARANG pola)<br />     (setq lo nil)<br />   )<br />   (defun do_U nil<br />     (command "_.undo" "b")<br />     (setq llp (car l))<br />     (setq s (car sss))<br />     (setvar 'LASTPOINT llp)<br />     (setq l (cdr l))<br />     (setq sss (cdr sss))<br />   )<br />   (defun mcr ( / loop gr sss l p lp llp lllp )<br />     (setq loop T)<br />     (if (not (eq s nil))<br />       (while loop<br />         (prompt "\n\S\选择对象 \P\重设基准点 \C\复制 \A\数组 \D\连续复制 \M\移动 \N\连续移动 \R\旋转 \T\连续旋转 \E\前次旋转 \Y\数组旋转 \TAB\旋转90度 \　U\复原 ESC键或鼠标右键结束")<br />         (setq gr (grread nil 14 0))<br />         (cond<br />           ((or (equal gr '(2 115)) (equal gr '(2 83))) (progn (setq s nil) (mcr)))<br />           ((or (equal gr '(2 112)) (equal gr '(2 80))) (progn (setq p (getpoint "\n选择基准点")) (setq llp nil) (setvar 'LASTPOINT p)))<br />           ((or (equal gr '(2 99)) (equal gr '(2 67))) (do_C))<br />           ((or (equal gr '(2 100)) (equal gr '(2 68))) (do_CC))<br />           ((or (equal gr '(2 97)) (equal gr '(2 65))) (do_CCC))<br />           ((or (equal gr '(2 109)) (equal gr '(2 77))) (do_M))<br />           ((or (equal gr '(2 110)) (equal gr '(2 78))) (do_MM))<br />           ((or (equal gr '(2 114)) (equal gr '(2 82))) (do_R))<br />           ((or (equal gr '(2 116)) (equal gr '(2 84))) (do_RR))<br />           ((or (equal gr '(2 101)) (equal gr '(2 69))) (do_RRR))<br />           ((or (equal gr '(2 121)) (equal gr '(2 89))) (do_RRRR))<br />           ((or (equal gr '(2 117)) (equal gr '(2 85))) (do_U))<br />           ((equal gr '(2 9)) (do_RT))<br />           ((or (equal gr '(2 27)) (eq (car gr) 25) (eq (car gr) 11)) (setq loop nil))<br />         )<br />       )<br />       (progn<br />         (setq s (ssget "_<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />"))<br />         (setq p (getpoint "\n选择基准点"))<br />         (setvar 'LASTPOINT p)<br />         (mcr)<br />       )<br />     )<br />   )<br />   (mcr)<br />   (*error* nil)<br />   (princ)<br /> )<br /> <br />

源码附件在六楼。

源码是类似mocoro，可以做复制、移动及旋转，但是尚缺镜像及比例放大缩小，是否可再帮忙新增镜像及比例放大缩小?

baoxiaozhong

mikewolf2k 发表于 2019-9-3 11:06
有些字符被当做格式替换了。源码请用插入代码功能。

小小的人

非常感谢楼主的分享   我有一个画通信管道的插件   每次画出来井的角度和线的角度都不一样    试一下这个旋转功能什么效果  

baoxiaozhong

p-3-ianlcc 发表于 2020-6-3 07:03
cad的版本是2016

会不会是编码问题，附件是WORD档，你再自行转成纯文字的TXT试试，这个版本，我用2014 用了半年多了，没出现问题过。

love1030312

好奇用了一下  缺少参数

love1030312

好奇用了一下  缺少参数

baoxiaozhong

love1030312 发表于 2019-9-3 08:31
好奇用了一下  缺少参数

缺少什么参数，我这里使用是正常的。

mikewolf2k

有些字符被当做格式替换了。源码请用插入代码功能。

烟盒迷唇

感谢分享啊

你永远赢不了我

费这么大劲弄这个干啥

baoxiaozhong

1. ((or (equal gr '(2 73)) (equal gr '(2 105))) (do_MIR))

复制代码

目前是多设一个 I 键为镜像，

但是捕抓键盘的参数已经找到了，可是子参数的镜像，都试不出来，有好心人可以指导一下吗?

2. ;;mirror
   
3.   (defun do_MIR nil
   
4.     (prompt "\n下一點：")
   
5.     (command "_.point" "_non" "@")
   
6.     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))
   
7.     (setq sss (cons s sss))
   
8.     (entdel (entlast))
   
9.     (command "_.undo" "m")
   
10.     (command "_.mirror" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))
    
11.     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)
    
12.     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))
    
13.   )

;;mirror<br />   (defun do_MIR nil<br />     (prompt "\n下一點：")<br />     (command "_.point" "_non" "@")<br />     (setq l (cons (trans (cdr (assoc 10 (entget (entlast)))) 0 1) l))<br />     (setq sss (cons s sss))<br />     (entdel (entlast))<br />     (command "_.undo" "m")<br />     (command "_.mirror" s "" "_non" (getvar 'LASTPOINT) "_non" (getvar 'LASTPOINT))<br />     (command "_.move" s "" "_non" (if llp (setq lp llp) (setq lp (getvar 'LASTPOINT))) pause)<br />     (setq lllp (mapcar '- (setq llp (getvar 'LASTPOINT)) lp))<br />   )