社区 › VB › 插入动态块

Humbertogo 发表于 2008-1-18 04:17:52

插入动态块

如何使用vba插入DynamicBlock
**** Hidden Message *****

Kerry 发表于 2008-1-18 04:20:20

你试过什么？

Humbertogo 发表于 2008-1-18 05:26:37

我有2种块
动态块，这些块保存在当前图形中，另一种保存了名称为
s块，我尝试插入
DB

Murph 发表于 2008-4-9 11:46:42

我尝试过obj.Visibility=“String”，但没有成功。当我抓取一个DB并查看属性时，我会在自定义区域中看到可见性选项。我本想用它，但VBA被卡住了

Kerry 发表于 2008-4-9 11:52:45

我在帮助文件中找到了这一部分，但是我还没有想出如何使它工作代码0]

Kerry 发表于 2008-4-9 13:51:58

我在欧特克论坛上搜索得到了这个。
这是原始线程的链接
http://discussion.autodesk.com/thread.jspa?messageID=5610807
Private Sub ScanBlks()
Dim dybprop As Variant, i As Integer
Dim bobj As AcadEntity
For Each bobj In ThisDrawing.ModelSpace
If bobj.ObjectName = "AcDbBlockReference" Then
If bobj.IsDynamicBlock Then
If bobj.EffectiveName = "cirtagleader" Then
dybprop = bobj.GetDynamicBlockProperties
For i = LBound(dybprop) To UBound(dybprop)
If dybprop(i).PropertyName = "Visibility" Then
dybprop(i).Value = "Leader Off"
End If
Next i
End If
End If
End If
Next
End Sub
The portion of the code you'd be interested in is
If dybprop(i).PropertyName = "Visibility" Then
dybprop(i).Value = "Leader Off"
End If

Kerry 发表于 2008-4-9 14:03:45

谢谢墨菲，我在搜索中错过了那个。 我想我应该扩大一点我的搜索标准。
顺便说一句，它工作得很好

Humbertogo 发表于 2008-4-9 14:07:11

现在，根据传递的参数创建一个插入和切换的例程

Kerry 发表于 2008-4-9 14:58:49

废话，我成功了，但注释块似乎不起作用

Kerry 发表于 2008-4-10 11:19:13

好吧，现在我只是疯了。我有一个很好的想法如何使这有点工作，现在崔是杀了我。
vbastmt
insblk "c:\symbols\S-SCHM-SWCH.DWG", "Test Link"
在命令行中运行良好，但\在CUI中有所下降。有哪位大师知道解决这个问题的方法吗？

查看完整版本: 插入动态块