Topic: AutoCAD 2019 Toolbar Icon "?" - code to fix

[ronjonp]

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]

1. (defun fix2019toolbars (menus)
2.   ;; RJP - 04.16.2018
3.   (vl-load-com)
4.   (cond
5.     ;; If AutoCAD 2019
6.     ((= 23 (atof (substr (getvar 'acadver) 1 4)))
7.      (vlax-for x (vla-get-menugroups (vlax-get-acad-object))
8.        (if (vl-position (strcase (vla-get-name x)) (mapcar 'strcase menus))
9.          (vlax-for tb (vla-get-toolbars x)
10.            (cond ((= -1 (vlax-get tb 'visible)) (vlax-put tb 'visible 0) (vlax-put tb 'visible -1)))
11.          )
12.        )
13.      )
14.     )
15.   )
16.   (princ)
17. )
18. (vl-load-com)
19. ;; Usage - list of menus to reload
20. ;; (fix2019toolbars '("IDT" "AutoCADTools" "Bluebeam"))

[RGUS]

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]

1. (defun fix2019toolbars (menus)
2.   ;; RJP - 04.16.2018
3.   (vl-load-com)
4.   (cond
5.     ;; If AutoCAD 2019
6.     ((= 23 (atof (substr (getvar 'acadver) 1 4)))
7.      (vlax-for x (vla-get-menugroups (vlax-get-acad-object))
8.        (if (vl-position (strcase (vla-get-name x)) (mapcar 'strcase menus))
9.          (vlax-for tb (vla-get-toolbars x)
10.            (cond ((= -1 (vlax-get tb 'visible)) (vlax-put tb 'visible 0) (vlax-put tb 'visible -1)))
11.          )
12.        )
13.      )
14.     )
15.   )
16.   (princ)
17. )
18. (vl-load-com)
19. ;; Usage - list of menus to reload
20. ;; (fix2019toolbars '("IDT" "AutoCADTools" "Bluebeam"))

Thanks Ron,
One would think ADESK might have provided a solution as well all ready.

[ronjonp]

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]

1. (defun fix2019toolbars (menus)
2.   ;; RJP - 04.16.2018
3.   (vl-load-com)
4.   (cond
5.     ;; If AutoCAD 2019
6.     ((= 23 (atof (substr (getvar 'acadver) 1 4)))
7.      (vlax-for x (vla-get-menugroups (vlax-get-acad-object))
8.        (if (vl-position (strcase (vla-get-name x)) (mapcar 'strcase menus))
9.     (vlax-for tb (vla-get-toolbars x)
10.       (cond ((= -1 (vlax-get tb 'visible)) (vlax-put tb 'visible 0) (vlax-put tb 'visible -1)))
11.     )
12.        )
13.      )
14.     )
15.   )
16.   (princ)
17. )
18. (vl-load-com)
19. ;; Usage - list of menus to reload
20. ;; (fix2019toolbars '("IDT" "AutoCADTools" "Bluebeam"))

Thanks Ron,
One would think ADESK might have provided a solution as well all ready.

They know about it .. timeline on fix ... who knows. 

[dgorsman]

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.

[ronjonp]

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.

Just updated .. no dice.