社区 › VB › 块参照？

bsirhell 发表于 2006-11-17 23:46:00

块参照？

请问下面错在哪？
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 发表于 2006-11-21 17:50:00

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

查看完整版本: 块参照？