[LISP函数]：很想把能用LISP写出像XDRX_API中的函数

LUCAS

2. 
   
3. ;;很想把能用LISP写出像XDRX_API中的函数,但没有时间,能力也不足
   
4. ;;By LUCAS(龙龙仔)
   
5. 
   
6. (defun SETLST ()
   
7.   (setq        LST '((1 (255 0 0))
   
8.               (2 (255 255 0))
   
9.               (3 (0 255 0))
   
10.               (4 (0 255 255))
    
11.               (5 (0 0 255))
    
12.               (6 (255 0 255))
    
13.               (7 (255 255 255))
    
14.               (8 (128 128 128))
    
15.               (9 (192 192 192))
    
16.               (10 (255 0 0))
    
17.               (11 (255 127 127))
    
18.               (12 (204 0 0))
    
19.               (13 (204 102 102))
    
20.               (14 (153 0 0))
    
21.               (15 (153 76 76))
    
22.               (16 (127 0 0))
    
23.               (17 (127 63 63))
    
24.               (18 (76 0 0))
    
25.               (19 (76 38 38))
    
26.               (20 (255 63 0))
    
27.               (21 (255 159 127))
    
28.               (22 (204 51 0))
    
29.               (23 (204 127 102))
    
30.               (24 (153 38 0))
    
31.               (25 (153 95 76))
    
32.               (26 (127 31 0))
    
33.               (27 (127 79 63))
    
34.               (28 (76 19 0))
    
35.               (29 (76 47 38))
    
36.               (30 (255 127 0))
    
37.               (31 (255 191 127))
    
38.               (32 (204 102 0))
    
39.               (33 (204 153 102))
    
40.               (34 (153 76 0))
    
41.               (35 (153 114 76))
    
42.               (36 (127 63 0))
    
43.               (37 (127 95 63))
    
44.               (38 (76 38 0))
    
45.               (39 (76 57 38))
    
46.               (40 (255 191 0))
    
47.               (41 (255 223 127))
    
48.               (42 (204 153 0))
    
49.               (43 (204 178 102))
    
50.               (44 (153 114 0))
    
51.               (45 (153 133 76))
    
52.               (46 (127 95 0))
    
53.               (47 (127 111 63))
    
54.               (48 (76 57 0))
    
55.               (49 (76 66 38))
    
56.               (50 (255 255 0))
    
57.               (51 (255 255 127))
    
58.               (52 (204 204 0))
    
59.               (53 (204 204 102))
    
60.               (54 (153 153 0))
    
61.               (55 (153 153 76))
    
62.               (56 (127 127 0))
    
63.               (57 (127 127 63))
    
64.               (58 (76 76 0))
    
65.               (59 (76 76 38))
    
66.               (60 (191 255 0))
    
67.               (61 (223 255 127))
    
68.               (62 (153 204 0))
    
69.               (63 (178 204 102))
    
70.               (64 (114 153 0))
    
71.               (65 (133 153 76))
    
72.               (66 (95 127 0))
    
73.               (67 (111 127 63))
    
74.               (68 (57 76 0))
    
75.               (69 (66 76 38))
    
76.               (70 (127 255 0))
    
77.               (71 (191 255 127))
    
78.               (72 (102 204 0))
    
79.               (73 (153 204 102))
    
80.               (74 (76 153 0))
    
81.               (75 (114 153 76))
    
82.               (76 (63 127 0))
    
83.               (77 (95 127 63))
    
84.               (78 (38 76 0))
    
85.               (79 (57 76 38))
    
86.               (80 (63 255 0))
    
87.               (81 (159 255 127))
    
88.               (82 (51 204 0))
    
89.               (83 (127 204 102))
    
90.               (84 (38 153 0))
    
91.               (85 (95 153 76))
    
92.               (86 (31 127 0))
    
93.               (87 (79 127 63))
    
94.               (88 (19 76 0))
    
95.               (89 (47 76 38))
    
96.               (90 (0 255 0))
    
97.               (91 (127 255 127))
    
98.               (92 (0 204 0))
    
99.               (93 (102 204 102))
    
100.               (94 (0 153 0))
     
101.               (95 (76 153 76))
     
102.               (96 (0 127 0))
     
103.               (97 (63 127 63))
     
104.               (98 (0 76 0))
     
105.               (99 (38 76 38))
     
106.               (100 (0 255 63))
     
107.               (101 (127 255 159))
     
108.               (102 (0 204 51))
     
109.               (103 (102 204 127))
     
110.               (104 (0 153 38))
     
111.               (105 (76 153 95))
     
112.               (106 (0 127 31))
     
113.               (107 (63 127 79))
     
114.               (108 (0 76 19))
     
115.               (109 (38 76 47))
     
116.               (110 (0 255 127))
     
117.               (111 (127 255 191))
     
118.               (112 (0 204 102))
     
119.               (113 (102 204 153))
     
120.               (114 (0 153 76))
     
121.               (115 (76 153 114))
     
122.               (116 (0 127 63))
     
123.               (117 (63 127 95))
     
124.               (118 (0 76 38))
     
125.               (119 (38 76 57))
     
126.               (120 (0 255 191))
     
127.               (121 (127 255 223))
     
128.               (122 (0 204 153))
     
129.               (123 (102 204 178))
     
130.               (124 (0 153 114))
     
131.               (125 (76 153 133))
     
132.               (126 (0 127 95))
     
133.               (127 (63 127 111))
     
134.               (128 (0 76 57))
     
135.               (129 (38 76 66))
     
136.               (130 (0 255 255))
     
137.               (131 (127 255 255))
     
138.               (132 (0 204 204))
     
139.               (133 (102 204 204))
     
140.               (134 (0 153 153))
     
141.               (135 (76 153 153))
     
142.               (136 (0 127 127))
     
143.               (137 (63 127 127))
     
144.               (138 (0 76 76))
     
145.               (139 (38 76 76))
     
146.               (140 (0 191 255))
     
147.               (141 (127 223 255))
     
148.               (142 (0 153 204))
     
149.               (143 (102 178 204))
     
150.               (144 (0 114 153))
     
151.               (145 (76 133 153))
     
152.               (146 (0 95 127))
     
153.               (147 (63 111 127))
     
154.               (148 (0 57 76))
     
155.               (149 (38 66 76))
     
156.               (150 (0 127 255))
     
157.               (151 (127 191 255))
     
158.               (152 (0 102 204))
     
159.               (153 (102 153 204))
     
160.               (154 (0 76 153))
     
161.               (155 (76 114 153))
     
162.               (156 (0 63 127))
     
163.               (157 (63 95 127))
     
164.               (158 (0 38 76))
     
165.               (159 (38 57 76))
     
166.               (160 (0 63 255))
     
167.               (161 (127 159 255))
     
168.               (162 (0 51 204))
     
169.               (163 (102 127 204))
     
170.               (164 (0 38 153))
     
171.               (165 (76 95 153))
     
172.               (166 (0 31 127))
     
173.               (167 (63 79 127))
     
174.               (168 (0 19 76))
     
175.               (169 (38 47 76))
     
176.               (170 (0 0 255))
     
177.               (171 (127 127 255))
     
178.               (172 (0 0 204))
     
179.               (173 (102 102 204))
     
180.               (174 (0 0 153))
     
181.               (175 (76 76 153))
     
182.               (176 (0 0 127))
     
183.               (177 (63 63 127))
     
184.               (178 (0 0 76))
     
185.               (179 (38 38 76))
     
186.               (180 (63 0 255))
     
187.               (181 (159 127 255))
     
188.               (182 (51 0 204))
     
189.               (183 (127 102 204))
     
190.               (184 (38 0 153))
     
191.               (185 (95 76 153))
     
192.               (186 (31 0 127))
     
193.               (187 (79 63 127))
     
194.               (188 (19 0 76))
     
195.               (189 (47 38 76))
     
196.               (190 (127 0 255))
     
197.               (191 (191 127 255))
     
198.               (192 (102 0 204))
     
199.               (193 (153 102 204))
     
200.               (194 (76 0 153))
     
201.               (195 (114 76 153))
     
202.               (196 (63 0 127))
     
203.               (197 (95 63 127))
     
204.               (198 (38 0 76))
     
205.               (199 (57 38 76))
     
206.               (200 (191 0 255))
     
207.               (201 (223 127 255))
     
208.               (202 (153 0 204))
     
209.               (203 (178 102 204))
     
210.               (204 (114 0 153))
     
211.               (205 (133 76 153))
     
212.               (206 (95 0 127))
     
213.               (207 (111 63 127))
     
214.               (208 (57 0 76))
     
215.               (209 (66 38 76))
     
216.               (210 (255 0 255))
     
217.               (211 (255 127 255))
     
218.               (212 (204 0 204))
     
219.               (213 (204 102 204))
     
220.               (214 (153 0 153))
     
221.               (215 (153 76 153))
     
222.               (216 (127 0 127))
     
223.               (217 (127 63 127))
     
224.               (218 (76 0 76))
     
225.               (219 (76 38 76))
     
226.               (220 (255 0 191))
     
227.               (221 (255 127 223))
     
228.               (222 (204 0 153))
     
229.               (223 (204 102 178))
     
230.               (224 (153 0 114))
     
231.               (225 (153 76 133))
     
232.               (226 (127 0 95))
     
233.               (227 (127 63 111))
     
234.               (228 (76 0 57))
     
235.               (229 (76 38 66))
     
236.               (230 (255 0 127))
     
237.               (231 (255 127 191))
     
238.               (232 (204 0 102))
     
239.               (233 (204 102 153))
     
240.               (234 (153 0 76))
     
241.               (235 (153 76 114))
     
242.               (236 (127 0 63))
     
243.               (237 (127 63 95))
     
244.               (238 (76 0 38))
     
245.               (239 (76 38 57))
     
246.               (240 (255 0 63))
     
247.               (241 (255 127 159))
     
248.               (242 (204 0 51))
     
249.               (243 (204 102 127))
     
250.               (244 (153 0 38))
     
251.               (245 (153 76 95))
     
252.               (246 (127 0 31))
     
253.               (247 (127 63 79))
     
254.               (248 (76 0 19))
     
255.               (249 (76 38 47))
     
256.               (250 (51 51 51))
     
257.               (251 (91 91 91))
     
258.               (252 (132 132 132))
     
259.               (253 (173 173 173))
     
260.               (254 (214 214 214))
     
261.               (255 (255 255 255))
     
262.              )
     
263.   )
     
