如何把三个文字合成一个块参照？？？求理解？？？
我有三个字体的 坐标怎么注记出来直接成一个块参照？？？
下面的代码怎么不对？
Dim blockRefObj As AcadBlockReference
Dim blockObj As AcadBlock, ccccc As AcadText, ccc As AcadText, cccc As AcadText
Set blockObj = ThisDrawing.Blocks.Add(zbd, "sb")
'------------------------创建块---------------------------------------------------------------------
zbd(0) = porinta(0) - 7.5: zbd(1) = porinta(1): zbd(2) = porinta(2) '户主编号、坐标不变'''''''''''''''''''''''
Set ccc = blockObj.AddText(en(0), zbd, 2.5)
entt.color = 7
zbd(0) = porinta(0) + 2.1: zbd(1) = porinta(1) + 1.2: zbd(2) = porinta(2) '面积亩、x坐标不变，y坐标-2'''''''''''''''''''''''''
Set cccc = blockObj.AddText(en(2), zbd, 2.5)
entt.color = 7
zbd(0) = porinta(0) - 8.5: zbd(1) = porinta(1) + 3.5: zbd(2) = porinta(2) '户主权利人、x坐标-3，y坐标+3'''''''''''''''''''''''
Set ccccc = blockObj.AddText(en(1), zbd, 2.5)
entt.color = 7
'Set entt = blockObj.AddPolyline(zx) ''''''''画直线
entt.ConstantWidth = 0.2
entt.color = 7
'--------------------------------注记文字、和编号---------------------------------------------------
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(zbd, "sb", 1#, 1#, 1#, 0)
虽然blocks集合继承Delete方法，用户仍然无法真正删除集合。 企图删除blocks集合会产生错误，因此文件中已经删除了集合的Delete方法
问题已解决
页:
[1]