乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 60|回复： 5

[编程交流] 层VPFreeze off-VBA

[复制链接]
neophyte

4

主题

10

帖子

6

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 14:18:39 | 显示全部楼层 |阅读模式
你好
 
我想知道“打开”所有图层的代码是什么
 
我知道锁定、打开、冻结，但我被卡住了：x和VP冻结
 
  2. Dim objLayer As AcadLayer
  3. On Error Resume Next
  4.    For Each objLayer In ThisDrawing.Layers
  5.        objLayer.LayerOn = True
  6.        objLayer.Freeze = True
  7.        objLayer.????? = True      
  8.    Next
  9.    ThisDrawing.Regen (acActiveViewport)
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 14:35:07 | 显示全部楼层
层VP冻结状态实际上由与特定视口关联的扩展数据确定。虽然VBA例程可以“VPfreeze”一个层，但我认为还没有演示过一种“VPthaw”一个层的方法。
回复

使用道具 举报

neophyte

4

主题

10

帖子

6

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 14:49:43 | 显示全部楼层
糟糕的是，我要找到另一种方法来解决我的问题
 
无论如何谢谢你
回复

使用道具 举报

Patrick_35

2

主题

60

帖子

65

银币

初来乍到

Rank: 1

铜币
7
发表于 2022-7-6 15:05:40 | 显示全部楼层
你好
 
我就是这么做的
 
@+
全球环境基金。拉链
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 15:10:29 | 显示全部楼层
不完全是一种“层VPFreeze-off-VBA”方法，但对新手来说可能有用。
回复

使用道具 举报

Patrick_35

2

主题

60

帖子

65

银币

初来乍到

Rank: 1

铜币
7
发表于 2022-7-6 15:19:43 | 显示全部楼层
是的，但不能使用vba、lisp和vlisp（在视口中写入扩展数据）
仅使用arx、dll或vplayer的命令。
 
@+
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-5 03:04 , Processed in 0.477072 second(s), 64 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表