264. )
     
265. 
     
266. (defun LAI_COLOR_RGB->ACI (R G B / QQ ENT LST RGB)
     
267.   (setq LST (SETLST))
     
268.   (setq RGB (list R G B))
     
269.   (foreach ENT LST
     
270.     (if        (equal (cadr ENT) RGB)
     
271.       (setq QQ (car ENT))
     
272.     )
     
273.   )
     
274.   QQ
     
275. )
     
276. 
     
277. (defun LAI_COLOR_ACI->RGB (ACI / LST)
     
278.   (setq LST (SETLST))
     
279.   (cadr (assoc ACI LST))
     
280. )
     
281. 
     
282. (defun LAI_GETSCREENBOX        (/ CTR SIZE SCREEN SCALE XSIZE)
     
283.   (setq CTR (getvar "VIEWCTR"))
     
284.   (setq SIZE (getvar "VIEWSIZE"))
     
285.   (setq SCREEN (getvar "SCREENSIZE"))
     
286.   (setq SCALE (/ (car SCREEN) (cadr SCREEN)))
     
287.   (setq XSIZE (* SCALE SIZE))
     
288.   (append (list        (list (- (car CTR) (/ XSIZE 2))
     
289.                       (- (cadr CTR) (/ SIZE 2))
     
290.                       0.0
     
291.                 )
     
292.           )
     
293.           (list        (list (+ (car CTR) (/ XSIZE 2))
     
294.                       (- (cadr CTR) (/ SIZE 2))
     
295.                       0.0
     
296.                 )
     
297.           )
     
298.           (list        (list (+ (car CTR) (/ XSIZE 2))
     
299.                       (+ (cadr CTR) (/ SIZE 2))
     
300.                       0.0
     
301.                 )
     
302.           )
     
303.           (list        (list (- (car CTR) (/ XSIZE 2))
     
304.                       (+ (cadr CTR) (/ SIZE 2))
     
305.                       0.0
     
306.                 )
     
307.           )
     
308.   )
     
309. )
     
