[编程交流] 创建具有所有层的节点

([color=BLUE]defun[/color] c:nodeblock ( [color=BLUE]/[/color] def name )
   
   ([color=BLUE]setq[/color] name [color=MAROON]"nodeblock"[/color])  [color=GREEN];; Name of 'Node Block'[/color]
   
   ([color=BLUE]if[/color] ([color=BLUE]null[/color] ([color=BLUE]tblsearch[/color] [color=MAROON]"BLOCK"[/color] name))
       ([color=BLUE]progn[/color]
           ([color=BLUE]entmake[/color]
               ([color=BLUE]list[/color]
                  '(0 . [color=MAROON]"BLOCK"[/color])
                  '(8 . [color=MAROON]"0"[/color])
                  '(10 0.0 0.0 0.0)
                   ([color=BLUE]cons[/color] 2 name)
                  '(70 . 0)
               )
           )
           ([color=BLUE]while[/color] ([color=BLUE]setq[/color] def ([color=BLUE]tblnext[/color] [color=MAROON]"LAYER"[/color] ([color=BLUE]null[/color] def)))
               ([color=BLUE]if[/color] ([color=BLUE]not[/color] ([color=BLUE]minusp[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 62 def))))
                   ([color=BLUE]entmake[/color]
                       ([color=BLUE]list[/color]
                          '(0 . [color=MAROON]"POINT"[/color])
                          '(10 0.0 0.0 0.0)
                           ([color=BLUE]cons[/color] 8 ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 2 def)))
                       )
                   )
               )
           )
           ([color=BLUE]entmake[/color] '((0 . [color=MAROON]"ENDBLK"[/color]) (8 . [color=MAROON]"0"[/color])))
           [color=GREEN];; Comment this line to not insert block[/color]
           ([color=BLUE]entmake[/color] ([color=BLUE]list[/color] '(0 . [color=MAROON]"INSERT"[/color]) '(8 . [color=MAROON]"0"[/color]) '(10 0.0 0.0 0.0) ([color=BLUE]cons[/color] 2 name)))
       )
       ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\n"[/color] name [color=MAROON]" already exists."[/color]))
   )
   ([color=BLUE]princ[/color])
)