乐筑天下

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

[编程交流] Entmod问题

[复制链接]
Ahankhah

91

主题

428

帖子

326

银币

后起之秀

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

铜币
474
发表于 2022-7-6 06:15:46 | 显示全部楼层 |阅读模式
大家好，
 
我编写了一个简短的LISP代码来执行MATCHPROP命令的一些任务。
 
以下是函数：
  2. (defun MatchProp (oldobj newobj key / oldobjlist newobjlist oldassoc newassoc)
  3.  (setq oldobjlist (entget oldobj))
  4.  (setq newobjlist (entget newobj))
  5.  (setq newassoc (assoc key newobjlist))  
  6.  (if (setq oldassoc (assoc key oldobjlist))
  7.   (progn  
  8.    (if newassoc
  9.     (progn   
  10.      (setq newobjlist (subst oldassoc newassoc newobjlist))
  11.     ) 
  12.     (progn; it is bylayer
  13.      (setq newobjlist (append newobjlist (list oldassoc)))
  14.     ) 
  15.    )
  16.   ) 
  17.   (progn; set it to bylayer
  18.    (if newassoc
  19.     (progn
  20.      (setq newobjlist (vl-remove newassoc newobjlist))
  21.     ) 
  22.    )
  23.   )
  24.  )
  25.  (entmod newobjlist)
  26. )

这是一个例子，展示了它的名称：
  2. (defun c:go()
  3.  (setq oldobj (car (entsel)))
  4.  (setq newobj (car (entsel)))
  5.  (MatchProp oldobj newobj [color=darkslateblue][b]8[/b][/color]); [color=magenta]layer[/color]
  6.  (MatchProp oldobj newobj [color=darkslateblue][b]62[/b][/color]); [color=magenta]color[/color]
  7.  (MatchProp oldobj newobj [color=darkslateblue][b]420[/b][/color]); [color=magenta]color RGB[/color]
  8.  (MatchProp oldobj newobj [color=darkslateblue][b]430[/b][/color]); [color=magenta]color name[/color]
  9.  (MatchProp oldobj newobj [color=darkslateblue][b]6[/b][/color]); [color=magenta]linetype[/color]
  10.  (MatchProp oldobj newobj [color=darkslateblue][b]48[/b][/color]); [color=magenta]linetype scale[/color]
  11.  (MatchProp oldobj newobj [color=darkslateblue][b]370[/b][/color]); [color=magenta]lineweight[/color]
  12.  (MatchProp oldobj newobj [color=darkslateblue][b]440[/b][/color]); [color=magenta]tranparency[/color]
  13.  (MatchProp oldobj newobj [color=darkslateblue][b]390[/b][/color]); [color=magenta]plot style[/color]
  14. )

 
当我选择具有命名颜色、线型等的对象（不是Bylayer）时效果很好，但反之亦然。
 
有谁能检查一下，看看我的程序或entmod函数有什么问题吗？
 
提前感谢：）。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 06:23:18 | 显示全部楼层
这很奇怪。代码的编写方式应该是可行的，但事实并非如此。
让我进一步调查我的朋友
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 06:24:34 | 显示全部楼层
实体列表应具有相同数量的元素：
 
  1. (defun MatchProp (oldobj newobj key / oldobjlist newobjlist oldassoc newassoc)
  2.  (setq oldobjlist (entget oldobj))
  3.  (setq newobjlist (entget newobj))
  4.  (setq newassoc (assoc key newobjlist))  
  5.  (if (setq oldassoc (assoc key oldobjlist))
  6.   (progn  
  7.    (if newassoc
  8.     (progn   
  9.      (setq newobjlist (subst oldassoc newassoc newobjlist))
  10.     ) 
  11.     (progn; it is bylayer
  12.      (setq newobjlist (append newobjlist (list oldassoc)))
  13.     ) 
  14.    )
  15.   ) 
  16.   (progn; set it to bylayer
  17.    (if newassoc
  18.     (progn
  19.      
  20.      [color=blue](setq newobjlist (subst (cons key 256) newassoc newobjlist))
  21. [/color]     ) 
  22.    )
  23.   )
  24.  )
  25.  (entmod newobjlist)
  26. )
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 06:32:24 | 显示全部楼层
 
还是更多？使用append-entmod可以毫无问题地工作。给出了什么。
 
据我所知，我上面发布的代码片段可以处理颜色和线型，我想其他东西还需要额外的代码。
回复

使用道具 举报

Ahankhah

91

主题

428

帖子

326

银币

后起之秀

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

铜币
474
发表于 2022-7-6 06:37:02 | 显示全部楼层
非常感谢pBe，
你是对的。我使用您的报价，以及更改命令的属性选项来更改其他属性。
当然，这不是一个好的解决方案，只是好的，而没有其他更好的方法。
  1. (command "_.CHANGE" obj "" "_Properties" [color=purple][b]'WhichProperty[/b][/color] "Bylayer" "")

再次感谢你花时间解决我的问题。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 06:38:43 | 显示全部楼层
您将附加一个零：
 
  1.    (setq newobjlist (append newobjlist (list oldassoc)))

 
对于线型，应为：
 
  1.    (setq newobjlist (append newobjlist (list (cons 6 "BYLAYER"))))

 
每个组都有自己的默认值-大卫
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 06:42:43 | 显示全部楼层
 
很好，大卫
回复

使用道具 举报

Ahankhah

91

主题

428

帖子

326

银币

后起之秀

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

铜币
474
发表于 2022-7-6 06:46:19 | 显示全部楼层
David和pBe，谢谢你们的帮助。
 
根据我们目前对entmod函数的研究，我列出了3行代码。
 
将颜色设置为“BYLAYER”：
  1. (setq newobjlist (subst '(62 .[b] 256[/b]) newassoc newobjlist)); color of BYLAYER

 
将线型设置为“BYLAYER”：
  1. (setq newobjlist (subst '(6 . [b]"BYLAYER"[/b]) newassoc newobjlist)); linetype of BYLAYER

 
将线型比例设置为1：
  1. (setq newobjlist (subst '(48 . [b]1[/b]) newassoc newobjlist)); linetype scale of 1
回复

使用道具 举报

Ahankhah

91

主题

428

帖子

326

银币

后起之秀

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

铜币
474
发表于 2022-7-6 06:50:46 | 显示全部楼层
将透明度设置为“BYLAYER”：
  1. (setq newobjlist (subst '(440 . [b]"BYLAYER"[/b]) newassoc newobjlist)); transparency of BYLAYER
回复

使用道具 举报

Ahankhah

91

主题

428

帖子

326

银币

后起之秀

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

铜币
474
发表于 2022-7-6 06:55:29 | 显示全部楼层
将线宽设置为“BYLAYER”：
  1. (setq newobjlist (subst '(370 . [b]-1[/b]) newassoc newobjlist)); lineweight of BYLAYER
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 18:29 , Processed in 1.132283 second(s), 72 queries .

© 2020-2025 乐筑天下

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