Example CreateEntry

st788796

1. (vl-load-com)
   
2. (defun c:Example_CreateEntry()
   
3.     ;; This example adds an entry to the File Dependency List, returns its Index, updates
   
4.     ;; the entry, and then removes the entry.
   
5.     (setq acadObj (vlax-get-acad-object))
   
6.     (setq doc (vla-get-ActiveDocument acadObj))
   
7.   
   
8.     (setq objFDLCol (vla-get-FileDependencies doc))
   
9.     (alert (strcat "The number of entries in the File Dependency List is " (itoa (vla-get-Count objFDLCol)) "."))
   
10.    
    
11.     (setq FDLIndex (vla-CreateEntry objFDLCol "acad:xref" (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\Wall Base.dwg") :vlax-true :vlax-true))
    
12.     (alert (strcat "The number of entries in the File Dependency List is " (itoa (vla-get-Count objFDLCol)) "."))
    
13.    
    
14.     (setq IndexNumber (vla-IndexOf objFDLCol "acad:xref" (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\Wall Base.dwg")))
    
15.     (setq IndexString (itoa IndexNumber))
    
16.     (alert (strcat "The index of the new entry is " IndexString "."))
    
17.    
    
18.     (vla-UpdateEntry objFDLCol FDLIndex)
    
19.    
    
20.     (vla-RemoveEntry objFDLCol FDLIndex :vlax-true)
    
21.     (alert (strcat "The number of entries in the File Dependency List is " (itoa (vla-get-Count objFDLCol)) "."))
    
22. )
    

(vl-load-com)<br /> (defun c:Example_CreateEntry()<br />     ;; This example adds an entry to the File Dependency List, returns its Index, updates<br />     ;; the entry, and then removes the entry.<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br />   <br />     (setq objFDLCol (vla-get-FileDependencies doc))<br />     (alert (strcat "The number of entries in the File Dependency List is " (itoa (vla-get-Count objFDLCol)) "."))<br />     <br />     (setq FDLIndex (vla-CreateEntry objFDLCol "acad:xref" (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\Wall Base.dwg") :vlax-true :vlax-true))<br />     (alert (strcat "The number of entries in the File Dependency List is " (itoa (vla-get-Count objFDLCol)) "."))<br />     <br />     (setq IndexNumber (vla-IndexOf objFDLCol "acad:xref" (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\Wall Base.dwg")))<br />     (setq IndexString (itoa IndexNumber))<br />     (alert (strcat "The index of the new entry is " IndexString "."))<br />     <br />     (vla-UpdateEntry objFDLCol FDLIndex)<br />     <br />     (vla-RemoveEntry objFDLCol FDLIndex :vlax-true)<br />     (alert (strcat "The number of entries in the File Dependency List is " (itoa (vla-get-Count objFDLCol)) "."))<br /> )<br />

/db_自贡黄明儒_

有没有说明，此法有什么用处？

xvjiex

感谢楼主分享Example CreateEntry