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

块参照？

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

雪山飞狐_lzh 发表于 2006-11-21 17:50:00

你应该把文字放在块定义里，而不是块引用里
页: [1]
查看完整版本: 块参照？