Object ARX 定义LISP外部函数的参数传递

forever123

Object ARX 定义LISP外部函数，传递多段线图元名，返回对短线的顶点个数和顶点坐标的表
（顶点个数（顶点1）（顶点2）...）
希望高人指点指点，如果能简单写一下代码就更好了，
相关书籍不是很多，所以无从下手，
在这里谢谢了

XDSoft

通过 acedRetList 返回给LISP
acedRetList(acutBuildList(RT3DPOINT,p1,RT3DPOINT,p2.....,0));

forever123

XDSoft 发表于 2021-1-3 09:59
通过 acedRetList 返回给LISP
acedRetList(acutBuildList(RT3DPOINT,p1,RT3DPOINT,p2.....,0));

返给lisp我会，我现在卡在arx在如何得到多段线的图元名，得到后怎么处理！！

newer

forever123 发表于 2021-1-3 10:46
返给lisp我会，我现在卡在arx在如何得到多段线的图元名，得到后怎么处理！！

你是说ARX怎么得到LISP函数的参数？
用
resbuf *rb = acedGetArgs();
if (!rb)
   return RSRSLT;
if (rb->restype== RTENAME)
{
    ....
}

forever123

newer 发表于 2021-1-3 11:16
你是说ARX怎么得到LISP函数的参数？
用
resbuf *rb = acedGetArgs();

我现在就卡在这步，
传递来的 参数判断为图元名后我该怎么办，
怎么判断它是多段线，如果是多段线的话怎么得到顶点坐标及顶点个数。
刚接触arx不久，还在学习当中，，

newer

forever123 发表于 2021-1-3 12:27
我现在就卡在这步，
传递来的 参数判断为图元名后我该怎么办，
怎么判断它是多段线，如果是多段线的话 ...

ARX C++库很方便啊

if (rb->restype != RTENAME)
    return RSRSLT;
AcDbObjectId mId;
if ( acdbGetObjectId(mId,rb->resval.rlname) != Acad::eOk)
   return RSRSLT;
AcDbPolyLine *pLine;
if (AcDbOpenObject(pLine,mId,kForRead) != Acad::eOk)
   return RSRSLT;
......
pLine->close();

forever123

newer 发表于 2021-1-3 12:35
ARX C++库很方便啊

if (rb->restype != RTENAME)

通过newer老师，XDSoft老师的指点，以及在论坛上各位高手的帖子，东拼西凑，实现如下。

1. static int ads_Hxlisp()
   
2.         {
   
3.                 struct resbuf *prb = acedGetArgs();
   
4.                 struct resbuf *rbb = acedGetArgs();
   
5. 
   
6.                 if (prb == NULL)
   
7.                 {
   
8.                         acedPrompt(TEXT("参数太少"));
   
9.                         acedRetVoid();
   
10.                         return RTNORM;
    
11.                 }
    
12.                
    
13.                 if (prb->restype != RTENAME)
    
14.                 {
    
15.                         acedPrompt(TEXT(";错误,参数类型错误,应为图元名"));
    
16.                         acedRetVoid();
    
17.                         return RTNORM;
    
18.                 }
    
19. 
    
20.                 AcDbObjectId objId;
    
21.                 AcDbPolyline  *pLine;
    
22.                 if (acdbGetObjectId(objId, rbb->resval.rlname) != Acad::eOk)
    
23.                         return RSRSLT;
    
24. 
    
25.                 if (acdbOpenObject(pLine, objId, kForRead) != Acad::eOk)
    
26.                         return RSRSLT;
    
27. 
    
28.                 prb = prb->rbnext;
    
29.                 if (prb->restype != RTSHORT)
    
30.                 {
    
31.                         acedPrompt(TEXT(";错误,参数类型错误,应为整数"));
    
32.                         acedRetVoid();
    
33.                         return RTNORM;
    
34.                 }
    
35.                 short real ;
    
36.                 real = prb->resval.rint;
    
37. 
    
38.                 acutRelRb(prb);
    
39.                 acutRelRb(rbb);
    
40. 
    
41.                 struct resbuf *rbbb = acedGetArgs();
    
42.                 int n;//设置多段线顶点个数
    
43.                 switch (real)
    
44.                 {
    
45.                 case 0:
    
46.                         n = pLine->numVerts();//获取顶点个数
    
47.                         acedRetInt( n);
    
48.                         return RTNORM;
    
49.                         break;
    
50.                 case 1:
    
51.                         n = pLine->numVerts();//获取顶点个数
    
52.                         rbbb = acutBuildList(RTSHORT, n,  RTNONE);
    
53.                         for (int i = 0; i < n; i++)
    
54.                         {
    
55.                                 AcGePoint3d pt;
    
56.                                 pLine->getPointAt(i, pt);
    
57.                                 rbbb = acutBuildList(RTRESBUF, rbbb, RT3DPOINT, pt, RTNONE);
    
58.                         }
    
59.                         acedRetList(rbbb);
    
60.                         return RTNORM;
    
61.                         break;
    
62.                 }
    
63.                 acutRelRb(rbbb);//不知道怎么处理，有没有用就放在这了，往高手指点。
    
64.         }
    
