[求助]：请高手帮忙，关于字典和扩展记录问题

小狼

请问有那些Vlisp函数是与字典有关的，我想求字典下扩展记录，并显示字典以及扩展记录的名称和属性。
一定要Vlisp的C++和VBA我不会用，最好能帮我写段原码，急需。
谢谢

cy956

你以xdata，ldata，xrecord，dict等作为关键字搜搜看

Gxiaofeng

最初由 小狼 发布
[B]请问有那些Vlisp函数是与字典有关的，我想求字典下扩展记录，并显示字典以及扩展记录的名称和属性。
一定要Vlisp的C++和VBA我不会用，最好能帮我写段原码，急需。
谢谢 [/B]

小狼!!嘿嘿....!!!

2. 
   
3.   [FONT=courier new]
   
4. (defun c:asdk_lisp_create ();(/ xrec xname dict dname)
   
5.     ; create the Xrecord entity's data list
   
6.     (setq xrec '((0 . "XRECORD")(100 . "AcDbXrecord")
   
7.                 (1 . "www")
   
8.                 (10 1.0 2.0 0.0) (40 . 3.14159) (50 . 3.14159)
   
9.                 (62 . 1) (70 . 180))
   
10.     )       
    
11.     ; use entmakex to create the Xrecord with no owner
    
12.     (setq xname (entmakex xrec))
    
13.     ; Within the named object dictionary,  attempt to get the
    
14.     ; entity name of the dictionary associated with the key
    
15.     ; "ASDK_DICT".  If it doesn't exist,  create it.
    
16.     (setq dname (cdr (assoc -1 (dictsearch (namedobjdict) "ASDK_DICT"))))
    
17.     (if (not dname) (progn
    
18.         (setq dict '((0 . "DICTIONARY")(100 . "AcDbDictionary")))
    
19.         (setq dname (entmakex dict))
    
20.         (dictadd (namedobjdict) "ASDK_DICT" dname))
    
21.     )
    
22.     ; add the new Xrecord entity to the named object dictionary
    
23.     (dictadd dname "XRECLISP" xname)
    
24.     (princ)
    
25. )
    
26. (defun c:asdk_lisp_listxrec ();(/ xlist dname)
    
27.     ; find the dictionary associated with the key "ASDK_DICT"
    
28.     (setq dname (cdr (assoc -1 (dictsearch (namedobjdict) "ASDK_DICT"))))
    
29. 
    
30.     ; find the Xrecord in the ASDK_DICT dictionary
    
31.     (setq xlist (dictsearch dname "XRECLISP"))
    
32. 
    
33.     ; print out the Xrecord's data list
    
34.     (princ xlist)
    
35. 
    
36.     (princ)
    
37. )
    
38.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:asdk_lisp_create ();(/ xrec xname dict dname)<br />     ; create the Xrecord entity's data list<br />     (setq xrec '((0 . "XRECORD")(100 . "AcDbXrecord")<br />                 (1 . "www")<br />                 (10 1.0 2.0 0.0) (40 . 3.14159) (50 . 3.14159)<br />                 (62 . 1) (70 . 180))<br />     )        <br />     ; use entmakex to create the Xrecord with no owner<br />     (setq xname (entmakex xrec))<br />     ; Within the named object dictionary,  attempt to get the<br />     ; entity name of the dictionary associated with the key<br />     ; "ASDK_DICT".  If it doesn't exist,  create it.<br />     (setq dname (cdr (assoc -1 (dictsearch (namedobjdict) "ASDK_DICT"))))<br />     (if (not dname) (progn<br />         (setq dict '((0 . "DICTIONARY")(100 . "AcDbDictionary")))<br />         (setq dname (entmakex dict))<br />         (dictadd (namedobjdict) "ASDK_DICT" dname))<br />     )<br />     ; add the new Xrecord entity to the named object dictionary<br />     (dictadd dname "XRECLISP" xname)<br />     (princ)<br /> )<br /> (defun c:asdk_lisp_listxrec ();(/ xlist dname)<br />     ; find the dictionary associated with the key "ASDK_DICT"<br />     (setq dname (cdr (assoc -1 (dictsearch (namedobjdict) "ASDK_DICT"))))<br /> <br />     ; find the Xrecord in the ASDK_DICT dictionary<br />     (setq xlist (dictsearch dname "XRECLISP"))<br /> <br />     ; print out the Xrecord's data list<br />     (princ xlist)<br /> <br />     (princ)<br /> )<br />   [/FONT]<br />