- 在 Visual LISP 控制台窗口中输入以下命令:
(vlax-ldata-put "mydict" "mykey" "Mumbo Dumbo")
"Mumbo Dumbo"
(vlax-ldata-get "mydict" "mykey")
"Mumbo Dumbo"
- 在文件中输入以下代码,然后使用“生成应用程序”从该文件构建 VLX。使用“生成应用程序”向导的“专家”模式,然后选择“编译选项”选项卡上的“单独的命名空间”选项。
(vl-doc-export 'ldataput)
(vl-doc-export 'ldataget)
(vl-doc-export 'ldataget-nilt)
(defun ldataput ()
(princ "This is a test of putting private ldata ")
(vlax-ldata-put "mydict" "mykey" "Mine! Mine! " T)
)
(defun ldataget ()
(vlax-ldata-get "mydict" "mykey")
)
(defun ldataget-nilt ()
(vlax-ldata-get "mydict" "mykey" nil T)
)
- 加载 VLX 文件。
- 运行保存私有数据:ldataput
(ldataput)
This is a test of putting private ldata
参考代码定义:此函数存储一个包含“Mine!我的!ldataput
- Runto 检索 LISP 数据:ldataget
(ldataget)
"Mumbo Dumbo"
请注意,返回的数据不是存储者的数据。这是因为没有在其调用中指定私有参数。因此,检索的数据是通过在步骤 1 中发出来设置的数据。ldatagetldataputldatagetvlax-ldata-getldatagetvlax-ldata-put
(ldataget-nilt)
"Mine! Mine!"
- Runto 检索 LISP 数据:ldataget-nilt
(ldataget-nilt)
"Mine! Mine!"
这次返回了保存的私有数据,因为在其调用中指定了私有参数。ldataputldataget-niltvlax-ldata-get
- 在控制台提示符下,发出用于检索私有数据的相同调用:ldataget-nilt
(vlax-ldata-get "mydict" "mykey" nil T)
"Mumbo Dumbo"
当在单独的命名空间 VLX 外部发出时,将忽略私有参数。如果指定的字典和键存在非私有数据(如本例所示),则将检索该数据。vlax-ldata-get