使用VBA添加/删除样式替代

jbuzbee · 发表于 2008-3-18 16:42:27

本人&#039；我试图将一些旧的ABS/MEP图纸更新为新的办公标准，并希望使用VBA进行大量的自动神奇更新……但……我可以&#039；t似乎不知道如何访问信息以应用或删除对特定系统的覆盖&nbsp；本人&#039；我想扩展字典在其中起了作用，但我不知道；我没有太多的经验，所以我#039；我正在寻求帮助&nbsp；有人能给我指出正确的方向吗
我认为墙壁、门和窗户基本上是一样的（只是名字不同），所以如果你&#039；我有任何关于如何更改AEC对象的代码片段，I&#039；如果你愿意，我想看看；我们愿意分享
以下是我&#039；到目前为止

copy

Public Sub PipeSystemDefinitions()
    Dim oPlumbingSysDef As AecbPlumbingSystemDef
    Dim oPlumbingSysDefs As AecbPlumbingSystemDefs
    Dim oDB As New AecbPlumbingDatabase
    Dim oDictionary As AcadDictionary
    
    oDB.Init ThisDrawing.Database
    Set oPlumbingSysDefs = oDB.PlumbingSystemDefs
    
    For Each oPlumbingSysDef In oPlumbingSysDefs
        If oPlumbingSysDef.Name  "Standard" Then
            Debug.Print oPlumbingSysDef.Name
            Set oDictionary = oPlumbingSysDef.GetExtensionDictionary
        End If
    Next oPlumbingSysDef
End Sub

jbuzbee · 发表于 2008-3-18 17:01:14

本没有#039；我不再经常来这里了，但我&#039；我会打他，看看他是否&#039；如果没有其他人插话，我来看看这条线&nbsp；很肯定他&#039；我们做了一些类似的事情。

jbuzbee · 发表于 2008-3-18 20:28:26

*环顾四周*本谁&nbsp&nbsp；

jbuzbee · 发表于 2008-3-18 21:06:01

本，又名巴什沃思，又名CSO，又名僵尸&nbsp；我给他指了指那根线，这几乎是我能做的最多的了&nbsp；我知道他&#039；s与ADT对象进行了一些斗争。

jbuzbee · 发表于 2008-3-18 21:08:20

谢谢

jbuzbee · 发表于 2008-3-19 11:50:30

Matt，
我们使用ADT，现在是AutoCAD Architecture&nbsp；你们用Project Navigator吗&nbsp；它有一个漂亮的项目标准功能，将在整个项目中更新样式
如果没有，您可以通过编程更改内容-甚至ObjectDBX&nbsp；注意以下几点：

copy

(setq wallobj(vlax-ename->vla-object(car(entsel))))
(setq  wallstyle(vlax-get wallobj 'style))
(vlax-dump-Object wallobj t)
(vlax-dump-Object wallstyle)
(vlax-put wallobj 'stylename "MyStyle")

你只需要知道每个集合支持的方法….oops-我刚刚在VBA论坛上发布了VLISP代码-抱歉&nbsp；（无论如何，lisp更好：丑陋：）