[编程交流] 插入动态标题栏

(defun c:tbd (/ blockname [color=black]p1);;revised by Reid B.[/color]
[color=black] ;; Insert and array "LONG WALL" block (required)[/color]
 ;; Alan J. Thompson, 05.05.10
 (vl-load-com)
 (setq blockname "[color=black]1117sh");;revised by Reid B.[/color]
 (if (and (or (tblsearch "block" blockname)
              (findfile (strcat blockname ".dwg"))
              (alert (strcat blockname " cannot be found!"))
          )
          (setq p1 (getpoint "\nSpecify block insertion point: "))
     )
   ((lambda (block)
      (foreach x (vlax-invoke block 'GetDynamicBlockProperties)
        (and (eq (vla-get-propertyname x[color=black]) "Sheet Size");;revised by Reid B.[/color]
             (vla-put-value
               x
               "[color=black]24x36[/color]"
             );[color=black]revised by Reid B.[/color]
        )
      )
    )
     (vla-insertblock
       (if
         (or (eq acmodelspace
                 (vla-get-activespace
                   (cond (*AcadDoc*)
                         ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
                   )
                 )
             )
             (eq :vlax-true (vla-get-mspace *AcadDoc*))
         )
          (vla-get-modelspace *AcadDoc*)
          (vla-get-paperspace *AcadDoc*)
       )
       (vlax-3d-point (trans p1 1 0))
       blockname
       1.
       1.
       1.
       0.;;[color=black]revised by Reid B.[/color]
     )
   )
 )
 (princ)
)