[code]（defun c:go（）（vl load com）（setq menu list nil）（setq acad（vlax get acad object））（setq mgs（vla get Menugroups acad））（setq c（vla get count mgs））（setq n 0）（重复c（setq menu（vlax invoke method mgs“Item”n））（setq menu list（cons menu list））（setq n（+1 n））（setq pops（vla get menu（nth 1 menu list））（setq pops（vlax invoke method pops“Item”0））（setq status（vlax get property pop‘OnMenuBar））（vlax-property-available-p pop‘OnMenuBar）（vlax put property pop‘OnMenuBar:vlax true）；
置顶卡
