dinny5526 发表于 2003-12-3 18:15:00

[VBA] COMMAND_BUTTON

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

efan2000 发表于 2003-12-3 21:35:00

方法，凡事可以用来做中间介质的都可以，外部的像文件、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 发表于 2003-12-4 17:37:00

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

efan2000 发表于 2003-12-4 20:35:00

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


Sub test()
    Dim sysVarName As String
    Dim sysVarData As Variant
   
    ' 读取系统变量
    sysVarName = "USERS1"
    sysVarData = ThisDrawing.GetVariable(sysVarName)
   
    ' 设置系统变量
    Dim strData As String
    strData = "公共数据"
    ThisDrawing.SetVariable sysVarName, strData
End Sub
页: [1]
查看完整版本: [VBA] COMMAND_BUTTON