[LISP函数]：对操作ACAD_TABLE物件的重要函数

LUCAS

2. 
   
3. ;;BY 龙龙仔(LUCAS)
   
4. ;;对操作ACAD_TABLE物件的重要函数(取得储存格范围)
   
5. ;;注意:要先把指令做成按钮
   
6. (defun SELECT_TABLE (/ TABLE ROWMIN ROWMAX COLMIN COLMAX SS N)
   
7.   (setq N 0)
   
8.   (if (setq SS (ssget "X" '((0 . "ACAD_TABLE"))))
   
9.     (repeat (sslength SS)
   
10.       (if (not (vl-catch-all-apply
    
11.                  'vla-getsubselection
    
12.                  (list (vlax-ename->vla-object
    
13.                          (ssname SS N)
    
14.                        )
    
15.                        'ROWMIN
    
16.                        'ROWMAX
    
17.                        'COLMIN
    
18.                        'COLMAX
    
19.                  )
    
20.                )
    
21.           )
    
22.         (setq TABLE (vlax-ename->vla-object
    
23.                       (ssname SS N)
    
24.                     )
    
25.         )
    
26.       )
    
27.       (setq N (1+ N))
    
28.     )
    
29.   )
    
30.   (if ROWMIN
    
31.     (list TABLE ROWMIN ROWMAX COLMIN COLMAX)
    
32.     (progn
    
33.       (prompt "\n没有选取任何储存格!!")
    
34.       NIL
    
35.     )
    
36.   )
    
37. )
    
38. 
    
39. ;;例子:合并储存格
    
40. (defun C:MRGCELLS (/ C1 MAXCOL MAXROW MINCOL MINROW)
    
41.   (if (setq C1 (SELECT_TABLE))
    
42.     (progn
    
43.       (setq MINROW (nth 1 C1)
    
44.             MAXROW (nth 2 C1)
    
45.             MINCOL (nth 3 C1)
    
46.             MAXCOL (nth 4 C1)
    
47.       )
    
48.       (if (vl-catch-all-apply
    
49.             'vlax-invoke
    
50.             (list (car C1) 'MERGECELLS MINROW MAXROW MINCOL MAXCOL)
    
51.           )
    
52.         (princ "\n储存格不能被合并!!")
    
53.       )
    
54.     )
    
55.   )
    
56.   (princ)
    
57. )
    
58. 
    
59. ;;例子:分解储存格
    
60. (defun C:UNMRGCELLS (/ C1 MAXCOL MAXROW MINCOL MINROW)
    
61.   (if (setq C1 (SELECT_TABLE))
    
62.     (progn
    
63.       (setq MINROW (nth 1 C1)
    
64.             MAXROW (nth 2 C1)
    
65.             MINCOL (nth 3 C1)
    
66.             MAXCOL (nth 4 C1)
    
67.       )
    
68.       (if (vl-catch-all-apply
    
69.             'vlax-invoke
    
70.             (list (car C1) 'UNMERGECELLS MINROW MAXROW MINCOL MAXCOL)
    
71.           )
    
72.         (princ "\n储存格不能被分解!!")
    
73.       )
    
74.     )
    
75.   )
    
76.   (princ)
    
77. )
    

<br /> ;;BY 龙龙仔(LUCAS)<br /> ;;对操作ACAD_TABLE物件的重要函数(取得储存格范围)<br /> ;;注意:要先把指令做成按钮<br /> (defun SELECT_TABLE (/ TABLE ROWMIN ROWMAX COLMIN COLMAX SS N)<br />   (setq N 0)<br />   (if (setq SS (ssget "X" '((0 . "ACAD_TABLE"))))<br />     (repeat (sslength SS)<br />       (if (not (vl-catch-all-apply<br />                  'vla-getsubselection<br />                  (list (vlax-ename->vla-object<br />                          (ssname SS N)<br />                        )<br />                        'ROWMIN<br />                        'ROWMAX<br />                        'COLMIN<br />                        'COLMAX<br />                  )<br />                )<br />           )<br />         (setq TABLE (vlax-ename->vla-object<br />                       (ssname SS N)<br />                     )<br />         )<br />       )<br />       (setq N (1+ N))<br />     )<br />   )<br />   (if ROWMIN<br />     (list TABLE ROWMIN ROWMAX COLMIN COLMAX)<br />     (progn<br />       (prompt "\n没有选取任何储存格!!")<br />       NIL<br />     )<br />   )<br /> )<br /> <br /> ;;例子:合并储存格<br /> (defun C:MRGCELLS (/ C1 MAXCOL MAXROW MINCOL MINROW)<br />   (if (setq C1 (SELECT_TABLE))<br />     (progn<br />       (setq MINROW (nth 1 C1)<br />             MAXROW (nth 2 C1)<br />             MINCOL (nth 3 C1)<br />             MAXCOL (nth 4 C1)<br />       )<br />       (if (vl-catch-all-apply<br />             'vlax-invoke<br />             (list (car C1) 'MERGECELLS MINROW MAXROW MINCOL MAXCOL)<br />           )<br />         (princ "\n储存格不能被合并!!")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;例子:分解储存格<br /> (defun C:UNMRGCELLS (/ C1 MAXCOL MAXROW MINCOL MINROW)<br />   (if (setq C1 (SELECT_TABLE))<br />     (progn<br />       (setq MINROW (nth 1 C1)<br />             MAXROW (nth 2 C1)<br />             MINCOL (nth 3 C1)<br />             MAXCOL (nth 4 C1)<br />       )<br />       (if (vl-catch-all-apply<br />             'vlax-invoke<br />             (list (car C1) 'UNMERGECELLS MINROW MAXROW MINCOL MAXCOL)<br />           )<br />         (princ "\n储存格不能被分解!!")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />