复制图层特性ObjectDBX

Bryco · 发表于 2007-8-28 02:44:52

有没有办法用#160；使用ObjectDBX将属性从一个文档视口切换到另一个

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

Humbertogo，I&#039；我对你的问题没有把握
如果要冻结视口中的层，请在视口中添加扩展数据。所以它#039；这是可能的。

Bryco · 发表于 2007-8-28 10:22:00

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

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

这比我想象的要复杂
我认为你最好先创建pviewport，然后添加尝试复制pviewport的扩展数据

copy

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

复制图层特性ObjectDBX

发表回复

精选推荐