乐筑天下

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

[编程交流] 匹配图层

[复制链接]
Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 08:02:19 | 显示全部楼层 |阅读模式
大家好。。。
 
我需要紧急帮助，希望有人能帮我。
 
我有一个包含我的标准图层的图形（母图形），在其他图形中，我有相同的图层，但其中一些图层与相同的颜色、线宽和线型不匹配。
 
是否有lisp可以从（母图形）中拉出图层并相应地修改其他图形中的图层？
 
谢谢XXXXXXXX
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 08:08:11 | 显示全部楼层
听起来您对使用绘图标准（.dws）感兴趣，或者您可能只是想从绘图中窃取。
回复

使用道具 举报

Sweety

26

主题

149

帖子

127

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 08:16:32 | 显示全部楼层
对不起，那不是我现在需要的。
 
我想根据（母图）中的图层修改图层。
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 08:20:50 | 显示全部楼层
正如我之前建议的那样，您应该考虑使用标准文件（.DWS）。。。从帮助中：
 
 
CAD标准概述
 
 
HTH公司
回复

使用道具 举报

Stefan BMR

0

主题

375

帖子

385

银币

限制会员

铜币
-7
发表于 2022-7-6 08:28:32 | 显示全部楼层
打开“mother drawing”并另存为新的dwg。打开工作图，用ctrl+c组合键复制所有内容，切换到新创建的dwg并粘贴到原始坐标。。。
回复

使用道具 举报

