顺便说一句，这是正确的示例图
块标记示例。图纸
看看你的画，没有一个块像你描述的那样有“模型”属性标签？！？
还有，我在任何地方都没有看到一个叫“BOMTAG”的街区？！ 是的，我知道。最简单的示例是该图形使用具有不同标记的不同块。BOMTAG图纸不在我身边，这是完全相同的情况。我将“BOMTAG”替换为“Balloon*”，将“MODEL”替换为“PART_NUM”（“ITEM”保持不变）。 我懂了。
试试这个：
[颜色=绿色]；；从属属性编号-Lee Mac-2011-www.Lee-Mac。com；；为特定属性指定一个数字，该属性的“依存”属性为；；对于具有相同编号的所有属性都相同。（defunc:AttNum（/att blk dep inc itm lst num obj sel tmp val）（“Balloon_*”；；块名num“ITEM”；；编号标签dep“PART num”；；从属（mapcar'set（blk num dep）（mapcar'STRACASE（setqsel（ssget“_X”（list'（0.“INSERT”）“（66.1）（cons[2（strcat[”`*U*，“blk））（cons[410（getvar['CTAB）））（progn[repeat[（setq[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[val（cdr[assoc[dep tmp]）（setq[val（vla get textstring[val））（setq[att（cdr[assoc[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）（[ 对不起，我是tard。在最后一刻改变事情。。。
块：
Balloon_*（带TL、TR、T、L、R、BL、BR、B）
标签：
项目（增量编号）
零件号（零件/型号） 老兄，我会再做一点测试，但我想我成功了。我想高兴地发誓。非常感谢。你让它看起来很简单。你想要渲染什么？
哈哈，好朋友，很高兴它对你有用 如果你不介意的话，再给你一个简单的问题。我想从选择集中排除“铜”层，但在ssget之后添加（8。“~铜”）似乎不起作用。有什么想法吗？
非常感谢。 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.
页:
1
[2]