[编程交流] 我怎样才能在

(defun C:STUBS2 (/ col count dis pt row strdis tb va vm vo)
 (setq pt (vlax-3d-point (getpoint "\nPick Insertion Point: ")))
 (setq vo (vlax-get-acad-object))
 (setq va (vla-get-activedocument vo))
 (setq vm (vla-get-modelspace va))
 (setq row 16)
 (setq col  1)
 (setq dis (getdist "\nWhat Is The First Stub Dimension? : "))
 (if (not (vl-string-search "" (setq strdis (rtos dis 4 4))))
     (setq strdis (strcat strdis "")))
 (setq tb (vla-addtable vm pt row col 1 1))
 (vla-put-titlesuppressed tb :vlax-false)
 (vla-put-headersuppressed tb :vlax-true)
 (vla-put-RegenerateTableSuppressed tb :vlax-true)
 (vla-put-vertcellmargin tb 0.1)
 (vla-put-horzcellmargin tb 0.25)
 (vla-setrowheight tb 0 0.3875)
 (vla-setcolumnwidth tb 0 2.4)
 
 (vla-settextstyle tb actitlerow "bold");title text style
 (vla-settextstyle tb acdatarow "Standard");data rows text style
 (vla-settextheight tb actitlerow 0.27);title text height = 0.27
 (vla-settextheight tb acdatarow 0.21);other cells text height = 0.21
 (vla-setalignment tb actitlerow acmiddlecenter);title alignment
 (vla-setalignment tb acdatarow acmiddlecenter);data cell alignment
 (vla-setformat tb acdatarow "arch");data cell format
 (vla-settext tb 0 0 "STUBS");title text
 
 (setq count 1)
 
 (while (< count row)
(vla-setcelltextstyle tb count 0 "Standard")  
 (vla-setcelldatatype tb count 0 acdouble acunitdistance);optional  
 (vla-setrowheight tb count 0.3875)
 (if (=  count 1)
 (vla-settext tb count 0 strdis)    
 (vla-settext tb count 0 (strcat "= A2*" (itoa count))))
 (setq count (1+ count)))
 (vla-put-RegenerateTableSuppressed tb :vlax-false)
 
 (princ)
 );_ end

(defun C:ST2(/ col count dis pt row strdis tb va vm vo)
 
 (setq pt (vlax-3d-point (getpoint "\nPick Insertion Point: ")))
 (setq vo (vlax-get-acad-object))
 (setq va (vla-get-activedocument vo))
 (setq vm (vla-get-modelspace va))
 (setq row (+ 1 (getreal "\How many stubs?")))
 (setq col  1)
 (setq dis (getdist "\What Is The First Stub Dimension? : "))
 (if (not (vl-string-search "" (setq strdis (rtos dis 4 4))))
     (setq strdis (strcat strdis "")))
 (setq tb (vla-addtable vm pt row col 1 1))
 (vla-put-titlesuppressed tb :vlax-false)
 (vla-put-headersuppressed tb :vlax-true)
 (vla-put-RegenerateTableSuppressed tb :vlax-true)
 (vla-put-vertcellmargin tb 0.1)
 (vla-put-horzcellmargin tb 0.25)
 (vla-setrowheight tb 0 0.3875)
 (vla-setcolumnwidth tb 0 2.2)
 
 (vla-settextstyle tb actitlerow "bold");title text style
 (vla-settextstyle tb acdatarow "Standard");data rows text style
 (vla-settextheight tb actitlerow 0.27);title text height = 0.27
 (vla-settextheight tb acdatarow 0.21);other cells text height = 0.21
 (vla-setalignment tb actitlerow acmiddlecenter);title alignment
 (vla-setalignment tb acdatarow acmiddlecenter);data cell alignment
 (vla-setformat tb acdatarow "arch");data cell format
 (vla-settext tb 0 0 "STUBS");title text
 
 (setq count 1)
 
 (while (< count row)
 (vla-setcelltextstyle tb count 0 "Standard")  
 (vla-setcelldatatype tb count 0 acdouble acunitdistance);optional  
 (vla-setrowheight tb count 0.3875)
 (if (=  count 1)
 (vla-settext tb count 0 strdis)    
 (vla-settext tb count 0 (strcat "= A2*" (itoa count))))
 (setq count (1+ count)))
 (vla-put-RegenerateTableSuppressed tb :vlax-false)
 
 (princ)
 );_ end
 

(vla-put-ScaleFactor tb (getvar "dimscale"))

(defun c:dump (/ ent obj)
 (while (setq ent (entsel "\nSelect entity to get object data: "))
   (print)
   (setq obj (vlax-ename->vla-object (car ent)))
   (vlax-dump-object obj t)
   (vlax-release-object obj)
   (princ "\n")
 )
 (princ)
)

; IAcadBlockReference: AutoCAD Block Reference Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00b5e51c>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 01f1b850>
;   Handle (RO) = "2DCC"
;   HasAttributes (RO) = 0
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 04aaca64>
;   InsertionPoint = (434.228 282.275 0.0)
;   Layer = "0"
;   Linetype = "BYLAYER"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Name = "TEST BLOCK"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 2130145312
;   ObjectName (RO) = "AcDbBlockReference"
;   OwnerID (RO) = 2130001088
;   PlotStyleName = "ByLayer"
;   Rotation = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 04aac360>
;   Visible = -1
;   XScaleFactor = 1.0
;   YScaleFactor = 1.0
;   ZScaleFactor = 1.0
; Methods supported:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   Explode ()
;   GetAttributes ()
;   GetBoundingBox (2)
;   GetConstantAttributes ()
;   GetExtensionDictionary ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()

(setq dimsc (getvar "dimscale"))
(vla-put-XScaleFactor tb dimsc)
(vla-put-YScaleFactor tb dimsc)
(vla-put-ZScaleFactor tb dimsc)