乐筑天下

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

删除层

[复制链接]

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2006-6-7 13:10:40 | 显示全部楼层 |阅读模式
我有一些图纸,其中包含旧的分层方案和新的分层方案。我能够遍历旧名称列表,并将所有实体移动到新层。我遇到的问题是,即使层现在是空的,它不会删除使用VBA。我错过了什么?有什么想法吗?
另外,这是2000i版,所以没有图层转换器。

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2006-6-7 13:18:18 | 显示全部楼层
你是如何删除它们的?
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-6-7 13:31:27 | 显示全部楼层
层定义为acadLayers
如果Layer.Name=UCase(oldLayers(intNum))然后
intCnt=intNum
strName1=oldLayers(intCnt)
strNewName=newLayers(intCnt)
CreateNewLayer(strNewName)'创建新层
'选择集的东西(我删除了这个只是为了简化)和更改
对于每个entObj在对象集
entObj.Layer=strNewName
entObj.Linetype="BYLAYER"
intEntity=intEntity+1
下一个entObj
intCnt=intCnt+1'通过旧层名称递增
Layer.Delete(strName1)'***这是失败的结构。
结束如果
我得到的错误消息是“参数数量错误或属性分配无效"
如果我注释掉图层删除行,代码将执行我需要它执行的所有操作,除了清除图层。
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2006-6-7 13:42:51 | 显示全部楼层
如果您将线条更改为
层,是否有效。删除
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2006-6-7 14:29:33 | 显示全部楼层
您可能还需要检查每个块中的每个ent
但我发现,层在wblocking后很难删除,我无法找到原因。我删除了那些垃圾,但可能有时间问题。
回复

使用道具 举报

5

主题

21

帖子

1

银币

初来乍到

Rank: 1

铜币
41
发表于 2006-6-7 14:31:49 | 显示全部楼层
不,也不是那样的。但我刚想出来。我想我一定是大脑放屁了…
我没有在街区内的实体间骑自行车…哑,哑,哑
我知道我早该回家了。我的大脑已经精疲力竭了<谢谢布莱科,你说得对!
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2006-6-7 14:48:17 | 显示全部楼层
此外,如果图层在PS视口中设置为冻结,这将使其不会被删除。
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2006-6-7 15:02:51 | 显示全部楼层
如果块中包含要清除的层上的实体,则有另一种清除方法。这是我最喜欢的一个把戏,每次没别的办法时我都会挖出来
dxf文件是文本文件,文本搜索和替换将起作用。假设你有一层“玻璃墙”。您可以搜索“A-Glass-Wall”并替换为0。
一个大小良好的.dwg的dxf文件将有数百万行,因此您无法使用记事本之类的内存编辑器。我有Unix实用程序,所以我使用SED。但是,如果您没有流编辑器,您可以编写一个小程序来打开dxf文件,并在运行过程中进行循环
如果你是真正的dxf专家,还有其他编辑技巧——比如用0替换z坐标。一如既往,要小心。全局搜索和替换可能会创建一个怪物,当您尝试加载它时会崩溃。确保在开始之前保存所有内容。
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2006-6-7 15:57:30 | 显示全部楼层
在层中创建和删除的基本原则代码0]
如果您无法从这里解决问题,请询问详细信息....祝您好运
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2006-6-7 16:05:59 | 显示全部楼层
贝伦德,
我想阿诺齐拉已经解决了。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 19:17 , Processed in 1.025664 second(s), 72 queries .

© 2020-2025 乐筑天下

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