|
|
为什么不能炸开？
Dim DwgBlock As AcadBlockReference
Dim insertionPnt(0 To 2) As Double
ThisDrawing.Application.Documents.Open (Text3.Text)
Set DwgBlock = Nothing
'''插入点
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
Set DwgBlock = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, Text4.Text, 1#, 1#, 1#, 0)
DwgBlock.Explode
''''''''''''DwgBlock并没被炸开
ZoomExtents
ThisDrawing.Save
为什么将一幅图插入另一幅图时无法炸开？
|
|
置顶卡
