动态块问题，实在找不出来哪错了，请各位前辈抽空看下源码

dage23wo

2. Private Sub CommandButton1_Click()
   
3. 
   
4. Dim PtPick As Variant
   
5. UserForm1.hide
   
6. PtPick = ThisDrawing.Utility.GetPoint(, "请在屏幕上选择起点:")
   
7. TextBox1.Text = PtPick(0)
   
8. TextBox2.Text = PtPick(1)
   
9. UserForm1.Show
   
10. 
    
11. 
    
12.     Dim blk As IAcadBlockReference2
    
13.     Dim ent As AcadEntity
    
14.     Dim pnt As Variant
    
15.    
    
16.     If ent.ObjectName = "立柱" Then
    
17.         Set blk = ent
    
18.     Else
    
19.         Exit Sub
    
20.     End If
    
21.    
    
22.     Dim dyBlkPropCol As Variant         ' 自定义特性的集合
    
23.     Dim dyBlkProp As AcadDynamicBlockReferenceProperty      ' 自定义特性
    
24.    
    
25.     Dim i As Long
    
26.    
    
27.     If blk.IsDynamicBlock Then
    
28.         ' 获得动态块的自定义特性
    
29.         dyBlkPropCol = blk.GetDynamicBlockProperties
    
30.         
    
31.      
    
32.             
    
33.         For i = 0 To UBound(dyBlkPropCol)
    
34.         Set DBlockProperties = dyBlkPropCol(i)
    
35.         With DBlockProperties
    
36.             If .PropertyName = "距离" Then
    
37.                 .Value = CDbl(TextBox3.Text)
    
38.                 Exit For
    
39.             End If
    
40.         End With
    
41.     Next i
    
42.             
    
43.   End If
    
44.             
    
45.     Dim ptInsert(0 To 2) As Double
    
46.     ptInsert(0) = TextBox1.Text: ptInsert(1) = TextBox2.Text: ptInsert(2) = 0
    
47.     Set blk = ThisDrawing.ModelSpace.InsertBlock(ptInsert, "立柱", 1, 1, 1, 0)
    
48.     ZoomAll
    
49.    
    
50.    
    
51.    
    
52. End Sub

Private Sub CommandButton1_Click()<br /> <br /> Dim PtPick As Variant<br /> UserForm1.hide<br /> PtPick = ThisDrawing.Utility.GetPoint(, "请在屏幕上选择起点:")<br /> TextBox1.Text = PtPick(0)<br /> TextBox2.Text = PtPick(1)<br /> UserForm1.Show<br /> <br /> <br />     Dim blk As IAcadBlockReference2<br />     Dim ent As AcadEntity<br />     Dim pnt As Variant<br />     <br />     If ent.ObjectName = "立柱" Then<br />         Set blk = ent<br />     Else<br />         Exit Sub<br />     End If<br />     <br />     Dim dyBlkPropCol As Variant         ' 自定义特性的集合<br />     Dim dyBlkProp As AcadDynamicBlockReferenceProperty      ' 自定义特性<br />     <br />     Dim i As Long<br />    <br />     If blk.IsDynamicBlock Then<br />         ' 获得动态块的自定义特性<br />         dyBlkPropCol = blk.GetDynamicBlockProperties<br />         <br />      <br />             <br />         For i = 0 To UBound(dyBlkPropCol)<br />         Set DBlockProperties = dyBlkPropCol(i)<br />         With DBlockProperties<br />             If .PropertyName = "距离" Then<br />                 .Value = CDbl(TextBox3.Text)<br />                 Exit For<br />             End If<br />         End With<br />     Next i<br />             <br />   End If<br />             <br />     Dim ptInsert(0 To 2) As Double<br />     ptInsert(0) = TextBox1.Text: ptInsert(1) = TextBox2.Text: ptInsert(2) = 0<br />     Set blk = ThisDrawing.ModelSpace.InsertBlock(ptInsert, "立柱", 1, 1, 1, 0)<br />     ZoomAll<br />     <br />    <br />     <br /> End Sub

wangshuping42

代码中错误很多，应该是先插入块参照blk，然后再更改块参照的动态参数，还有,ent也没见你赋值。
你这个问题，应该把dvb和含动态块的图纸一起发上来，否则没人帮你看的，谁会为了帮你还要自己辛辛苦苦照你代码做个窗体界面，还要画个动态块再调试？

dage23wo

wangshuping42 发表于 2015-7-14 11:37
代码中错误很多，应该是先插入块参照blk，然后再更改块参照的动态参数，还有,ent也没见你赋值。
你这个问题 ...

前辈，我把动态块和DVB文件传上去了，能否帮我看看。非常非常感谢您。谢谢

wangshuping42

问题就不给你说了，自己看

dage23wo

wangshuping42 发表于 2015-7-15 09:16
问题就不给你说了，自己看

谢谢老师。

dage23wo

前辈要是对自定义属性中的有列表的属性操作也是一样的么？

dage23wo

wangshuping42 发表于 2015-7-15 09:16
问题就不给你说了，自己看

前辈要是对自定义属性中的有列表的属性操作也是一样的么？

wangshuping42

dage23wo 发表于 2015-7-15 11:43
前辈要是对自定义属性中的有列表的属性操作也是一样的么？

一样的，就是赋值类型不一致，数值是double类型，列表应该是string类型,用cstr函数转换下