[VBA程序]：如何往“块对象”里面增加尺寸实体。

XDSoft

How to add dimension entities to a block object?  
ID    48357  
Applies to:    AutoCAD 2000

This document is part of    Dimensions   Block Reference   COM-ActiveX Interfaces   VBA     


Question
The AddDimAligned method of Block object produces incorrect dimension objects.
How can I add dimension entities to a Block object?
Answer
The AddDimAligned method as well as other AddDimxxx methods of adding dimension
entities to a Block object results in dimension objects that are incorrect.

This is a known problem. Use the following workaround to add dimension entities
to a block object:

1.  Create a Dimension entity in model space.
2.  Use the CopyObject method to copy the Dimension entity to a Block object.
3.  Delete the original Dimension entity from model space.

The following sample code creates a block "test", adds a DimRotated entity to
the block, and then inserts the block into model space.

2. 
   
3. [FONT=courier new]
   
4. Sub f_SolAddDiminBlocks()
   
5. 'Workaround for Adding dimensions to block AutoCAD 2000.
   
6. Dim po_rotDim As AcadDimAligned
   
7. Dim po_block As AcadBlock
   
8. Dim pd_ext1(0 To 2) As Double
   
9. Dim pd_ext2(0 To 2) As Double
   
10. Dim pd_lineLoc(0 To 2) As Double
    
11. Dim po_array(0) As Object
    
12. 
    
13. pd_ext1(0) = 3: pd_ext1(1) = 3: pd_ext1(2) = 0
    
14. pd_ext2(0) = 10: pd_ext2(1) = 3: pd_ext2(2) = 0
    
15. pd_lineLoc(0) = 5: pd_lineLoc(1) = 4: pd_lineLoc(2) = 0
    
16. 'create dimeionsion object
    
17. Set po_rotDim = ThisDrawing.ModelSpace.AddDimAligned(pd_ext1, pd_ext2,
    
18. pd_lineLoc)
    
19. 
    
20. 'create a new block by name test
    
21. Set po_block = ThisDrawing.Blocks.Add(pd_ext1, "test")
    
22. 'insert a block reference
    
23. ThisDrawing.ModelSpace.InsertBlock pd_ext1, "test", 1, 1, 1, 0
    
24. 
    
25. 'copy dimension object
    
26. Set po_array(0) = po_rotDim
    
27. ThisDrawing.CopyObjects po_array, po_block
    
28. po_rotDim.Delete
    
29. 
    
30. 'release the references
    
31. Set po_block = Nothing
    
32. Set po_rotDim = Nothing
    
33. End Sub[/FONT]

<br /> [FONT=courier new]<br /> Sub f_SolAddDiminBlocks()<br /> 'Workaround for Adding dimensions to block AutoCAD 2000.<br /> Dim po_rotDim As AcadDimAligned<br /> Dim po_block As AcadBlock<br /> Dim pd_ext1(0 To 2) As Double<br /> Dim pd_ext2(0 To 2) As Double<br /> Dim pd_lineLoc(0 To 2) As Double<br /> Dim po_array(0) As Object<br /> <br /> pd_ext1(0) = 3: pd_ext1(1) = 3: pd_ext1(2) = 0<br /> pd_ext2(0) = 10: pd_ext2(1) = 3: pd_ext2(2) = 0<br /> pd_lineLoc(0) = 5: pd_lineLoc(1) = 4: pd_lineLoc(2) = 0<br /> 'create dimeionsion object<br /> Set po_rotDim = ThisDrawing.ModelSpace.AddDimAligned(pd_ext1, pd_ext2,<br /> pd_lineLoc)<br /> <br /> 'create a new block by name test<br /> Set po_block = ThisDrawing.Blocks.Add(pd_ext1, "test")<br /> 'insert a block reference<br /> ThisDrawing.ModelSpace.InsertBlock pd_ext1, "test", 1, 1, 1, 0<br /> <br /> 'copy dimension object<br /> Set po_array(0) = po_rotDim<br /> ThisDrawing.CopyObjects po_array, po_block<br /> po_rotDim.Delete<br /> <br /> 'release the references<br /> Set po_block = Nothing<br /> Set po_rotDim = Nothing<br /> End Sub[/FONT]