[code]（defun c:RPWB（/*error*\u blocks lst block ss space）（vl load com）（defun*error*（msg）（and*AcadDoc*（vla endundomark*AcadDoc*）（if（and msg（not（wcmatch（strcase msg）“*BREAK*，*CANCEL*，*QUIT*”）（princ（strcat“\n错误：“msg）））（defun _blocks（doc/l）（vlax for x（vla get blocks doc）（if（not（wcmatch（vla get name x）”*；*，`**）（if（not（wcmatch（vla get name x）；*，`**）setq l（cons（vla get name x）l））（vl sort l'
