乐筑天下

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

[编程交流] 层交换

[复制链接]
costadina

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 14:39:18 | 显示全部楼层 |阅读模式
大家好。我是这个论坛的新手。我正在寻找任何建议，我可以找到一些代码在Autocad中进行层交换。
情况就是这样：我们有很多图纸是按照我们公司的图层标准绘制的。现在我们有了一份新工作，客户有了自己的层标准，我们必须遵守。
 
例如，我们有一个称为“电气”的层，线型连续，颜色为黄色。
客户有一层称为机械，线型隐藏，颜色为绿色。
 
有没有人建议我在哪里可以找到一些代码来处理图形集并自动更改图层？杂志、书籍、网站，随便什么。
 
此外，该代码还必须能够更改块中嵌入的层。
 
我熟悉VBA，在Excel中完成VBA编程，所以我更喜欢VBA代码，但当然，我会选择我能找到的。
 
只是尽量避免自己开发代码。提前谢谢。
回复

使用道具 举报

lpseifert

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 14:56:30 | 显示全部楼层
所以你想要有人为你做这项工作？
 
尝试Laytrans命令
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 14:56:50 | 显示全部楼层
 
 
我很确定他只是想说他希望它已经写好了。。。
 
laytrans应该做你想做的事
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 15:12:11 | 显示全部楼层
我发誓我读了比尔·克莱默（HTH）的作品，他写了一些非常类似的东西。我想他甚至把它叫做层交换，但我可以想象一些事情。他们是对的，laytrans会做你想做的事。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 15:20:33 | 显示全部楼层
多年来，我只在简单的模型空间中使用了很多，没有外部参照图形。缺点可能是新图层的线型不存在或不在acad中。然后在LAYER命令期间失败。它是case senitive（在旧版本中并不重要）
大卫
回复

使用道具 举报

costadina

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 15:22:39 | 显示全部楼层
当我下周回到办公室时，我会试试你所有的建议。
 
大卫，谢谢你发代码。由于我不熟悉Lisp，请您描述一下您的变量（ll tdef ln ss fe fd ld），以便我更好地理解该程序。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 15:36:09 | 显示全部楼层
其实很简单
 
ll=users\u layer\u列表
 
tdef=表格定义
 
ln=层名称
 
ss-选择集
 
fe-第一个块嵌套实体名称
 
fd-fe\u dxf\u定义
 
ld-layer_定义
 
ll是唯一一个你需要根据自己的需要修改的。其余部分在程序中是自主的-大卫
回复

使用道具 举报

costadina

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 15:45:35 | 显示全部楼层
谢谢你，大卫
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 00:33 , Processed in 0.372700 second(s), 68 queries .

© 2020-2025 乐筑天下

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