（XD::DOC:fix2019toolbars）修复2019 工具条变问号函数

newer

1. (defun XD::DOC:fix2019toolbars (/ x tb)
   
2.   (cond        ((<= 23 (atof (substr (getvar 'acadver) 1 4)))
   
3.          (vlax-for x (vla-get-menugroups (vlax-get-acad-object))
   
4.            (vlax-for tb        (vla-get-toolbars x)
   
5.              (cond ((= -1 (vlax-get tb 'visible))
   
6.                     (vlax-put tb 'visible 0)
   
7.                     (vlax-put tb 'visible -1)
   
8.                    )
   
9.              )
   
10.            )
    
11.          )
    
12.         )
    
13.   )
    
14.   t
    
15. )
    

(defun XD::DOC:fix2019toolbars (/ x tb)<br />   (cond        ((<= 23 (atof (substr (getvar 'acadver) 1 4)))<br />          (vlax-for x (vla-get-menugroups (vlax-get-acad-object))<br />            (vlax-for tb        (vla-get-toolbars x)<br />              (cond ((= -1 (vlax-get tb 'visible))<br />                     (vlax-put tb 'visible 0)<br />                     (vlax-put tb 'visible -1)<br />                    )<br />              )<br />            )<br />          )<br />         )<br />   )<br />   t<br /> )<br />

yangjian001

修复2019 工具条变问号函数

cfc123456

感谢提供

moranyuyan

楼主，能不能修复源泉工具条变问号的问题

Lisphk

moranyuyan 发表于 2018-9-1 13:43
楼主，能不能修复源泉工具条变问号的问题

应该是丢失它自己的文件了吧

wzjck01

感谢提供感谢提供

Le9988

学习，学习。

wzjck01

学习，学习。