Migrating_from_MNU_to_the_CUI

st788796

1. (defun i:GetWorkspaces (CUIFilename / acad xml nodes i wsList)
   
2.   (vl-load-com)
   
3.   (setq        acad (vlax-Get-Acad-Object)
   
4.         xml  (vla-GetInterfaceObject acad "MSXML2.DOMDocument")
   
5.   )
   
6.   (vlax-Invoke xml 'Load CUIFilename)
   
7.   (setq        nodes (vlax-Invoke xml 'getElementsByTagName "WorkspaceConfig")
   
8.         i     (vlax-Get-Property nodes 'Length)
   
9.   )
   
10.   (repeat i
    
11.     (setq i         (1- i)
    
12.           wsList (cons (vlax-Get-Property
    
13.                          (vlax-Get-Property nodes 'Item i)
    
14.                          'Text
    
15.                        )
    
16.                        wsList
    
17.                  )
    
18.     )
    
19.   )
    
20.   (vlax-Release-Object nodes)
    
21.   (vlax-Release-Object xml)
    
22.   wsList
    
23. )

(defun i:GetWorkspaces (CUIFilename / acad xml nodes i wsList)<br />   (vl-load-com)<br />   (setq        acad (vlax-Get-Acad-Object)<br />         xml  (vla-GetInterfaceObject acad "MSXML2.DOMDocument")<br />   )<br />   (vlax-Invoke xml 'Load CUIFilename)<br />   (setq        nodes (vlax-Invoke xml 'getElementsByTagName "WorkspaceConfig")<br />         i     (vlax-Get-Property nodes 'Length)<br />   )<br />   (repeat i<br />     (setq i         (1- i)<br />           wsList (cons (vlax-Get-Property<br />                          (vlax-Get-Property nodes 'Item i)<br />                          'Text<br />                        )<br />                        wsList<br />                  )<br />     )<br />   )<br />   (vlax-Release-Object nodes)<br />   (vlax-Release-Object xml)<br />   wsList<br /> )

/db_自贡黄明儒_

看标题是MNu一＞CUi，内内容好象是相反的。如果CUi能—＞MNu，那就令人惊喜了，毕竟MNU好操作些。会不会是我猜的功能呢?

st788796

/db_自贡黄明儒_ 发表于 2014-2-14 20:09
看标题是MNu一＞CUi，内内容好象是相反的。如果CUi能—＞MNu，那就令人惊喜了，毕竟MNU好操作些。会不会是 ...

CUIFile 就是 XML 文件，用前面写的那些 XML 函数就可以把定义读出来

/db_自贡黄明儒_

st788796 发表于 2014-2-14 20:35
CUIFile 就是 XML 文件，用前面写的那些 XML 函数就可以把定义读出来

是这样啊，我还一直认为你在练葵花宝典呢，所以你前面写的那些函数我没怎么看，我知道不是每个人都能练孰葵花宝典的

/db_自贡黄明儒_

你这个怎么用呀，我(i:GetWorkspaces "CXinZhi.cuix")失败了，(i:GetWorkspaces "CXinZhi")也失败了，在2010下。

st788796

/db_自贡黄明儒_ 发表于 2014-2-19 09:40
你这个怎么用呀，我(i:GetWorkspaces "CXinZhi.cuix")失败了，(i:GetWorkspaces "CXinZhi")也失败了，在201 ...

桌子已经改了, cuix 不是 xml 格式文件