插入DynamicBlock

Kerry · 发表于 2008-1-18 04:17:52

如何使用vba插入DynamicBlock

Murph · 发表于 2008-1-18 04:20:20

你试过什么

Murph · 发表于 2008-1-18 05:26:37

我有两种块，一种是保存在当前图形中的动态块，另一种是用名称保存s块，我尝试插入&lt；当前图纸&gt&nbsp；数据库

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

我试过obj。可见性=”；字符串“；但那没有&#039；t工作&nbsp；当我抓取一个DB并查看属性时，我在自定义区域中看到了可见性选项&nbsp；我本想用那个，但VBA卡住了

Murph · 发表于 2008-4-9 11:52:45

我在帮助文件中找到了这一部分，但我没有#039；我想知道如何使它工作

copy

      objSelSet.SelectOnScreen
      For Each obj In objSelSet
            Dim dbP As AcadDynamicBlockReferenceProperty
            Set dbP = obj.GetDynamicBlockProperties
            dbP.Value = "Switch"

Murph · 发表于 2008-4-9 13:51:58

我是在Autodesk论坛上搜索得到的
这里是原始线程的链接
http://discussion.autodesk.com/thread.jspa?messageID=5610807

copy

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

Murph · 发表于 2008-4-9 14:03:45

谢谢Murph，我在搜索中错过了那个&nbsp；我想我应该扩大一下搜索范围
顺便说一句，它工作得很好

Murph · 发表于 2008-4-9 14:07:11

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

Murph · 发表于 2008-4-9 14:58:49

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

Murph · 发表于 2008-4-10 11:19:13

好吧，现在我只是疯了&nbsp；我知道该怎么做了，现在崔要杀了我

copy

vbastmt
insblk "c:\symbols\S-SCHM-SWCH.DWG", "Test Link"

从命令行可以完美地工作，但\在CUI中进行了一次跳转&nbsp；有没有大师知道解决这个问题的方法？

插入DynamicBlock

发表回复

精选推荐