310. 
     
311. ;;(LAI_GRDRAW 1 1 (list (getpoint) (getpoint) (getpoint)))
     
312. (defun LAI_GRDRAW (COL FLAG LST / PT1 PT2 N LST1)
     
313.   (setq        N    (length LST)
     
314.         LST1 LST
     
315.   )
     
316.   (while (and LST
     
317.               (>= (length LST) 2)
     
318.               (setq PT1 (nth 0 LST))
     
319.               (setq PT2 (nth 1 LST))
     
320.          )
     
321.     (grdraw PT1 PT2 COL FLAG)
     
322.     (setq LST (cdr LST))
     
323.   )
     
324.   (if (> N 2)
     
325.     (grdraw (last LST1) (nth 0 LST1) COL FLAG)
     
326.   )
     
327.   (princ)
     
328. )
     
329. 
     
330. (defun LAI_GETTIME ()
     
331.   (substr (rtos (* 100000000 (getvar "CDATE")) 2 15) 5)
     
332. )
     
333. 
     
334. (defun LAI_GETAREA (ENAME)
     
335.   (setq OBJ (vlax-ename->vla-object ENAME))
     
336.   (list        (if (vlax-property-available-p OBJ 'AREA)
     
337.           (vla-get-area OBJ)
     
338.           0
     
339.         )
     
340.         (vlax-curve-getdistatparam
     
341.           OBJ
     
342.           (vlax-curve-getendparam OBJ)
     
343.         )
     
344.   )
     
345. )
     
346. 
     
347. ;;---------------------------------------------------------------------------
     
348. ;; (lai_begin) sets system variables to values as indicated in the
     
349. ;; list variable 'a' where the format of 'a' is '("VAR" setting ...)
     
350. ;; Previous settings of the sysvars are saved in 'MLST' for retoring
     
351. ;; by issuing the command (lai_end).  You can repeatedly call (lai_begin)
     
352. ;; and it will append sysvars to 'MLST'
     
353. ;;---------------------------------------------------------------------------
     
354. (defun LAI_BEGIN (A)
     
355.   (UNDO_BEGIN)
     
356.   (if (not MLST)
     
357.     (setq MLST '())
     
358.   )
     
359.   (repeat (/ (length A) 2)
     
360.     (if        (eval (cadr A))
     
361.       (progn
     
362.         (setq MLST (append MLST (list (list (car A) (getvar (car A))))))
     
363.         (setvar (car A) (eval (cadr A)))
     
364.       )
     
365.     )
     
366.     (setq A (cddr A))
     
367.   )
     
368.   (princ)
     
369. )
     
370. ;;--------------------------------------------------------------------------
     
371. (defun LAI_END ()
     
372.   (repeat (length MLST)
     
373.     (setvar (caar MLST) (cadar MLST))
     
374.     (setq MLST (cdr MLST))
     
375.   )
     
376.   (setq MLST NIL)
     
377.   (UNDO_END)
     
378.   (princ)
     
379. )
     
380. 
     
381. ;;--------------------------------------------------------------------------
     
382. ;;Example:
     
383. ;|(LAI_BEGIN '("CMDECHO"  0  "HIGHLIGHT"  0)
     
384. ;;Then to restore the previous settings, use
     
385. (LAI_END)
     
386. |;
     
387. 
     
388. ;;;========================================
     
389. ;;;UNDO BEGIN
     
390. ;;;========================================
     
391. (defun UNDO_BEGIN (/ UNDO_CONTROL OLD_CMDECHO)
     
392.   (setq *UNDO_FLAG* 0)
     
393.   (setq UNDO_CONTROL (getvar "undoctl"))
     
394.   (if (and (= 1 (logand 1 UNDO_CONTROL))
     
395.            (/= 2 (logand 2 UNDO_CONTROL))
     
396.            (/= 8 (logand 8 UNDO_CONTROL))
     
397.       )
     
398.     (progn
     
399.       (setq OLD_CMDECHO (getvar "cmdecho"))
     
400.       (setvar "cmdecho" 0)
     
401.       (command "_.undo" "_begin")
     
402.       (setvar "cmdecho" OLD_CMDECHO)
     
403.       (setq *UNDO_FLAG* 1)
     
404.     )
     
405.   )
     
406. )
     
407. ;;;========================================
     
408. ;;;UNDO END
     
409. ;;;========================================
     
410. (defun UNDO_END        (/ OLD_CMDECHO)
     
411.   (if (eq 1 *UNDO_FLAG*)
     
412.     (progn
     
413.       (setq OLD_CMDECHO (getvar "cmdecho"))
     
414.       (setvar "cmdecho" 0)
     
415.       (command "_.undo" "_end")
     
416.       (setvar "cmdecho" OLD_CMDECHO)
     
417.       (setq *UNDO_FLAG* 0)
     
418.     )
     
419.   )
     
420. )
     
421. 
     
422. (defun LAI_SETENTTODB (OBJ)
     
423.   (setq *LAI_ENT* OBJ)
     
424. )
     
425. 
     
426. (defun LAI_GETENTDATA (KEY / SS ENT)
     
427.   (setq SS (cdr (assoc (rtos KEY) (vlax-ldata-list "LAI"))))
     
428.   (if (and (> (length SS) *NSS*)
     
429.            (setq *LAI_ENT* (nth *NSS* SS))
     
430.       )
     
431.     (progn (setq *NSS* (1+ *NSS*)) *LAI_ENT*)
     
432.     (progn (vlax-ldata-delete "LAI" (rtos KEY))
     
433.            (setq *NSS* NIL)
     
434.     )
     
435.   )
     
436. )
     
437. 
     
438. (defun LAI_SETSSTODB (SS KEY / ENAME_LIST N)
     
439.   (if (null *NSS*)
     
440.     (setq *NSS* 0)
     
441.   )
     
442.   (setq N 0)
     
443.   (repeat (sslength SS)
     
444.     (setq ENAME_LIST (cons (ssname SS N) ENAME_LIST))
     
445.     (setq N (1+ N))
     
446.   )
     
447.   (vlax-ldata-put "LAI" (rtos KEY) ENAME_LIST)
     
448. )
     
449. 
     
450. (defun LAI_GETENTDXF (CODE)
     
451.   (cdr (assoc CODE (entget *LAI_ENT*)))
     
452. )
     
453. 
     
454. ;;TEST
     
455. (defun C:CLINE (/ OLDECHO OLDSNAP OLDORTHO EN1 CIRCLE_CL)
     
456.   (defun CIRCLE_CL (EN1 / ED1 PTO RAD DD)
     
457.     (setq PTO (LAI_GETENTDXF 10)
     
458.           RAD (LAI_GETENTDXF 40)
     
459.     )
     
460.     (setq DD (* 1.2 RAD))
     
461.     (command "_line" (polar PTO 0 DD) (polar PTO pi DD) "")
     
462.     (command "_line"
     
463.              (polar PTO (/ pi 2) DD)
     
464.              (polar PTO (+ (/ pi 2) pi) DD)
     
465.              ""
     
466.     )
     
467.   )
     
468.   (LAI_BEGIN
     
469.     '("cmdecho" 0 "osmode" 0 "orthomode" 0)
     
470.   )
     
471.   (xdrx_ucson)
     
472.   (command "linetype" "S" "CENTER" "")
     
473.   (setq SCALE (getvar "DIMSCALE"))
     
474.   (setq DIST (* 0.1 SCALE))
     
475.   (prompt "\n请选择希望添加中心线的圆<退出>:")
     
476.   (if (setq SS (ssget '((0 . "circle"))))
     
477.     (progn
     
478.       (LAI_SETSSTODB SS 0)
     
479.       (while (setq E (LAI_GETENTDATA 0))
     
480.         (CIRCLE_CL E)
     
481.       )
     
482.     )
     
483.   )
     
484.   (command "linetype" "S" "BYLAYER" "")
     
485.   (command "redraw")
     
486.   (xdrx_ucsoff)
     
487.   (LAI_END)
     
488.   (princ)
     
489. )
     
490. 
     
491. (defun C:PLEN (/ E SS LENG)
     
492.   (LAI_BEGIN NIL)
     
493.   (xdrx_ucson)
     
494.   (princ "\n选择范围<退出>...")
     
495.   (if (setq
     
496.         SS (ssget '((0 . "Line,*polyline,arc,spline,Ellipse,circle")))
     
497.       )
     
498.     (progn
     
499.       (setq LENG 0.0)
     
500.       (LAI_SETSSTODB SS 0)
     
501.       (while (setq E (LAI_GETENTDATA 0))
     
502.         (setq LENG (+ (cadr (LAI_GETAREA E)) LENG))
     
503.       )
     
504.       (princ (strcat "\n线长＝" (rtos LENG 2 2)))
     
505.     )
     
506.   )
     
507.   (xdrx_ucsoff)
     
508.   (LAI_END)
     
509.   (princ)
     
510. )
     

<br /> ;;很想把能用LISP写出像XDRX_API中的函数,但没有时间,能力也不足<br /> ;;By LUCAS(龙龙仔)<br /> <br /> (defun SETLST ()<br />   (setq        LST '((1 (255 0 0))<br />               (2 (255 255 0))<br />               (3 (0 255 0))<br />               (4 (0 255 255))<br />               (5 (0 0 255))<br />               (6 (255 0 255))<br />               (7 (255 255 255))<br />               (8 (128 128 128))<br />               (9 (192 192 192))<br />               (10 (255 0 0))<br />               (11 (255 127 127))<br />               (12 (204 0 0))<br />               (13 (204 102 102))<br />               (14 (153 0 0))<br />               (15 (153 76 76))<br />               (16 (127 0 0))<br />               (17 (127 63 63))<br />               (18 (76 0 0))<br />               (19 (76 38 38))<br />               (20 (255 63 0))<br />               (21 (255 159 127))<br />               (22 (204 51 0))<br />               (23 (204 127 102))<br />               (24 (153 38 0))<br />               (25 (153 95 76))<br />               (26 (127 31 0))<br />               (27 (127 79 63))<br />               (28 (76 19 0))<br />               (29 (76 47 38))<br />               (30 (255 127 0))<br />               (31 (255 191 127))<br />               (32 (204 102 0))<br />               (33 (204 153 102))<br />               (34 (153 76 0))<br />               (35 (153 114 76))<br />               (36 (127 63 0))<br />               (37 (127 95 63))<br />               (38 (76 38 0))<br />               (39 (76 57 38))<br />               (40 (255 191 0))<br />               (41 (255 223 127))<br />               (42 (204 153 0))<br />               (43 (204 178 102))<br />               (44 (153 114 0))<br />               (45 (153 133 76))<br />               (46 (127 95 0))<br />               (47 (127 111 63))<br />               (48 (76 57 0))<br />               (49 (76 66 38))<br />               (50 (255 255 0))<br />               (51 (255 255 127))<br />               (52 (204 204 0))<br />               (53 (204 204 102))<br />               (54 (153 153 0))<br />               (55 (153 153 76))<br />               (56 (127 127 0))<br />               (57 (127 127 63))<br />               (58 (76 76 0))<br />               (59 (76 76 38))<br />               (60 (191 255 0))<br />               (61 (223 255 127))<br />               (62 (153 204 0))<br />               (63 (178 204 102))<br />               (64 (114 153 0))<br />               (65 (133 153 76))<br />               (66 (95 127 0))<br />               (67 (111 127 63))<br />               (68 (57 76 0))<br />               (69 (66 76 38))<br />               (70 (127 255 0))<br />               (71 (191 255 127))<br />               (72 (102 204 0))<br />               (73 (153 204 102))<br />               (74 (76 153 0))<br />               (75 (114 153 76))<br />               (76 (63 127 0))<br />               (77 (95 127 63))<br />               (78 (38 76 0))<br />               (79 (57 76 38))<br />               (80 (63 255 0))<br />               (81 (159 255 127))<br />               (82 (51 204 0))<br />               (83 (127 204 102))<br />               (84 (38 153 0))<br />               (85 (95 153 76))<br />               (86 (31 127 0))<br />               (87 (79 127 63))<br />               (88 (19 76 0))<br />               (89 (47 76 38))<br />               (90 (0 255 0))<br />               (91 (127 255 127))<br />               (92 (0 204 0))<br />               (93 (102 204 102))<br />               (94 (0 153 0))<br />               (95 (76 153 76))<br />               (96 (0 127 0))<br />               (97 (63 127 63))<br />               (98 (0 76 0))<br />               (99 (38 76 38))<br />               (100 (0 255 63))<br />               (101 (127 255 159))<br />               (102 (0 204 51))<br />               (103 (102 204 127))<br />               (104 (0 153 38))<br />               (105 (76 153 95))<br />               (106 (0 127 31))<br />               (107 (63 127 79))<br />               (108 (0 76 19))<br />               (109 (38 76 47))<br />               (110 (0 255 127))<br />               (111 (127 255 191))<br />               (112 (0 204 102))<br />               (113 (102 204 153))<br />               (114 (0 153 76))<br />               (115 (76 153 114))<br />               (116 (0 127 63))<br />               (117 (63 127 95))<br />               (118 (0 76 38))<br />               (119 (38 76 57))<br />               (120 (0 255 191))<br />               (121 (127 255 223))<br />               (122 (0 204 153))<br />               (123 (102 204 178))<br />               (124 (0 153 114))<br />               (125 (76 153 133))<br />               (126 (0 127 95))<br />               (127 (63 127 111))<br />               (128 (0 76 57))<br />               (129 (38 76 66))<br />               (130 (0 255 255))<br />               (131 (127 255 255))<br />               (132 (0 204 204))<br />               (133 (102 204 204))<br />               (134 (0 153 153))<br />               (135 (76 153 153))<br />               (136 (0 127 127))<br />               (137 (63 127 127))<br />               (138 (0 76 76))<br />               (139 (38 76 76))<br />               (140 (0 191 255))<br />               (141 (127 223 255))<br />               (142 (0 153 204))<br />               (143 (102 178 204))<br />               (144 (0 114 153))<br />               (145 (76 133 153))<br />               (146 (0 95 127))<br />               (147 (63 111 127))<br />               (148 (0 57 76))<br />               (149 (38 66 76))<br />               (150 (0 127 255))<br />               (151 (127 191 255))<br />               (152 (0 102 204))<br />               (153 (102 153 204))<br />               (154 (0 76 153))<br />               (155 (76 114 153))<br />               (156 (0 63 127))<br />               (157 (63 95 127))<br />               (158 (0 38 76))<br />               (159 (38 57 76))<br />               (160 (0 63 255))<br />               (161 (127 159 255))<br />               (162 (0 51 204))<br />               (163 (102 127 204))<br />               (164 (0 38 153))<br />               (165 (76 95 153))<br />               (166 (0 31 127))<br />               (167 (63 79 127))<br />               (168 (0 19 76))<br />               (169 (38 47 76))<br />               (170 (0 0 255))<br />               (171 (127 127 255))<br />               (172 (0 0 204))<br />               (173 (102 102 204))<br />               (174 (0 0 153))<br />               (175 (76 76 153))<br />               (176 (0 0 127))<br />               (177 (63 63 127))<br />               (178 (0 0 76))<br />               (179 (38 38 76))<br />               (180 (63 0 255))<br />               (181 (159 127 255))<br />               (182 (51 0 204))<br />               (183 (127 102 204))<br />               (184 (38 0 153))<br />               (185 (95 76 153))<br />               (186 (31 0 127))<br />               (187 (79 63 127))<br />               (188 (19 0 76))<br />               (189 (47 38 76))<br />               (190 (127 0 255))<br />               (191 (191 127 255))<br />               (192 (102 0 204))<br />               (193 (153 102 204))<br />               (194 (76 0 153))<br />               (195 (114 76 153))<br />               (196 (63 0 127))<br />               (197 (95 63 127))<br />               (198 (38 0 76))<br />               (199 (57 38 76))<br />               (200 (191 0 255))<br />               (201 (223 127 255))<br />               (202 (153 0 204))<br />               (203 (178 102 204))<br />               (204 (114 0 153))<br />               (205 (133 76 153))<br />               (206 (95 0 127))<br />               (207 (111 63 127))<br />               (208 (57 0 76))<br />               (209 (66 38 76))<br />               (210 (255 0 255))<br />               (211 (255 127 255))<br />               (212 (204 0 204))<br />               (213 (204 102 204))<br />               (214 (153 0 153))<br />               (215 (153 76 153))<br />               (216 (127 0 127))<br />               (217 (127 63 127))<br />               (218 (76 0 76))<br />               (219 (76 38 76))<br />               (220 (255 0 191))<br />               (221 (255 127 223))<br />               (222 (204 0 153))<br />               (223 (204 102 178))<br />               (224 (153 0 114))<br />               (225 (153 76 133))<br />               (226 (127 0 95))<br />               (227 (127 63 111))<br />               (228 (76 0 57))<br />               (229 (76 38 66))<br />               (230 (255 0 127))<br />               (231 (255 127 191))<br />               (232 (204 0 102))<br />               (233 (204 102 153))<br />               (234 (153 0 76))<br />               (235 (153 76 114))<br />               (236 (127 0 63))<br />               (237 (127 63 95))<br />               (238 (76 0 38))<br />               (239 (76 38 57))<br />               (240 (255 0 63))<br />               (241 (255 127 159))<br />               (242 (204 0 51))<br />               (243 (204 102 127))<br />               (244 (153 0 38))<br />               (245 (153 76 95))<br />               (246 (127 0 31))<br />               (247 (127 63 79))<br />               (248 (76 0 19))<br />               (249 (76 38 47))<br />               (250 (51 51 51))<br />               (251 (91 91 91))<br />               (252 (132 132 132))<br />               (253 (173 173 173))<br />               (254 (214 214 214))<br />               (255 (255 255 255))<br />              )<br />   )<br /> )<br /> <br /> (defun LAI_COLOR_RGB->ACI (R G B / QQ ENT LST RGB)<br />   (setq LST (SETLST))<br />   (setq RGB (list R G B))<br />   (foreach ENT LST<br />     (if        (equal (cadr ENT) RGB)<br />       (setq QQ (car ENT))<br />     )<br />   )<br />   QQ<br /> )<br /> <br /> (defun LAI_COLOR_ACI->RGB (ACI / LST)<br />   (setq LST (SETLST))<br />   (cadr (assoc ACI LST))<br /> )<br /> <br /> (defun LAI_GETSCREENBOX        (/ CTR SIZE SCREEN SCALE XSIZE)<br />   (setq CTR (getvar "VIEWCTR"))<br />   (setq SIZE (getvar "VIEWSIZE"))<br />   (setq SCREEN (getvar "SCREENSIZE"))<br />   (setq SCALE (/ (car SCREEN) (cadr SCREEN)))<br />   (setq XSIZE (* SCALE SIZE))<br />   (append (list        (list (- (car CTR) (/ XSIZE 2))<br />                       (- (cadr CTR) (/ SIZE 2))<br />                       0.0<br />                 )<br />           )<br />           (list        (list (+ (car CTR) (/ XSIZE 2))<br />                       (- (cadr CTR) (/ SIZE 2))<br />                       0.0<br />                 )<br />           )<br />           (list        (list (+ (car CTR) (/ XSIZE 2))<br />                       (+ (cadr CTR) (/ SIZE 2))<br />                       0.0<br />                 )<br />           )<br />           (list        (list (- (car CTR) (/ XSIZE 2))<br />                       (+ (cadr CTR) (/ SIZE 2))<br />                       0.0<br />                 )<br />           )<br />   )<br /> )<br /> <br /> ;;(LAI_GRDRAW 1 1 (list (getpoint) (getpoint) (getpoint)))<br /> (defun LAI_GRDRAW (COL FLAG LST / PT1 PT2 N LST1)<br />   (setq        N    (length LST)<br />         LST1 LST<br />   )<br />   (while (and LST<br />               (>= (length LST) 2)<br />               (setq PT1 (nth 0 LST))<br />               (setq PT2 (nth 1 LST))<br />          )<br />     (grdraw PT1 PT2 COL FLAG)<br />     (setq LST (cdr LST))<br />   )<br />   (if (> N 2)<br />     (grdraw (last LST1) (nth 0 LST1) COL FLAG)<br />   )<br />   (princ)<br /> )<br /> <br /> (defun LAI_GETTIME ()<br />   (substr (rtos (* 100000000 (getvar "CDATE")) 2 15) 5)<br /> )<br /> <br /> (defun LAI_GETAREA (ENAME)<br />   (setq OBJ (vlax-ename->vla-object ENAME))<br />   (list        (if (vlax-property-available-p OBJ 'AREA)<br />           (vla-get-area OBJ)<br />           0<br />         )<br />         (vlax-curve-getdistatparam<br />           OBJ<br />           (vlax-curve-getendparam OBJ)<br />         )<br />   )<br /> )<br /> <br /> ;;---------------------------------------------------------------------------<br /> ;; (lai_begin) sets system variables to values as indicated in the<br /> ;; list variable 'a' where the format of 'a' is '("VAR" setting ...)<br /> ;; Previous settings of the sysvars are saved in 'MLST' for retoring<br /> ;; by issuing the command (lai_end).  You can repeatedly call (lai_begin)<br /> ;; and it will append sysvars to 'MLST'<br /> ;;---------------------------------------------------------------------------<br /> (defun LAI_BEGIN (A)<br />   (UNDO_BEGIN)<br />   (if (not MLST)<br />     (setq MLST '())<br />   )<br />   (repeat (/ (length A) 2)<br />     (if        (eval (cadr A))<br />       (progn<br />         (setq MLST (append MLST (list (list (car A) (getvar (car A))))))<br />         (setvar (car A) (eval (cadr A)))<br />       )<br />     )<br />     (setq A (cddr A))<br />   )<br />   (princ)<br /> )<br /> ;;--------------------------------------------------------------------------<br /> (defun LAI_END ()<br />   (repeat (length MLST)<br />     (setvar (caar MLST) (cadar MLST))<br />     (setq MLST (cdr MLST))<br />   )<br />   (setq MLST NIL)<br />   (UNDO_END)<br />   (princ)<br /> )<br /> <br /> ;;--------------------------------------------------------------------------<br /> ;;Example:<br /> ;|(LAI_BEGIN '("CMDECHO"  0  "HIGHLIGHT"  0)<br /> ;;Then to restore the previous settings, use<br /> (LAI_END)<br /> |;<br /> <br /> ;;;======================================== <br /> ;;;UNDO BEGIN <br /> ;;;======================================== <br /> (defun UNDO_BEGIN (/ UNDO_CONTROL OLD_CMDECHO)<br />   (setq *UNDO_FLAG* 0)<br />   (setq UNDO_CONTROL (getvar "undoctl"))<br />   (if (and (= 1 (logand 1 UNDO_CONTROL))<br />            (/= 2 (logand 2 UNDO_CONTROL))<br />            (/= 8 (logand 8 UNDO_CONTROL))<br />       )<br />     (progn<br />       (setq OLD_CMDECHO (getvar "cmdecho"))<br />       (setvar "cmdecho" 0)<br />       (command "_.undo" "_begin")<br />       (setvar "cmdecho" OLD_CMDECHO)<br />       (setq *UNDO_FLAG* 1)<br />     )<br />   )<br /> )<br /> ;;;======================================== <br /> ;;;UNDO END <br /> ;;;======================================== <br /> (defun UNDO_END        (/ OLD_CMDECHO)<br />   (if (eq 1 *UNDO_FLAG*)<br />     (progn<br />       (setq OLD_CMDECHO (getvar "cmdecho"))<br />       (setvar "cmdecho" 0)<br />       (command "_.undo" "_end")<br />       (setvar "cmdecho" OLD_CMDECHO)<br />       (setq *UNDO_FLAG* 0)<br />     )<br />   )<br /> )<br /> <br /> (defun LAI_SETENTTODB (OBJ)<br />   (setq *LAI_ENT* OBJ)<br /> )<br /> <br /> (defun LAI_GETENTDATA (KEY / SS ENT)<br />   (setq SS (cdr (assoc (rtos KEY) (vlax-ldata-list "LAI"))))<br />   (if (and (> (length SS) *NSS*)<br />            (setq *LAI_ENT* (nth *NSS* SS))<br />       )<br />     (progn (setq *NSS* (1+ *NSS*)) *LAI_ENT*)<br />     (progn (vlax-ldata-delete "LAI" (rtos KEY))<br />            (setq *NSS* NIL)<br />     )<br />   )<br /> )<br /> <br /> (defun LAI_SETSSTODB (SS KEY / ENAME_LIST N)<br />   (if (null *NSS*)<br />     (setq *NSS* 0)<br />   )<br />   (setq N 0)<br />   (repeat (sslength SS)<br />     (setq ENAME_LIST (cons (ssname SS N) ENAME_LIST))<br />     (setq N (1+ N))<br />   )<br />   (vlax-ldata-put "LAI" (rtos KEY) ENAME_LIST)<br /> )<br /> <br /> (defun LAI_GETENTDXF (CODE)<br />   (cdr (assoc CODE (entget *LAI_ENT*)))<br /> )<br /> <br /> ;;TEST<br /> (defun C:CLINE (/ OLDECHO OLDSNAP OLDORTHO EN1 CIRCLE_CL)<br />   (defun CIRCLE_CL (EN1 / ED1 PTO RAD DD)<br />     (setq PTO (LAI_GETENTDXF 10)<br />           RAD (LAI_GETENTDXF 40)<br />     )<br />     (setq DD (* 1.2 RAD))<br />     (command "_line" (polar PTO 0 DD) (polar PTO pi DD) "")<br />     (command "_line"<br />              (polar PTO (/ pi 2) DD)<br />              (polar PTO (+ (/ pi 2) pi) DD)<br />              ""<br />     )<br />   )<br />   (LAI_BEGIN<br />     '("cmdecho" 0 "osmode" 0 "orthomode" 0)<br />   )<br />   (xdrx_ucson)<br />   (command "linetype" "S" "CENTER" "")<br />   (setq SCALE (getvar "DIMSCALE"))<br />   (setq DIST (* 0.1 SCALE))<br />   (prompt "\n请选择希望添加中心线的圆<退出>:")<br />   (if (setq SS (ssget '((0 . "circle"))))<br />     (progn<br />       (LAI_SETSSTODB SS 0)<br />       (while (setq E (LAI_GETENTDATA 0))<br />         (CIRCLE_CL E)<br />       )<br />     )<br />   )<br />   (command "linetype" "S" "BYLAYER" "")<br />   (command "redraw")<br />   (xdrx_ucsoff)<br />   (LAI_END)<br />   (princ)<br /> )<br /> <br /> (defun C:PLEN (/ E SS LENG)<br />   (LAI_BEGIN NIL)<br />   (xdrx_ucson)<br />   (princ "\n选择范围<退出>...")<br />   (if (setq<br />         SS (ssget '((0 . "Line,*polyline,arc,spline,Ellipse,circle")))<br />       )<br />     (progn<br />       (setq LENG 0.0)<br />       (LAI_SETSSTODB SS 0)<br />       (while (setq E (LAI_GETENTDATA 0))<br />         (setq LENG (+ (cadr (LAI_GETAREA E)) LENG))<br />       )<br />       (princ (strcat "\n线长＝" (rtos LENG 2 2)))<br />     )<br />   )<br />   (xdrx_ucsoff)<br />   (LAI_END)<br />   (princ)<br /> )<br />