65.        

复制代码

本人初学，望各位老师指点指点，如何优化，谢谢！！

newer

forever123 发表于 2021-1-4 14:15
通过newer老师，XDSoft老师的指点，以及在论坛上各位高手的帖子，东拼西凑，实现如下。
        
本人初学，望 ...

你的代码里面返回既有
RTNORM，还有 RSRSLT

1、要统一，根据你定义的外部函数，
如果没有注册，返回都是RTNORM, 否则返回都是RSRSLT
2、另外你OPEN了对象读，最后一定要关闭
pline->close();
3、用一个指针获得 acedGetArgs()就可以了，你代码里面获得了多次
4、参数给整数1的情况下，你要动态建立个点表，用两个refbuf 指针，一个头指针供返回用，另外一个遍历，通过rbnext指针把点给串起来。

forever123

newer 发表于 2021-1-5 02:59
你的代码里面返回既有
RTNORM，还有 RSRSLT

研究了几天，第四条有点没有明白。
用两个refbuf 指针，一个是用来遍历，一个最后销毁，那新建的refbuf 指针最后不用销毁吗？
如果不用销毁那直接用第一个refbuf 指针用来遍历不可以吗？
第二个就是如果我在中途跳出函数，那跳出的时候对于第一个 refbuf 指针 要不要用来销毁？
                if (prb == NULL)
                {
                        acedPrompt(TEXT("参数太少"));
                        acutRelRb(prb)
                        acedRetVoid();
                        return RTNORM;
                }
谢谢 回复

Lisphk

指针就是内存地址，不能同一个内存区域释放多次

头指针保存好，另外一个遍历指针遍历，

最后释放头指针。

newer

forever123 发表于 2021-1-14 20:31
研究了几天，第四条有点没有明白。
用两个refbuf 指针，一个是用来遍历，一个最后销毁，那新建 ...

if (prb == NULL)
                {
                        acedPrompt(TEXT("参数太少"));
                        acutRelRb(prb)
                        acedRetVoid();
                        return RTNORM;
                }

上面错了，NULL指针不能释放

这段代码放在最后，只有不是NULL的时候，才做，你写反了

if (prb != NULL)
                {
                        acedPrompt(TEXT("参数太少"));
                        acutRelRb(prb)
                        acedRetVoid();
                        return RTNORM;
                }

forever123

newer 发表于 2021-1-14 20:44
if (prb == NULL)
                {
                        acedPrompt(TEXT("参数太少"));

不好意思 ，我没有说明白
lisp 传递参数 obj：图元名，n：0或1的整数 ，
调用上面函数 ads_Hxlisp( obj  n)，
但不小心把 n 的参数写成了字符串 “0”
那函数运行到下面这步时会跳出函数，因为不是RTSHORT类型。
static int ads_Hxlisp()
        {
                struct resbuf *prb = acedGetArgs();
               .
               .
               .
                prb = prb->rbnext;
                if (prb->restype != RTSHORT)
                {
                        acedPrompt(TEXT(";错误,参数类型错误,应为整数"));
                        acutRelRb(prb) 是不是在这里需要增加这一行
                        acedRetVoid();
                        return RTNORM;
                }
               .
               .
               .
        }

forever123

Lisphk 发表于 2021-1-14 20:39
指针就是内存地址，不能同一个内存区域释放多次

头指针保存好，另外一个遍历指针遍历，

明白了