(vl-load-com) (setvar "cmdecho" 0) (if (= (strcase (getvar "PROGRAM")) "BRICSCAD") ;BricsCAD (load "C:\\xicad\\Lisp\\Upgrade_set_for_XiCAD.des") (load "C:\\xicad\\Lisp\\Upgrade_set_for_XiCAD.fas") ) (setvar "cmdecho" 1) (princ)