陌生人

好长，晚上有时间再看
能具体说是做成xdapi的什么函数么？
大致扫了一眼，有颜色设定，线长，中心线等，好像很多内容

eachy

其实把一些函数积累起来还是能够达到部分效果的，但是在实际编程中用这种函数要注意一个效率问题，举个例子：api中的 xdrx_getarea 返回曲线的长度和面积，用Lisp也可以写出来，在求曲线选择集总长度时，用API不会感到速度影响，而这时用外部Lisp写的函数就会有感觉，尤其是在量大时。这种情况下程序中单独把求长度的部分拿过来就可以，不要用函数。

API在编程方面倒是给了我很大的启发，思路也开阔了很多，用Lisp方式来写API中的函数可以加深对Lisp 的理解。但是有些方面Lisp是力所不及的，ARX中提供的方法远比Lisp要多和高效，这也不必花时间和精力去研究。

LUCAS

xdrx_api for R2004 一直沒有出來,R2005 也出來了,有點等不及,很多程序不能用!

aeo

(defun UNDO_BEGIN (/ UNDO_CONTROL OLD_CMDECHO)
  (setq *UNDO_FLAG* 0)
  (setq UNDO_CONTROL (getvar "undoctl"))
  (if (and (= 1 (logand 1 UNDO_CONTROL))
           (/= 2 (logand 2 UNDO_CONTROL))
           (/= 8 (logand 8 UNDO_CONTROL))
      )
    (progn
      (setq OLD_CMDECHO (getvar "cmdecho"))
      (setvar "cmdecho" 0)
      (command "_.undo" "_begin")
      (setvar "cmdecho" OLD_CMDECHO)
      (setq *UNDO_FLAG* 1)
    )
  )
)


