Topic: Return value from vla-get-floatingrows seems to be wrong

[mkweaver]

I'm building a lisp routine to save and restore toolbar positions.  This is helpful for switching between my office computer with two screens and my remote (home) computer using one screen.

The initial problem I am having is that vla-get-floatingrows seems to always return 1 instead of the number of rows showing in the toolbar.

Code - Auto/Visual Lisp: [Select]

1. (defun GetToolbarPositions (/ rtlist)
2.   (vlax-for mgp (vla-get-menugroups (vlax-get-acad-object))
3.     (vlax-for  tb (vla-get-toolbars mgp)
4.       (if  (= :vlax-true (vla-get-visible tb))
5.         (setq
6.           rtlist (cons
7.               (list
8.                 (cons 'Mgroup (vla-get-name mgp))
9.                 (cons 'toolbar (vla-get-name tb))
10.                 (cons 'top (vla-get-top tb))
11.                 (cons 'left (vla-get-left tb))
12.                 (cons 'DockStatus (vla-get-DockStatus tb))
13.                 (cons 'FloatingRows (vla-get-FloatingRows tb))
14.               )
15.             rtlist
16.           )
17.         )
18.       )
19.     )
20.   )
21.   rtlist
22. )
23.  

Is anyone else seeing this behavior or do I have something in my code screwed up?

Thanks,
Mike

[ronjonp]

Returns all 1's here too.

[framednlv]

After changing a toolbar, exit cad and reopen...
(FLOATINGROWS . 6)

[mkweaver]

Framednlv, it looks like you hit it.  Just about like the first value read in a session sticks and it won't re-read this property.

Thanks,
Mike

[Marc'Antonio Alessi]

Maybe this http://www.theswamp.org/index.php?topic=54120.msg588293#msg588293 can help...