复制图层特性ObjectDBX
有没有办法用#160;使用ObjectDBX将属性从一个文档视口切换到另一个Humbertogo,I';我对你的问题没有把握
如果要冻结视口中的层,请在视口中添加扩展数据。所以它#039;这是可能的。 在我的程序中,我导入了一个;使用ObjectDBX进行布局,但我需要知道哪些层在视口中被冻结(布局) 这比我想象的要复杂
我认为你最好先创建pviewport,然后添加尝试复制pviewport的扩展数据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
页:
[1]