求教，获取动态块动态参数值后如何进行修改

桃朱红

如题，在获取动态块参数值后  bp = objBlkDef.GetDynamicBlockProperties  可以得到 bp(0).Value 值，但是不会改，求教。

CSharpBoy

不用VBA，我这有个C# .NET的例子，你看下，修改到VBA下

读取和修改动态块的属性代码：

1. Here is the C# version:
   
2. 
   
3. [CommandMethod("SetDynamicBlkProperty")]
   
4. static public void SetDynamicBlkProperty()
   
5. {
   
6.     Document doc = Application.DocumentManager.MdiActiveDocument;
   
7.     Database db = doc.Database;
   
8.     Editor ed = doc.Editor;
   
9. 
   
10.     PromptEntityOptions prEntOptions = new PromptEntityOptions(
    
11.         "Select a dynamic block reference...");
    
12. 
    
13.     PromptEntityResult prEntResult = ed.GetEntity(prEntOptions);
    
14. 
    
15.     if (prEntResult.Status != PromptStatus.OK)
    
16.     {
    
17.         ed.WriteMessage("Error...");
    
18.         return;
    
19.     }
    
20. 
    
21.     using(Transaction Tx = db.TransactionManager.StartTransaction())
    
22.     {
    
23.         BlockReference bref = Tx.GetObject(
    
24.             prEntResult.ObjectId,
    
25.             OpenMode.ForWrite)
    
26.                 as BlockReference;
    
27. 
    
28.         if (bref.IsDynamicBlock)
    
29.         {
    
30.             DynamicBlockReferencePropertyCollection props =
    
31.                 bref.DynamicBlockReferencePropertyCollection;
    
32. 
    
33.             foreach (DynamicBlockReferenceProperty prop in props)
    
34.             {
    
35.                 object[] values = prop.GetAllowedValues();
    
36. 
    
37.                 //Switch Property
    
38.                 if (prop.PropertyName == "Visibility" && !prop.ReadOnly)
    
39.                 {
    
40.                     if (prop.Value.ToString() == values[0].ToString())
    
41.                         prop.Value = values[1];
    
42. 
    
43.                     else
    
44.                         prop.Value = values[0];
    
45.                 }
    
46.             }
    
47.         }
    
48. 
    
49.         Tx.Commit();
    
50.     }
    
51. }
    

Here is the C# version:<br /> <br /> [CommandMethod("SetDynamicBlkProperty")]<br /> static public void SetDynamicBlkProperty()<br /> {<br />     Document doc = Application.DocumentManager.MdiActiveDocument;<br />     Database db = doc.Database;<br />     Editor ed = doc.Editor;<br /> <br />     PromptEntityOptions prEntOptions = new PromptEntityOptions(<br />         "Select a dynamic block reference...");<br /> <br />     PromptEntityResult prEntResult = ed.GetEntity(prEntOptions);<br /> <br />     if (prEntResult.Status != PromptStatus.OK)<br />     {<br />         ed.WriteMessage("Error...");<br />         return;<br />     }<br /> <br />     using(Transaction Tx = db.TransactionManager.StartTransaction())<br />     {<br />         BlockReference bref = Tx.GetObject(<br />             prEntResult.ObjectId,<br />             OpenMode.ForWrite)<br />                 as BlockReference;<br /> <br />         if (bref.IsDynamicBlock)<br />         {<br />             DynamicBlockReferencePropertyCollection props =<br />                 bref.DynamicBlockReferencePropertyCollection;<br /> <br />             foreach (DynamicBlockReferenceProperty prop in props)<br />             {<br />                 object[] values = prop.GetAllowedValues();<br /> <br />                 //Switch Property<br />                 if (prop.PropertyName == "Visibility" && !prop.ReadOnly)<br />                 {<br />                     if (prop.Value.ToString() == values[0].ToString())<br />                         prop.Value = values[1];<br /> <br />                     else<br />                         prop.Value = values[0];<br />                 }<br />             }<br />         }<br /> <br />         Tx.Commit();<br />     }<br /> }<br />

桃朱红

CSharpBoy 发表于 2016-8-14 12:33
不用VBA，我这有个C# .NET的例子，你看下，修改到VBA下

读取和修改动态块的属性代码：

感谢回帖，新手，勉强有些basic基础，只会一点VBA的东西，C#看不太懂，例子中似乎是先获取了可见性参数的允许值，然后赋值给参数，嗯，自己在做的是一个线性参数的动态块，不知这里是不是同样的处理手法，而且，刚才在 AcadBlockReference 方法里面翻了下，也没有找到类似例子中的方法，求教。

