这可能有助于开始,返回组成块的实体(名称)列表:
- [i][color=#990099];; GetBlockEntities by Lee McDonnell [07.05.09][/color][/i]
- [i][color=#990099];; ARGS:[/color][/i]
- [i][color=#990099];; Blk ~ Block Name [str][/color][/i]
- [i][color=#990099];; RETURN:[/color][/i]
- [i][color=#990099];; List of Entities (Enames)[/color][/i]
- [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] GetBlockEntities [b][color=RED]([/color][/b]Blk [b][color=BLUE]/[/color][/b] tStr[b][color=RED])[/color][/b]
- [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] Blk[b][color=RED])[/color][/b]
- [b][color=RED]([/color][/b]GetObj [b][color=RED]([/color][/b][b][color=BLUE]tblobjname[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] Blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
- [i][color=#990099]; Get Sub-Entities from Table Def[/color][/i]
- [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] GetObj [b][color=RED]([/color][/b]bObj[b][color=RED])[/color][/b]
- [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] bObj [b][color=RED]([/color][/b][b][color=BLUE]entnext[/color][/b] bObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
- [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] bObj [b][color=RED]([/color][/b]GetObj bObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
|