;;;Sets POP0 menu to either POPPIPE or the active CLG Major Group.
;;;Define submenus in the MNS file and swap them in this fashion.
(defun mnucmd ( / )
(if fpprop
  (progn
    (setq fpprop nil)
    (menucmd "p0=ACAD.POPPIPE")
    (propms)
  );progn
  (if (and mjrg mjsfx (= mjrg "C"))
    (menucmd (strcat "p0=ACAD.POP" mjrg mjsfx))
    (if mjrg
      (menucmd (strcat "p0=ACAD.POP" mjrg))
      (menucmd "p0=ACAD.POP0")
    );if
  );if
);if
);defun