34
118
1
后起之秀
本帖以下内容被隐藏保护;需要你回复后,才能看到!
使用道具 举报
170
1424
8
顶梁支柱
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
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-7-6 01:01 , Processed in 0.759184 second(s), 60 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端