是不是=8时,把undo end掉,再重新开始比较好

eachy

最初由 aeo 发布
[B](defun UNDO_BEGIN (/ UNDO_CONTROL OLD_CMDECHO)
  (setq *UNDO_FLAG* 0)
  (setq UNDO_CONTROL (getvar "undoctl"))
  (if (and (= 1 (logand 1 UNDO_CONTROL))
           (/= 2 (logand 2 UNDO_CONTROL))
           (/= ... [/B]

Begin 和 End 还是用 Vla 方法好，Sendsstodb 就用 Activeselectionset 好了。

小菜

这个函数库应该大家一起来写比较好，现在的lisp函数库里有不少有用的函数
只是缺少进一步的整理的规范，建议版主制定一个上传函数的格式，大家有好的函数就发上来，测试正确后放进库内，当然还要有个帖子来完成统一的文档，便于不熟悉的人使用

eachy

最初由 小菜 发布
[B]这个函数库应该大家一起来写比较好，现在的lisp函数库里有不少有用的函数
只是缺少进一步的整理的规范，建议版主制定一个上传函数的格式，大家有好的函数就发上来，测试正确后放进库内，当然还要有个帖子来完成统一... [/B]

论坛内的各种函数如果整理出来绝对是比较可观的，只是都被淹没了，江南跑哪去了？

eachy

最初由 LUCAS 发布
[B]xdrx_api for R2004 一直沒有出來,R2005 也出來了,有點等不及,很多程序不能用! [/B]

我曾经写过一部分，有哪些急用又必须的程序（Lisp困难的就算了）大家可以一起来用lisp来实现。

st788796

这么老的帖子浮上来了！不过还不过时