|
请问下面错在哪?
Public Function txttoblk(blkname As String, str1 As String _
) As AcadText
Dim blkref As AcadBlockReference
blkref.Name = blkname
Dim pt As Variant
pt = blkref.InsertionPoint
Dim txt As AcadText
Set txt = ThisDrawing.ModelSpace.addtext(str1, GetPoint(pt, 2, -50), 4)
Set txttoblk = txt
End Function
为何不能向块中写入文字?
|
|