AutoCAD 2019工具条变？的解决代码

newer

1. (defun fix2019toolbars ()
   
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.   (princ)
    
15. )
    

(defun fix2019toolbars ()<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 />   (princ)<br /> )<br />

C#:

1. public void ToggleGIPSToolbars()
   
2.         {
   
3.             string menuname = AcadApp.GetSystemVariable("MENUNAME").ToString();
   
4. 
   
5.             var cs = new CustomizationSection(menuname);
   
6.             cs.Workspaces.BeginUpdate();
   
7. 
   
8.             foreach(Workspace item in cs.Workspaces)
   
9.             {
   
10.                 foreach(WorkspaceToolbar wkToolbar in item.WorkspaceToolbars)
    
11.                 {
    
12.                     if (wkToolbar.Display == 0)
    
13.                         continue;
    
14. 
    
15.                     wkToolbar.Display = 0;
    
16.                     wkToolbar.Display = 1;
    
17.                 }
    
18.             }
    
19.             cs.Workspaces.EndUpdate();
    
20.         }
    

public void ToggleGIPSToolbars()<br />         {<br />             string menuname = AcadApp.GetSystemVariable("MENUNAME").ToString();<br /> <br />             var cs = new CustomizationSection(menuname);<br />             cs.Workspaces.BeginUpdate();<br /> <br />             foreach(Workspace item in cs.Workspaces)<br />             {<br />                 foreach(WorkspaceToolbar wkToolbar in item.WorkspaceToolbars)<br />                 {<br />                     if (wkToolbar.Display == 0)<br />                         continue;<br /> <br />                     wkToolbar.Display = 0;<br />                     wkToolbar.Display = 1;<br />                 }<br />             }<br />             cs.Workspaces.EndUpdate();<br />         }<br />

Linhay

谢谢N大

qhdycm2016

装上2019机子变得巨卡

newer

qhdycm2016 发表于 2018-4-19 09:17
装上2019机子变得巨卡

机器配置不行，就不要怪2019了。
内存多少？ 什么系统？多少位？

至少8G内存，64位操作系统，才行。

kqqt6236

谢谢分享。

zyclyl

qhdycm2016 发表于 2018-4-19 09:17
装上2019机子变得巨卡

单位去年刚发的电脑，配置蛮不错，我把cad2018装到d盘后，cad用起来无比的卡，然后我重装系统之后把cad2018装到c盘，发现一点都不卡了，c盘是固态的

huangpc27

这个代码怎么使用呢