newer

桃朱红 发表于 2016-8-14 14:58
感谢回帖，新手，勉强有些basic基础，只会一点VBA的东西，C#看不太懂，例子中似乎是先获取了可见性参数的 ...

那还是建议学下VLISP吧，这个对新手来说容易上手，功能也强大。

st788796

把程序贴全了，只会简单修改

st788796

VBA 很不顺手，修改拉伸参数的例子

2. 
   
3. Sub Example_GetEntity()
   
4. 
   
5.     Dim returnObj As AcadObject, i As Integer
   
6.     Dim blkref As AcadEntity
   
7.     Dim basePnt As Variant
   
8. 
   
9.    
   
10.     ' The following example waits for a selection from the user
    
11. 
    
12.     ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
    
13.    
    
14.     If Err <> 0 Then
    
15.         Err.Clear
    
16.         MsgBox "Program ended.", , "GetEntity Example"
    
17.         Exit Sub
    
18.     Else
    
19.         If Not returnObj.IsDynamicBlock Then
    
20.           Exit Sub
    
21.         End If
    
22.         Set blkref = returnObj
    
23.         
    
24.         Dim dybprop As Variant
    
25.         
    
26.        dybprop = blkref.GetDynamicBlockProperties
    
27.       
    
28.        For i = LBound(dybprop) To UBound(dybprop) 'Goes through Results
    
29.                     If dybprop(i).PropertyName = "距离1" Then 'Looks for the PropertyName
    
30.                     dybprop(i).Value = 300#    'Change the Value of the PropertyName
    
31.                     End If
    
32.        Next i
    
33.     End If
    
34. 
    
35. End Sub

<br /> Sub Example_GetEntity()<br /> <br />     Dim returnObj As AcadObject, i As Integer<br />     Dim blkref As AcadEntity<br />     Dim basePnt As Variant<br /> <br />     <br />     ' The following example waits for a selection from the user<br /> <br />     ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"<br />     <br />     If Err <> 0 Then<br />         Err.Clear<br />         MsgBox "Program ended.", , "GetEntity Example"<br />         Exit Sub<br />     Else<br />         If Not returnObj.IsDynamicBlock Then<br />           Exit Sub<br />         End If<br />         Set blkref = returnObj<br />         <br />         Dim dybprop As Variant<br />         <br />        dybprop = blkref.GetDynamicBlockProperties<br />        <br />        For i = LBound(dybprop) To UBound(dybprop) 'Goes through Results<br />                     If dybprop(i).PropertyName = "距离1" Then 'Looks for the PropertyName<br />                     dybprop(i).Value = 300#    'Change the Value of the PropertyName<br />                     End If<br />        Next i<br />     End If<br /> <br /> End Sub

桃朱红

newer 发表于 2016-8-14 15:20
那还是建议学下VLISP吧，这个对新手来说容易上手，功能也强大。

VBA是之前用在excel里面做一些自定义函数时用的，之前的EXCEL与CAD交互都是用的VBA生成SCR再贴在CAD里面实现，是技术不多的我能想到最方便的办法了，之后在处理动态块属性时遇到了障碍，SCR无论如何都处理不了，于是想到在CAD里用VBA实现交互，在网上找了些资料学习了一些，动态块这里实在是没有找到相关的处理方法，于是发帖求助，Vlisp不太了解，也会学习下的。

桃朱红

st788796 发表于 2016-8-14 15:38
把程序贴全了，只会简单修改

6楼解决了问题，小打小闹的东西，上不了台面，就不在这里发了。

桃朱红

st788796 发表于 2016-8-14 16:11
VBA 很不顺手，修改拉伸参数的例子

感激不尽，问题解决了，网上这些东西非常少，实在是没有找到解决方法，嗯，在其他的比如可见性参数，翻转参数又该怎么解决呢？哪里可以找到这些对象的方法和函数呢？需要这方面的知识呀。还望不吝赐教。

csharp

桃朱红 发表于 2016-8-14 19:39
感激不尽，问题解决了，网上这些东西非常少，实在是没有找到解决方法，嗯，在其他的比如可见性参数，翻转 ...

使用bing搜索会找到一些

Lisphk

csharp 发表于 2016-8-15 14:32
使用bing搜索会找到一些

谷歌上也没？