AutoLISP 符号

函数和 ObjectARX 应用程序检查并更改 AutoLISP 变量的值。acedGetSym()acedPutSym()

在第一个示例中，用户输入以下 AutoLISP 表达式：

命令：（setq testboole t）

T

命令：（setq teststr “HELLO， WORLD”）

“你好，世界”

Command：（setq sset1 （ssget））

<选择集：1>

然后，以下示例代码演示如何检索符号的新值。acedGetSym()

struct resbuf *rb; 
int rc; 
long sslen; 
rc = acedGetSym("testboole", &rb); 
if (rc == RTNORM && rb->restype == RTT) 
    acutPrintf("TESTBOOLE is TRUE\n"); 
acutRelRb(rb); 
rc = acedGetSym("teststr", &rb); 
if (rc == RTNORM && rb->restype == RTSTR) 
    acutPrintf("TESTSTR is %s\n", rb->resval.rstring); 
acutRelRb(rb); 
rc = acedGetSym("sset1", &rb); 
if (rc == RTNORM && rb->restype == RTPICKS) { 
    rc = acedSSLength(rb->resval.rlname, &sslen); 
    acutPrintf("SSET1 contains %lu entities\n", sslen); 
}
acutRelRb(rb); 

相反，可以创建或更改 AutoLISP 符号的绑定，如下所示：acedPutSym()

ads_point pt1; 
pt1[X] = pt1[Y] = 1.4; pt1[Z] = 10.9923; 
rb = acutBuildList(RTSTR, "GREETINGS", 0); 
rc = acedPutSym("teststr", rb); 
acedPrompt("TESTSTR has been reset\n"); 
acutRelRb(rb); 
rb = acutBuildList(RTLB, RTSHORT, -1, 
    RTSTR, "The combinations of the world", 
    RTSTR, "are unstable by nature.", RTSHORT, 100, 
    RT3DPOINT, pt1, 
    RTLB, RTSTR, "He jests at scars", 
    RTSTR, "that never felt a wound.", RTLE, RTLE, 0); 
rc = acedPutSym("longlist", rb); 
acedPrompt("LONGLIST has been created\n"); 
acutRelRb(rb);

要将 AutoLISP 变量设置为 nil，请进行以下赋值和函数调用：

rb->restype = RTNIL;
acedPutSym("var1", rb);

用户可以检索这些新值。（如示例中所示，程序应通知用户任何更改。

测试斯特已被重置。

长名单已经创建。

命令：！teststr

（“问候”）

命令：！长列表

（（-1“世界的组合”“本质上是不稳定的。100 （1.4 1.4 10.9923） （“他对伤疤开玩笑”“从未感觉到伤口。