LISP增加唯一属性

Lee Mac · 发表于 2022-7-6 09:07:49

我做了，它似乎什么都没做。。。

顺便说一句，这是正确的示例图
块标记示例。图纸

stusic · 发表于 2022-7-6 09:11:07

看看你的画，没有一个块像你描述的那样有“模型”属性标签？！？

还有，我在任何地方都没有看到一个叫“BOMTAG”的街区？！

stusic · 发表于 2022-7-6 09:14:28

是的，我知道。最简单的示例是该图形使用具有不同标记的不同块。BOMTAG图纸不在我身边，这是完全相同的情况。我将“BOMTAG”替换为“Balloon*”，将“MODEL”替换为“PART_NUM”（“ITEM”保持不变）。

Lee Mac · 发表于 2022-7-6 09:19:00

我懂了。

试试这个：

[code][颜色=绿色]；；从属属性编号-Lee Mac-2011-www.Lee-Mac。com；；为特定属性指定一个数字，该属性的“依存”属性为；；对于具有相同编号的所有属性都相同。（defunc:AttNum（/att blk dep inc itm lst num obj sel tmp val）（[color=blk“Balloon_*”；；块名[color]num“ITEM”；；编号标签[color]dep“PART num”[color]；；从属（mapcar'set（blk num dep）（mapcar'STRACASE（setqsel（ssget“_X”（[color=BLUE BLUE]list'（0.“INSERT”）“（66.1）（cons[[color]2（strcat[[color]”`*U*，“blk））（cons[[color]410（getvar[[color]'CTAB）））（progn[repeat[[color]（setq[[color]inc（sslengthsel））(setqobj（vlax ename->vla object（ssnamesel（setqinc（1-inc（）））（if（null（vlax-property-available-pobj'effectivename））（wcmatch（strcase（vla get effectivenameobj））blk）（progn（setqtmp（mapcar（函数（lambda（att）（cons（strcase（vla get tagstringatt]））（vlax invokeobj'getattributes））（if（和[setq[[color]val（cdr[assoc[[color]dep tmp]）（setq[[color]val（vla get textstring[[color]val））（setq[[color]att（cdr[[color]assoc[[color]num tmp）））（if（setqitm（assocval lst）（setqlst（substvl list*val att（cdritm））itm lst）（setqlst（cons（listval att）lst）））（setqinc 1）（foreachgrp（vl sortlst（function（lambda（a b）（[

stusic · 发表于 2022-7-6 09:23:25

对不起，我是tard。在最后一刻改变事情。。。

块：
Balloon_*（带TL、TR、T、L、R、BL、BR、B）

标签：
项目（增量编号）
零件号（零件/型号）

Lee Mac · 发表于 2022-7-6 09:25:52

老兄，我会再做一点测试，但我想我成功了。我想高兴地发誓。非常感谢。你让它看起来很简单。你想要渲染什么？

stusic · 发表于 2022-7-6 09:26:53

哈哈，好朋友，很高兴它对你有用

stusic · 发表于 2022-7-6 09:32:21

如果你不介意的话，再给你一个简单的问题。我想从选择集中排除“铜”层，但在ssget之后添加（8。“~铜”）似乎不起作用。有什么想法吗？

非常感谢。

Lee Mac · 发表于 2022-7-6 09:34:16

stusic · 发表于 2022-7-6 09:38:18

If you don't mind, one more quick question for you. I wanted to exclude the "COPPER" layer from the selection set, but adding (8 . "~COPPER") after ssget didn't seem to work. Any ideas?

Thanks a heap.

[编程交流] LISP增加唯一属性

发表回复

精选推荐