[VBA] COMMAND_BUTTON

dinny5526

[em00]請問我想用 VBA 之 COMMAND_BUTTON 按鈕點選後送出一個字串給 LISP 接收該如何做.

efan2000

方法，凡事可以用来做中间介质的都可以，外部的像文件、INI文件、注册表、数据库，内部的像扩展数据、扩展实体数据、系统变量。最简单的应该是保存在系统变量USERI1-5、USERR1-5、USERS1-5中。

USERI1-5 系统变量
类型：整数
保存位置：图形
初始值：0
USERI1、USERI2、USERI3、USERI4 和 USERI5 用于整型值的存储和提取。

USERR1-5 系统变量
类型：实数
保存位置：图形
初始值：0.0000
USERR1、USERR2、USERR3、USERR4 和 USERR5 用于实数值的存储和提取。

USERS1-5 系统变量
类型：字符串
不保存
初始值：""
USERS1、USERS2、USERS3、USERS4 和 USERS5 用于字符串数据的存储和提取。

dinny5526

感謝 天涯孤客 可否給我一個 SAMPLE 謝謝 !!

efan2000

Lisp的我不会，自己看看帮助吧，这儿只贴出VBA的代码。

2. 
   
3. 
   
4. Sub test()
   
5.     Dim sysVarName As String
   
6.     Dim sysVarData As Variant
   
7.    
   
8.     ' 读取系统变量
   
9.     sysVarName = "USERS1"
   
10.     sysVarData = ThisDrawing.GetVariable(sysVarName)
    
11.    
    
12.     ' 设置系统变量
    
13.     Dim strData As String
    
14.     strData = "公共数据"
    
15.     ThisDrawing.SetVariable sysVarName, strData
    
16. End Sub
    

<br /> <br /> Sub test()<br />     Dim sysVarName As String<br />     Dim sysVarData As Variant<br />     <br />     ' 读取系统变量<br />     sysVarName = "USERS1"<br />     sysVarData = ThisDrawing.GetVariable(sysVarName)<br />     <br />     ' 设置系统变量<br />     Dim strData As String<br />     strData = "公共数据"<br />     ThisDrawing.SetVariable sysVarName, strData<br /> End Sub<br />