社区 › VB › 复制图层特性对象DBX

Humbertogo 发表于 2007-8-28 02:44:52

复制图层特性对象DBX

有没有办法使用ObjectDBX将具有属性的图层从一个文档视口复制到另一个文档
视口
**** Hidden Message *****

Bryco 发表于 2007-8-28 09:59:45

温贝托戈，我不确定你的问题。
如果要冻结视口中的图层，请在视口中添加 xdata tp。所以这是可能的。

Humbertogo 发表于 2007-8-28 10:22:00

在我的程序中，我使用ObjectDBX导入了一个布局，但是我需要知道哪个层在视口中被冻结

Bryco 发表于 2007-8-29 11:13:53

这比我想象的要棘手。
我认为您最好制作pviewport，然后添加尝试复制pviewport的xdata
Sub CopyVpLayerStates(Vp As AcadPViewport, NewVp As AcadPViewport, NewDoc As AcadDocument)
    Dim Doc As AcadDocument
    Dim Xd, Xv

    Vp.GetXData "Acad", Xd, Xv
    NewVp.SetXData Xd, Xv
    NewVp.Update
    NewDoc.MSpace = False
    NewVp.Display (False)
    NewVp.Display (True)
    NewDoc.MSpace = True
   
End Sub

查看完整版本: 复制图层特性对象DBX