另一种方法是避免命令行调用：
- (defun PGEMenu ( )
- (vl-load-com)
- (or (menugroup "PGE_CUI")
- (and (findfile "W:\\AutoCAD\\PGE_CUI\\PGE_CUI.cui")
- (vla-load
- (vla-get-MenuGroups
- (vlax-get-acad-object)) "W:\\AutoCAD\\PGE_CUI\\PGE_CUI.cui")))
- (and (menugroup "PGE_CUI")
- (menucmd "p30=+PGE_CUI.POP1")))
- (PGEMenu)
| 
