块参照？

bsirhell

请问下面错在哪？

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

为何不能向块中写入文字？

雪山飞狐_lzh

你应该把文字放在块定义里，而不是块引用里