[编程交流] 在单元格表中插入块

; load (vl-load-com) first
(vl-load-com)
(defun C:POLYTABLE ( / *MS* A CNT I LST MYTABLE PT1 ROW SSET TLST)
 ; create an empty list, set a counter variable, and
 ; set a reference to the current model space.
 (setq lst '()
i 0
*ms* (vla-get-modelspace
            (vla-get-activedocument
            (vlax-get-acad-object)))
 )
 ; prompt the user to select closed polylines
 (princ "\n Select closed polylines ")
 (if (setq sset (ssget '((0 . "POLYLINE,LWPOLYLINE")(-4 . "&")(70 . 1))))
   ; if a valid selection set was generated, then proceed.
   (progn
   
     ; for each closed polyline selected, grab the ObjectID and Area
     ; and store these values in a list.
     (repeat (setq cnt (sslength sset))
       (setq a (vlax-ename->vla-object (ssname sset i)))
       (setq tlst (list (vla-get-Area a) (vla-get-ObjectID a)))
       (setq lst (cons tlst lst))
       (setq i (1+ i))
     )
     ; pick a point for the table
     (setq pt1 (getpoint "\nPick point for table "))
     ; add the new table
     (setq myTable (vla-AddTable 
                   *ms* 
                   (vlax-3d-point pt1)
                   (+ 3 cnt)
                   2 
                   0.7
                   2.5))
     ; the next three lines set the header text
     (vla-setText mytable 0 0 "Polyline Table")
     (vla-setText mytable 1 0 "Area")
     (vla-setText mytable 1 1 "Object ID")
     (setq row 2)
     
     ; loop through the list of polyline properties
     ; adding a line to the table that contains the
     ; area and the ObjectID
     (foreach item lst
       (vla-setText mytable
                    row
                    0 
                    (strcat "%%).Area [url="file://\\f"]\\f[/url] "%lu2">%"))
       (vla-setText mytable row 1 (last item))
       (setq row (1+ row))
     )      
     ; On the last row, total up the area
     (vla-setText mytable
                  row 
                  0
                  (strcat "Total=\\P"
                  "%%"))
     ; release "myTable" and *ms*
     (vlax-release-object myTable)      
     (vlax-release-object *ms*)      
   ); end progn
  ; if no closed polylines were selected, 
  ; end the program with this message
   (princ "\nNo closed polylines selected. ")
 ); end if
 (princ)
); end defun

(vla-setText mytable 1 1 "Object ID")