您可以制作自己的LISP来调用子函数，并根据需要调用它：[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] frzlay [b][color=RED]([/color][/b]lay [b][color=BLUE]/[/color][/b] doc lyr[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Documents[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lyr [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-layers[/color][/b] doc[b][color=RED])[/color][/b] lay[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-put-freeze[/color][/b] lyr [b][color=Blue]:vlax-true[/color][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][color=RED][color=Black](defun c:whatever ()[/color][/color][color=RED][color=Black] (frzlay[/color][/color][b][color=RED][color=Black] "[/color][/color][/b]UTILITY BASE/C-ELEC-LIN") (princ)) 
