求助,无名块插入的程序,错在哪?

long123sp

无名块插入的程序,错在哪?

2. Sub Example_InsertBlock()
3.     ' This example creates a block containing a circle.
4.     ' It then inserts the block
5.     ' Create the block
6.     Dim blockObj As AcadBlock
7.     Dim insertionPnt(0 To 2) As Double
8.     insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
9.     Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "*u")
10.     ' Add a circle to the block
11.     Dim circleObj As AcadCircle
12.     Dim center(0 To 2) As Double
13.     Dim radius As Double
14.     center(0) = 0: center(1) = 0: center(2) = 0
15.     radius = 1
16.     Set circleObj = blockObj.AddCircle(center, radius)
17.     ' This example creates an attribute definition in model space.
18.     Dim attributeObj As AcadAttribute
19.     Dim height As Double
20.     Dim mode As Long
21.     Dim prompt As String
22.     Dim insertionPoint(0 To 2) As Double
23.     Dim tag As String
24.     Dim value As String
25.     ' Define the attribute definition
26.     height = 1#
27.     mode = acAttributeModeVerify
28.     prompt = "New Prompt"
29.     insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
30.     tag = "New Tag"
31.     value = "New Value"
32.     ' Create the attribute definition object in model space
33.     Set attributeObj = blockObj.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
34.     ' Insert the block
35.     Dim i As Long
36.     i = 0&
37.     Dim scaX As Double
38.     Dim scaY As Double
39.     Dim scaZ As Double
40.     scaX = 1#
41.     scaY = 1#
42.     scaZ = 1#
43.     Dim strname As String
44.     Dim strname1 As String
45.     Dim blockRefObj As AcadBlockReference
46.     For i = 1& To 10&
47.     scaX = scaX + i
48.     scaY = scaY + i
49.     scaZ = scaZ + i
50.     strname1 = Format(i, "")
51.     strname = "*u"
52.     MsgBox strname1
53.     strname = strname + strname1
54.     MsgBox strname
55.     insertionPnt(0) = 2# + i
56.     insertionPnt(1) = 2# + i
57.     insertionPnt(2) = 0#
58.     Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, strname, scaX, scaY, scaZ, 0)
59.     Next i
60.     ZoomAll
61. End Sub

Sub Example_InsertBlock()     ' This example creates a block containing a circle.     ' It then inserts the block     ' Create the block     Dim blockObj As AcadBlock     Dim insertionPnt(0 To 2) As Double     insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#     Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "*u")     ' Add a circle to the block     Dim circleObj As AcadCircle     Dim center(0 To 2) As Double     Dim radius As Double     center(0) = 0: center(1) = 0: center(2) = 0     radius = 1     Set circleObj = blockObj.AddCircle(center, radius)     ' This example creates an attribute definition in model space.     Dim attributeObj As AcadAttribute     Dim height As Double     Dim mode As Long     Dim prompt As String     Dim insertionPoint(0 To 2) As Double     Dim tag As String     Dim value As String     ' Define the attribute definition     height = 1#     mode = acAttributeModeVerify     prompt = "New Prompt"     insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0     tag = "New Tag"     value = "New Value"     ' Create the attribute definition object in model space     Set attributeObj = blockObj.AddAttribute(height, mode, prompt, insertionPoint, tag, value)     ' Insert the block     Dim i As Long     i = 0&     Dim scaX As Double     Dim scaY As Double     Dim scaZ As Double     scaX = 1#     scaY = 1#     scaZ = 1#     Dim strname As String     Dim strname1 As String     Dim blockRefObj As AcadBlockReference     For i = 1& To 10&     scaX = scaX + i     scaY = scaY + i     scaZ = scaZ + i     strname1 = Format(i, "")     strname = "*u"     MsgBox strname1     strname = strname + strname1     MsgBox strname     insertionPnt(0) = 2# + i     insertionPnt(1) = 2# + i     insertionPnt(2) = 0#     Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, strname, scaX, scaY, scaZ, 0)     Next i     ZoomAll End Sub

雪山飞狐_lzh

strname = "*u"
改为
strname = blockObj.name

long123sp

版主你好，我的本意是要创建从*U1至*U10的不同的无名块,像INTECAD中的材料明细表一样的。而本程序运行时每次只能（依次）创建一个无名块，然后出现“运行时错误‘2147418113（8000FFFF）’；方法‘Insertblock’作用于‘IAcadmodelspace’时失败”后退出。就是第一次运行时创建*U1后出错退出，第二次运行时创建*U1，*U2后退出，第三次创建*U1，*U2，*U3.....

雪山飞狐_lzh

无名块要创建一次，插入一次

如果要创建从*U1至*U10的不同的无名块，就要创建10个块定义，*U后面的数字也不会由你来控制，要获取无名块的名字，只能用strname = blockObj.name 的形式调用

long123sp

谢谢版主,这下明白了.