ReMark

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-6 08:31:26 | 显示全部楼层
使用设计中心从“母亲”图纸中借用内容。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 08:40:23 | 显示全部楼层
下面是一些应该将图层表数据导出到lisp文件（mother.lsp）中的内容，该文件可以反复使用。它对线条宽度一无所知
 
  2. [color=#8b4513];;;EXPORT LAYER TABLES IN LSP FORMAT[/color]
  3. [color=#8b4513];;;IGNORES XREF LAYERS[/color]
  5. [b][color=BLACK]([/color][/b]defun c:x-laylsp [b][color=FUCHSIA]([/color][/b]/ wf td ln lt lc ls lf lz ll[b][color=FUCHSIA])[/color][/b]
  7.  [b][color=FUCHSIA]([/color][/b]setq wf [b][color=NAVY]([/color][/b]open [color=#2f4f4f]"mother.lsp"[/color] [color=#2f4f4f]"w"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  8.  [b][color=FUCHSIA]([/color][/b]write-line [color=#2f4f4f]"[b][color=NAVY]([/color][/b]command "[/color]_.LAYER\[color=#2f4f4f]"[b][color=NAVY])[/color][/b]"[/color] wf[b][color=FUCHSIA])[/color][/b]
  10.  [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq td [b][color=MAROON]([/color][/b]tblnext [color=#2f4f4f]"LAYER"[/color] [b][color=GREEN]([/color][/b]not td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  11.         [b][color=NAVY]([/color][/b]setq ln [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 2 td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  12.               lt [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 6 td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  13.               lc [b][color=MAROON]([/color][/b]abs [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 62 td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  14.               ls [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]minusp [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 62 td[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [color=#2f4f4f]"_Off"[/color] [color=#2f4f4f]"_On"[/color][b][color=MAROON])[/color][/b]
  15.               lf [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 70 td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  16.               lz [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]logand lf 1[b][color=BLUE])[/color][/b] 1[b][color=GREEN])[/color][/b] [color=#2f4f4f]"_Freeze"[/color] [color=#2f4f4f]"_Thaw"[/color][b][color=MAROON])[/color][/b]
  17.               ll [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]logand lf 4[b][color=BLUE])[/color][/b] 4[b][color=GREEN])[/color][/b] [color=#2f4f4f]"_Lock"[/color] [color=#2f4f4f]"_Unlock"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  18.          [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]/= [b][color=GREEN]([/color][/b]logand lf 16[b][color=GREEN])[/color][/b] 16[b][color=MAROON])[/color][/b]
  19.              [b][color=MAROON]([/color][/b]progn
  20.                [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"[b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]not [b][color=TEAL]([/color][/b]tblsearch "[/color]LAYER\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]"[/color][b][color=RED])[/color][/b] wf[b][color=BLUE])[/color][/b]
  21.                [b][color=BLUE]([/color][/b]write-line [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"    [b][color=PURPLE]([/color][/b]command "[/color]_New\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]princ[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]"[/color][b][color=BLUE])[/color][/b] wf[b][color=GREEN])[/color][/b]
  22.                [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"[b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]tblsearch "[/color]LTYPE\[color=#2f4f4f]" "[/color][color=#2f4f4f]" lt "[/color]\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b]"[/color][b][color=RED])[/color][/b] wf[b][color=BLUE])[/color][/b]
  23.                [b][color=BLUE]([/color][/b]write-line [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"    [b][color=PURPLE]([/color][/b]command "[/color]_LTYPE\[color=#2f4f4f]" "[/color][color=#2f4f4f]" lt "[/color]\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b]"[/color][b][color=RED])[/color][/b]wf[b][color=BLUE])[/color][/b]
  24.                [b][color=BLUE]([/color][/b]write-line [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"    [b][color=PURPLE]([/color][/b]alert "[/color]LINETYPE [color=#2f4f4f]" lt "[/color] Does Not Exist In This Drawing\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]"[/color][b][color=BLUE])[/color][/b] wf[b][color=GREEN])[/color][/b]
  25.                [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"[b][color=RED]([/color][/b]command "[/color]_Color\[color=#2f4f4f]" "[/color][color=#2f4f4f]" [b][color=PURPLE]([/color][/b]itoa lc[b][color=PURPLE])[/color][/b] "[/color]\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=RED])[/color][/b]"[/color][b][color=BLUE])[/color][/b] wf[b][color=GREEN])[/color][/b]
  26.                [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"[b][color=RED]([/color][/b]command "[/color][color=#2f4f4f]" ll "[/color]\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=RED])[/color][/b]"[/color][b][color=BLUE])[/color][/b] wf[b][color=GREEN])[/color][/b]
  27.                [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"[b][color=RED]([/color][/b]command "[/color][color=#2f4f4f]" ls "[/color]\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=RED])[/color][/b]"[/color][b][color=BLUE])[/color][/b] wf[b][color=GREEN])[/color][/b]
  28.                [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"[b][color=RED]([/color][/b]command "[/color][color=#2f4f4f]" lz "[/color]\[color=#2f4f4f]" "[/color][color=#2f4f4f]" ln "[/color]\[color=#2f4f4f]"[b][color=RED])[/color][/b]"[/color][b][color=BLUE])[/color][/b] wf[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  29.        [b][color=FUCHSIA])[/color][/b]
  31.  [b][color=FUCHSIA]([/color][/b]write-line [color=#2f4f4f]"[b][color=NAVY]([/color][/b]command "[/color]\[color=#2f4f4f]"[b][color=NAVY])[/color][/b]"[/color] wf[b][color=FUCHSIA])[/color][/b]
  32.  [b][color=FUCHSIA]([/color][/b]close wf[b][color=FUCHSIA])[/color][/b]
  33.  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
在子图形中：
 
命令：（加载“MOTHER”）
 
 
-大卫
回复

使用道具 举报

eldon

8

主题

1133

帖子

1164

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 08:42:47 | 显示全部楼层
也许我错了，但我认为如果你从母图创建了一个绘图模板。然后基于该模板开始一个新的图形，然后将给定的图形插入其中，然后所有具有类似名称的层都将具有母图形的属性。不需要lisp。
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 08:46:13 | 显示全部楼层
 
实际上，插入的任何层（或所述层上的实体）都将继承接收图形层的层特性。
 
使用图形标准文件（.DWS）可以“管理”图形，使其符合给定的标准。这些标准文件可以是严格的，也可以是灵活的，例如，在这种情况下，仅标准化层。
回复

使用道具 举报

irneb

11

主题

968

帖子

919

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
99
发表于 2022-7-6 08:56:04 | 显示全部楼层
已经有很多方法了。图形标准是单向的（不是最快的，因为每次更改都需要单击）。
 
然后，saveas、erase all和copy-n-paste的想法已经过时了，但还不错——不幸的是，它没有考虑到纸空间选项卡和非图形化的东西，例如注册应用程序中的扩展数据（不总是需要的，但可能会导致插件/垂直应用程序出现问题）。或者，您可以使用Insert&Explode，基本上也是这样，但添加了所有非图形内容。对于选项卡，需要从另一个DWG（在选项卡的右键单击菜单上）导入它们。
 
至于设计中心。。。如果层还不存在，那就好了。但是，如果它有并且有一个非标准的颜色呢？不，不幸的是，对于这种情况，DC不是最好的。实际上，Lee的Steal和DC做的一样，它不会用导入的属性覆盖现有层，它只导入新层。
 
另一种方法可能是使用层状态。在母DWG中创建LS，并将其导出到LAS文件。然后导入并应用到其他文件中（甚至可以使用Lisp layerstate-*函数编写脚本，或者在较新版本的ACad中，LAYER命令还具有状态管理器）。
 
编辑：另一种方法是使用图层平移命令（LayTrans）。这样，您就不需要DWS，如果愿意，可以映射到DWG/DWT。然后只需单击地图相同按钮&平移。不幸的是，这无法在多个DWG上编写脚本。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-9 21:29 , Processed in 0.422843 second(s), 72 queries .

© 2020-2025 乐筑天下

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