乐筑天下

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

[编程交流] 更改属性

[复制链接]

17

主题

87

帖子

70

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-5 17:51:17 | 显示全部楼层 |阅读模式
你好
 
实际上,我有一个计划,有许多不同的块,具有不同颜色/层和线型的属性。。。。
因此,我想从图形中的所有属性中进行此操作:
 
层“0”
线型“Bylayer”
颜色“白色”
 
一次可以改变吗?
 
谢谢你的帮助!
回复

使用道具 举报

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 18:02:55 | 显示全部楼层
如果你想设置属性的属性。选择块类型“be”,并设置所需内容。然后同步属性
回复

使用道具 举报

17

主题

87

帖子

70

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-5 18:08:23 | 显示全部楼层
你好
我知道。。。但我想在一个有许多不同区块的计划上这样做!所以最好马上。。。
回复

使用道具 举报

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 18:13:15 | 显示全部楼层
只需使用合法值操作列表的vl:
  1. [color=#8b4513];;;MULTPIPLE EDITS OF ALL ATTRIBUTES BASED ON[/color]
  2. [color=#8b4513];;;A GROUP VARIABLE ASSOCIATION LIST[/color]
  3. [b][color=BLACK]([/color][/b]defun c:att-med [b][color=FUCHSIA]([/color][/b]/ vl ss i en ed an ad g[b][color=FUCHSIA])[/color][/b]
  4. [b][color=FUCHSIA]([/color][/b]setq vl [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=MAROON])[/color][/b]
  5.             [color=#8b4513];    [b][color=MAROON]([/color][/b]cons 7 [b][color=GREEN]([/color][/b]getvar [color=#2f4f4f]"TEXTSTYLE"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][/color]
  6.                 [b][color=MAROON]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=MAROON])[/color][/b]
  7.              [color=#8b4513];   [b][color=MAROON]([/color][/b]cons 40 1.0[b][color=MAROON])[/color][/b][/color]
  8.                 [b][color=MAROON]([/color][/b]cons 62 7[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  9. [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]66 . 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  10.       [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
  11.       [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  12.              [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
  13.                    an [b][color=GREEN]([/color][/b]entnext en[b][color=GREEN])[/color][/b]
  14.                    ad [b][color=GREEN]([/color][/b]entget an[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  15.              [b][color=MAROON]([/color][/b]while [b][color=GREEN]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 0 ad[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  16.                     [b][color=GREEN]([/color][/b]foreach p vl
  17.                        [b][color=BLUE]([/color][/b]setq g [b][color=RED]([/color][/b]car p[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
  18.                        [b][color=BLUE]([/color][/b]if [b][color=RED]([/color][/b]assoc g ad[b][color=RED])[/color][/b]
  19.                            [b][color=RED]([/color][/b]setq ad [b][color=PURPLE]([/color][/b]subst p [b][color=TEAL]([/color][/b]assoc g ad[b][color=TEAL])[/color][/b] ad[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
  20.                            [b][color=RED]([/color][/b]setq ad [b][color=PURPLE]([/color][/b]append ad [b][color=TEAL]([/color][/b]list p[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  21.                     [b][color=GREEN]([/color][/b]entmod ad[b][color=GREEN])[/color][/b]
  22.                     [b][color=GREEN]([/color][/b]setq an [b][color=BLUE]([/color][/b]entnext an[b][color=BLUE])[/color][/b]
  23.                           ad [b][color=BLUE]([/color][/b]entget an[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  24.              [b][color=MAROON]([/color][/b]entupd en[b][color=MAROON])[/color][/b]
  25.              [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  26. [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
 
这相当危险,因为它会影响dwg中的每个属性。
 
它也不重新定义块表ATTDEF定义
 
您可以制作一个UI前端,但这需要相当大的工作量-大卫
回复

使用道具 举报

37

主题

264

帖子

236

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
185
发表于 2022-7-5 18:18:44 | 显示全部楼层
有许多可用的工具和方法。
我喜欢GileCAD的解决方案来处理块的属性。应该试试。。
http://gilecad.azurewebsites.net/LISP/Edit_bloc_3.5.zip
回复

使用道具 举报

17

主题

87

帖子

70

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-5 18:31:14 | 显示全部楼层
 
你好
我做了一个att med。lsp。。。但是att med命令不起作用?
回复

使用道具 举报

17

主题

87

帖子

70

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-5 18:37:33 | 显示全部楼层
 
你好
我有这个。。。。但他改变了属性和块。。。我只想更改属性,块需要留在实际层上。
回复

使用道具 举报

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 18:44:35 | 显示全部楼层
 
 
hhhmmm在这方面工作过???你(加载“ATT-MED”)
回复

使用道具 举报

17

主题

87

帖子

70

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-5 18:49:22 | 显示全部楼层
 
嗨,大卫,
 
我在我的att med中做了一个新的复制/粘贴。lsp。。。。现在它开始工作了!
干得好。。非常感谢。
回复

使用道具 举报

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 18:51:36 | 显示全部楼层
很高兴听到这个消息-大卫
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 23:48 , Processed in 0.433528 second(s), 72 queries .

© 2020-2025 乐筑天下

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