求怎么把C#生成的图元列表传递给LISP使用？

绝情一剑

比如用C#生成了N个图元，怎么传递给LISP遍历使用？

你有种再说一遍

Bao_lai 发表于 2024-3-9 14:13
这样不知道为啥不行，也不会。

无论如何,返回值必须套ResultBuffer,
https://www.cnblogs.com/JJBox/p/11532752.html

Bao_lai

        [LispFunction("GetEntNames")]
        public List<ObjectId> GetEntNames(ResultBuffer args)
        {
            Document doc = Application.DocumentManager.MdiActiveDocument;
            Editor ed = doc.Editor;
            List<ObjectId> objectIds = new List<ObjectId>();

            PromptSelectionResult psr = ed.GetSelection();
            if (psr.Status == PromptStatus.OK)
            {
                SelectionSet sSet = psr.Value;
                objectIds= sSet.GetObjectIds().ToList();
                return objectIds;
            }
            else
            {
                return null;
            }
        }

Bao_lai

1. [LispFunction("GetEntNames")]
   
2. public ResultBuffer GetEntNames(ResultBuffer args=null)
   
3. {
   
4.   Document doc = Application.DocumentManager.MdiActiveDocument;
   
5.   Database db = doc.Database;
   
6.   Editor ed = doc.Editor;
   
7.   
   
8.   ResultBuffer rbrtn = new ResultBuffer();
   
9. 
   
10.   PromptSelectionResult psr = ed.GetSelection();
    
11.   if (psr.Status == PromptStatus.OK)
    
12.   {
    
13.     SelectionSet sSet = psr.Value;
    
14.     int i = 0;
    
15.     TypedValue[] ty = new TypedValue[sSet.Count];
    
16.     foreach (ObjectId id in sSet.GetObjectIds())
    
17.     {  
    
18.       ty = new TypedValue((int)LispDataType.ObjectId, id);
    
19.       i++;
    
20.     }
    
21.     rbrtn = new ResultBuffer(ty);
    
22.     return rbrtn;
    
23.   }
    
24.   else
    
25.   {
    
26.     return null;
    
27.   }
    
28. }
    

[LispFunction("GetEntNames")]<br /> public ResultBuffer GetEntNames(ResultBuffer args=null)<br /> {<br />   Document doc = Application.DocumentManager.MdiActiveDocument;<br />   Database db = doc.Database;<br />   Editor ed = doc.Editor;<br />   <br />   ResultBuffer rbrtn = new ResultBuffer();<br /> <br />   PromptSelectionResult psr = ed.GetSelection();<br />   if (psr.Status == PromptStatus.OK)<br />   {<br />     SelectionSet sSet = psr.Value;<br />     int i = 0;<br />     TypedValue[] ty = new TypedValue[sSet.Count];<br />     foreach (ObjectId id in sSet.GetObjectIds())<br />     {  <br />       ty<i> = new TypedValue((int)LispDataType.ObjectId, id);<br />       i++;<br />     }<br />     rbrtn = new ResultBuffer(ty);<br />     return rbrtn;<br />   }<br />   else<br />   {<br />     return null;<br />   }<br /> }<br />

Bao_lai

Bao_lai 发表于 2024-3-9 14:12
[LispFunction("GetEntNames")]
        public List GetEntNames(ResultBuffer args)
        { ...

这样不知道为啥不行，也不会。

Bao_lai

你有种再说一遍 发表于 2024-3-9 18:30
无论如何,返回值必须套ResultBuffer,
https://www.cnblogs.com/JJBox/p/11532752.html

感谢惊佬，好像可以了。

Bao_lai

Bao_lai 发表于 2024-3-9 19:15

1. (defun C:TT()
   
2.   (setq ents (GetEntNames))
   
3.   (setq i 0)
   
4.   (repeat (length ents)
   
5.     (vla-put-Color (vlax-ename->vla-object (nth i ents)) 1)
   
6.     (setq i (1+ i))
   
7.   )
   
8. )
   

(defun C:TT()<br />   (setq ents (GetEntNames))<br />   (setq i 0)<br />   (repeat (length ents)<br />     (vla-put-Color (vlax-ename->vla-object (nth i ents)) 1)<br />     (setq i (1+ i))<br />   )<br /> )<br />

你有种再说一遍

Bao_lai  2024-3-9 19:15

你发完帖子之后看一次帖子,有些地方坏掉了,第八行..还有多用卫语句if(不ok)return

绝情一剑

Bao_lai 发表于 2024-3-9 19:22

测试成功，非常感谢

Bao_lai

你有种再说一遍 发表于 2024-3-9 19:30
你发完帖子之后看一次帖子,有些地方坏掉了,第八行..还有多用卫语句if(不ok)return

1. if (psr.Status != PromptStatus.OK)
   
2. { return; }
   
3. //下面再写正常的操作
   

if (psr.Status != PromptStatus.OK)<br /> { return; }<br /> //下面再写正常的操作<br />

感谢惊佬指导，我理解是这样的意思么:先把不OK的情况给return掉，然后集中精力写OK的。