0 Members and 1 Guest are viewing this topic.
Nothing groundbreaking, but based off the thread HERE ( for some reason I cannot edit my posts anymore ) here's updated code that isn't as 'heavy' as my previous solution to this problem.Code - Auto/Visual Lisp: [Select](defun fix2019toolbars (menus) ;; RJP - 04.16.2018 (vl-load-com) (cond ;; If AutoCAD 2019 ((= 23 (atof (substr (getvar 'acadver) 1 4))) (vlax-for x (vla-get-menugroups (vlax-get-acad-object)) (if (vl-position (strcase (vla-get-name x)) (mapcar 'strcase menus)) (vlax-for tb (vla-get-toolbars x) (cond ((= -1 (vlax-get tb 'visible)) (vlax-put tb 'visible 0) (vlax-put tb 'visible -1))) ) ) ) ) ) (princ))(vl-load-com);; Usage - list of menus to reload;; (fix2019toolbars '("IDT" "AutoCADTools" "Bluebeam"))
Quote from: ronjonp on April 16, 2018, 05:22:39 PMNothing groundbreaking, but based off the thread HERE ( for some reason I cannot edit my posts anymore ) here's updated code that isn't as 'heavy' as my previous solution to this problem.Code - Auto/Visual Lisp: [Select](defun fix2019toolbars (menus) ;; RJP - 04.16.2018 (vl-load-com) (cond ;; If AutoCAD 2019 ((= 23 (atof (substr (getvar 'acadver) 1 4))) (vlax-for x (vla-get-menugroups (vlax-get-acad-object)) (if (vl-position (strcase (vla-get-name x)) (mapcar 'strcase menus)) (vlax-for tb (vla-get-toolbars x) (cond ((= -1 (vlax-get tb 'visible)) (vlax-put tb 'visible 0) (vlax-put tb 'visible -1))) ) ) ) ) ) (princ))(vl-load-com);; Usage - list of menus to reload;; (fix2019toolbars '("IDT" "AutoCADTools" "Bluebeam"))Thanks Ron,One would think ADESK might have provided a solution as well all ready.
Check the "point-oh-one" fix - it may have been included in that. Otherwise, solving it on their end may take a little more work.