【源码】提取对象的DXF组码值到LISP

牢固

1. //提取DXF值 By Gu_xl
   
2. //调用方式
   
3. //(GetDxf ename code [AllFlag])
   
4. //   ename 图元名
   
5. //   code 组码
   
6. //   AllFlag 可选参数，提供且不为nil时返回所有相同组码值
   
7. static int ads_GetDxf (void)
   
8. {
   
9.   struct resbuf *rb = acedGetArgs();
   
10.   struct resbuf *rbdxf=NULL,*rbtmp;
    
11.   if (rb == NULL)
    
12.   {
    
13.     acdbFail(_T("参数太少!"));
    
14.     return RTERROR;
    
15.   }
    
16.   if (rb->restype == RTENAME)
    
17.   {
    
18.     ads_name ent;
    
19.     ads_name_set(rb->resval.rlname,ent);
    
20.     if (rb->rbnext == NULL)
    
21.     {
    
22.       acdbFail(_T("参数太少!"));
    
23.       return RTERROR;
    
24.     }
    
25.     rb = rb->rbnext;
    
26.     if (rb->restype != RTSHORT)
    
27.     {
    
28.       acdbFail(_T("参数错误!"));
    
29.       return RTERROR;
    
30.     }
    
31.     int i = rb->resval.rint;
    
32.     bool bAllDxf = false;
    
33.     if (rb->rbnext != NULL)
    
34.     {
    
35.       rb = rb->rbnext;
    
36.       if (rb->restype != RTNIL)
    
37.       {
    
38.         bAllDxf = true;
    
39.       }
    
40.       if (rb->rbnext != NULL)
    
41.       {
    
42.       acdbFail(_T("参数太多!"));
    
43.       return RTERROR;
    
44.       }
    
45.     }
    
46.     struct resbuf *rbRetList = NULL,*rbRetTmp = rbRetList;
    
47.     struct resbuf *rbStr;
    
48.     rbStr = acutNewRb(RTSTR);
    
49.     rbStr->resval.rstring = _T("*");
    
50.     rbdxf = acdbEntGetX(ent,rbStr);
    
51.     acutRelRb(rbStr);
    
52.     rbtmp = rbdxf;
    
53.     while (rbtmp != NULL)
    
54.     {
    
55.       if (rbtmp->restype == i)
    
56.       {
    
57.         if (i == -3)
    
58.         {
    
59.           AcDbEntity *pEnt;
    
60.           AcDbObjectId Id;
    
61.           acdbGetObjectId(Id,ent);
    
62.           acdbOpenObject(pEnt,Id,AcDb::kForRead);
    
63.           struct resbuf *rbList = pEnt->xData((ACHAR *)0);
    
64.           pEnt->close();
    
65.           acedRetList(rbList);
    
66.           acutRelRb(rbList);
    
67.           acutRelRb(rbdxf);
    
68.           return (RSRSLT);
    
69.         }
    
70.         else if (((-2 <= i) && (i <= -1)) ||
    
71.           ((330 <= i) && (i <= 369))
    
72.           )
    
73.         {
    
74.           if (bAllDxf)
    
75.           {
    
76.             if (rbRetList != NULL)
    
77.             {
    
78.               rbRetTmp->rbnext = acutBuildList(RTENAME,rbtmp->resval.rlname,RTNONE);
    
79.               rbRetTmp = rbRetTmp->rbnext;
    
80.             }
    
81.             else
    
82.             {
    
83.               rbRetList = acutBuildList(RTENAME,rbtmp->resval.rlname,RTNONE);
    
84.               rbRetTmp = rbRetList;
    
85.             }
    
86.           }
    
87.           else
    
88.           {
    
89.             acedRetName(rbtmp->resval.rlname,RTENAME);
    
90.             acutRelRb(rbdxf);
    
91.             return (RSRSLT);
    
92.           }
    
93.         
    
94.         }
    
95.         else if (((0 <= i) && (i <= 9)) ||
    
96.              ((100 <= i) && (i <= 105)) ||
    
97.              ((300 <= i) && (i <= 329)) ||
    
98.              ((390 <= i) && (i <= 399)) ||
    
99.              ((410 <= i) && (i <= 419)) ||
    
100.              ((430 <= i) && (i <= 437)) ||
     
101.              ((470 <= i) && (i <= 479)) ||
     
102.              (i == 999)
     
103.             )
     
104.         {
     
105.           if (bAllDxf)
     
106.           {
     
107.             if (rbRetList != NULL)
     
108.             {
     
109.               rbRetTmp->rbnext = acutBuildList(RTSTR,rbtmp->resval.rstring,RTNONE);
     
110.               rbRetTmp = rbRetTmp->rbnext;
     
111.             }
     
112.             else
     
113.             {
     
114.               rbRetList = acutBuildList(RTSTR,rbtmp->resval.rstring,RTNONE);
     
115.               rbRetTmp = rbRetList;
     
116.             }
     
117. 
     
118.           }
     
119.           else
     
120.           {
     
121.             acedRetStr(rbtmp->resval.rstring);
     
122.             acutRelRb(rbdxf);
     
123.             return (RSRSLT);
     
124.           }
     
125.         
     
126.         }
     
127.         else if (((10 <= i) && (i <= 37)) ||
     
128.              ((110 <= i) && (i <= 230))
     
129.             )
     
130.         {
     
131.           if (bAllDxf)
     
132.           {
     
133.             if (rbRetList != NULL)
     
134.             {
     
135.               rbRetTmp->rbnext = acutBuildList(RT3DPOINT,rbtmp->resval.rpoint,RTNONE);
     
136.               rbRetTmp = rbRetTmp->rbnext;
     
137.             }
     
138.             else
     
139.             {
     
140.               rbRetList = acutBuildList(RT3DPOINT,rbtmp->resval.rpoint,RTNONE);
     
141.               rbRetTmp = rbRetList;
     
142.             }
     
143. 
     
144.           }
     
145.           else
     
146.           {
     
147.             acedRetPoint(rbtmp->resval.rpoint);
     
148.             acutRelRb(rbdxf);
     
149.             return (RSRSLT);
     
150.           }
     
151.         
     
152.         }
     
153.         else if (((38 <= i) && (i <= 58)) ||
     
154.              ((460 <= i) && (i <= 469))
     
155.             )
     
156.         {
     
157.           if (bAllDxf)
     
158.           {
     
159.             if (rbRetList != NULL)
     
160.             {
     
161.               rbRetTmp->rbnext = acutBuildList(RTREAL,rbtmp->resval.rreal,RTNONE);
     
162.               rbRetTmp = rbRetTmp->rbnext;
     
163.             }
     
164.             else
     
165.             {
     
166.               rbRetList = acutBuildList(RTREAL,rbtmp->resval.rreal,RTNONE);
     
167.               rbRetTmp = rbRetList;
     
168.             }
     
169. 
     
170.           }
     
171.           else
     
172.           {
     
173.             acedRetReal(rbtmp->resval.rreal);
     
174.             acutRelRb(rbdxf);
     
175.             return (RSRSLT);
     
176.           }
     
177.         
     
178.         }
     
179.         else if (((60 <= i) && (i <= 99)) ||
     
180.           ((270 <= i) && (i <= 299)) ||
     
181.           ((370 <= i) && (i <= 389)) ||
     
182.           ((400 <= i) && (i <= 409))
     
183.           )
     
184.         {
     
185.           if (bAllDxf)
     
186.           {
     
187.             if (rbRetList != NULL)
     
188.             {
     
189.               rbRetTmp->rbnext = acutBuildList(RTSHORT,rbtmp->resval.rint,RTNONE);
     
190.               rbRetTmp = rbRetTmp->rbnext;
     
191.             }
     
192.             else
     
193.             {
     
194.               rbRetList = acutBuildList(RTSHORT,rbtmp->resval.rint,RTNONE);
     
195.               rbRetTmp = rbRetList;
     
196.             }
     
197. 
     
198.           }
     
199.           else
     
200.           {
     
201.             acedRetInt(rbtmp->resval.rint);
     
202.             acutRelRb(rbdxf);
     
203.             return (RSRSLT);
     
204.           }
     
205.         
     
206.         }
     
207.         else if (((420 <= i) && (i <= 427)) ||
     
208.           ((440 <= i) && (i <= 459))
     
209.           )
     
210.         {
     
211.           if (bAllDxf)
     
212.           {
     
213.             if (rbRetList != NULL)
     
214.             {
     
215.               rbRetTmp->rbnext = acutBuildList(RTLONG,rbtmp->resval.rlong,RTNONE);
     
216.               rbRetTmp = rbRetTmp->rbnext;
     
217.             }
     
218.             else
     
219.             {
     
220.               rbRetList = acutBuildList(RTLONG,rbtmp->resval.rlong,RTNONE);
     
221.               rbRetTmp = rbRetList;
     
222.             }
     
223. 
     
224.           }
     
225.           else
     
226.           {
     
227.             struct resbuf *rbVar = acutBuildList(RTLONG,rbtmp->resval.rlong,RTNONE);
     
228.             acedRetVal(rbVar);
     
229.             acutRelRb(rbVar);
     
230.             //长整型数无法直接返回
     
231.             //acedRetInt(rbtmp->resval.rlong);
     
232.             acutRelRb(rbdxf);
     
233.             return (RSRSLT);
     
234.           }
     
235. 
     
236.         }
     
237.         if (!bAllDxf)
     
238.         {
     
239.           break;
     
240.         }
     
241.       }
     
242.       
     
243.       
     
244.       rbtmp = rbtmp->rbnext;
     
245.     }
     
246.     if (bAllDxf)
     
247.     {
     
248.       acedRetList(rbRetList);
     
249.       acutRelRb(rbRetList);
     
250.       acutRelRb(rbdxf);
     
251.       return (RSRSLT);
     
252.     }
     
253.       acutRelRb(rbdxf);
     
254.    
     
255.   }
     
256.   else if (rb->restype == RSRSLT)
     
257.   {
     
258.    
     
259.   }
     
260.   else
     
261.   {
     
262.     acdbFail(_T("参数错误!"));
     
263.     return RTERROR;
     
264.   }
     
265.   acedRetNil();
     
266.   
     
267.   return (RSRSLT);
     
268. }

//提取DXF值 By Gu_xl<br /> //调用方式<br /> //(GetDxf ename code [AllFlag])<br /> //   ename 图元名 <br /> //   code 组码 <br /> //   AllFlag 可选参数，提供且不为nil时返回所有相同组码值<br /> static int ads_GetDxf (void)<br /> {<br />   struct resbuf *rb = acedGetArgs();<br />   struct resbuf *rbdxf=NULL,*rbtmp;<br />   if (rb == NULL)<br />   {<br />     acdbFail(_T("参数太少!"));<br />     return RTERROR;<br />   }<br />   if (rb->restype == RTENAME)<br />   {<br />     ads_name ent;<br />     ads_name_set(rb->resval.rlname,ent);<br />     if (rb->rbnext == NULL)<br />     {<br />       acdbFail(_T("参数太少!"));<br />       return RTERROR;<br />     }<br />     rb = rb->rbnext;<br />     if (rb->restype != RTSHORT)<br />     {<br />       acdbFail(_T("参数错误!"));<br />       return RTERROR;<br />     }<br />     int i = rb->resval.rint;<br />     bool bAllDxf = false;<br />     if (rb->rbnext != NULL)<br />     {<br />       rb = rb->rbnext;<br />       if (rb->restype != RTNIL)<br />       {<br />         bAllDxf = true;<br />       }<br />       if (rb->rbnext != NULL)<br />       {<br />       acdbFail(_T("参数太多!"));<br />       return RTERROR;<br />       }<br />     }<br />     struct resbuf *rbRetList = NULL,*rbRetTmp = rbRetList;<br />     struct resbuf *rbStr;<br />     rbStr = acutNewRb(RTSTR);<br />     rbStr->resval.rstring = _T("*");<br />     rbdxf = acdbEntGetX(ent,rbStr);<br />     acutRelRb(rbStr);<br />     rbtmp = rbdxf;<br />     while (rbtmp != NULL)<br />     {<br />       if (rbtmp->restype == i)<br />       {<br />         if (i == -3)<br />         {<br />           AcDbEntity *pEnt;<br />           AcDbObjectId Id;<br />           acdbGetObjectId(Id,ent);<br />           acdbOpenObject(pEnt,Id,AcDb::kForRead);<br />           struct resbuf *rbList = pEnt->xData((ACHAR *)0);<br />           pEnt->close();<br />           acedRetList(rbList);<br />           acutRelRb(rbList);<br />           acutRelRb(rbdxf);<br />           return (RSRSLT);<br />         }<br />         else if (((-2 <= i) && (i <= -1)) ||<br />           ((330 <= i) && (i <= 369))<br />           )<br />         {<br />           if (bAllDxf)<br />           {<br />             if (rbRetList != NULL)<br />             {<br />               rbRetTmp->rbnext = acutBuildList(RTENAME,rbtmp->resval.rlname,RTNONE);<br />               rbRetTmp = rbRetTmp->rbnext;<br />             } <br />             else<br />             {<br />               rbRetList = acutBuildList(RTENAME,rbtmp->resval.rlname,RTNONE);<br />               rbRetTmp = rbRetList;<br />             }<br />           }<br />           else<br />           {<br />             acedRetName(rbtmp->resval.rlname,RTENAME);<br />             acutRelRb(rbdxf);<br />             return (RSRSLT);<br />           }<br />         <br />         } <br />         else if (((0 <= i) && (i <= 9)) ||<br />              ((100 <= i) && (i <= 105)) ||<br />              ((300 <= i) && (i <= 329)) ||<br />              ((390 <= i) && (i <= 399)) ||<br />              ((410 <= i) && (i <= 419)) ||<br />              ((430 <= i) && (i <= 437)) ||<br />              ((470 <= i) && (i <= 479)) ||<br />              (i == 999)<br />             )<br />         {<br />           if (bAllDxf)<br />           {<br />             if (rbRetList != NULL)<br />             {<br />               rbRetTmp->rbnext = acutBuildList(RTSTR,rbtmp->resval.rstring,RTNONE);<br />               rbRetTmp = rbRetTmp->rbnext;<br />             } <br />             else<br />             {<br />               rbRetList = acutBuildList(RTSTR,rbtmp->resval.rstring,RTNONE);<br />               rbRetTmp = rbRetList;<br />             }<br /> <br />           }<br />           else<br />           {<br />             acedRetStr(rbtmp->resval.rstring);<br />             acutRelRb(rbdxf);<br />             return (RSRSLT);<br />           }<br />         <br />         } <br />         else if (((10 <= i) && (i <= 37)) ||<br />              ((110 <= i) && (i <= 230))<br />             )<br />         {<br />           if (bAllDxf)<br />           {<br />             if (rbRetList != NULL)<br />             {<br />               rbRetTmp->rbnext = acutBuildList(RT3DPOINT,rbtmp->resval.rpoint,RTNONE);<br />               rbRetTmp = rbRetTmp->rbnext;<br />             } <br />             else<br />             {<br />               rbRetList = acutBuildList(RT3DPOINT,rbtmp->resval.rpoint,RTNONE);<br />               rbRetTmp = rbRetList;<br />             }<br /> <br />           }<br />           else<br />           {<br />             acedRetPoint(rbtmp->resval.rpoint);<br />             acutRelRb(rbdxf);<br />             return (RSRSLT);<br />           }<br />         <br />         }<br />         else if (((38 <= i) && (i <= 58)) ||<br />              ((460 <= i) && (i <= 469))<br />             )<br />         {<br />           if (bAllDxf)<br />           {<br />             if (rbRetList != NULL)<br />             {<br />               rbRetTmp->rbnext = acutBuildList(RTREAL,rbtmp->resval.rreal,RTNONE);<br />               rbRetTmp = rbRetTmp->rbnext;<br />             } <br />             else<br />             {<br />               rbRetList = acutBuildList(RTREAL,rbtmp->resval.rreal,RTNONE);<br />               rbRetTmp = rbRetList;<br />             }<br /> <br />           }<br />           else<br />           {<br />             acedRetReal(rbtmp->resval.rreal);<br />             acutRelRb(rbdxf);<br />             return (RSRSLT);<br />           }<br />         <br />         }<br />         else if (((60 <= i) && (i <= 99)) ||<br />           ((270 <= i) && (i <= 299)) ||<br />           ((370 <= i) && (i <= 389)) ||<br />           ((400 <= i) && (i <= 409)) <br />           )<br />         {<br />           if (bAllDxf)<br />           {<br />             if (rbRetList != NULL)<br />             {<br />               rbRetTmp->rbnext = acutBuildList(RTSHORT,rbtmp->resval.rint,RTNONE);<br />               rbRetTmp = rbRetTmp->rbnext;<br />             } <br />             else<br />             {<br />               rbRetList = acutBuildList(RTSHORT,rbtmp->resval.rint,RTNONE);<br />               rbRetTmp = rbRetList;<br />             }<br /> <br />           }<br />           else<br />           {<br />             acedRetInt(rbtmp->resval.rint);<br />             acutRelRb(rbdxf);<br />             return (RSRSLT);<br />           }<br />         <br />         } <br />         else if (((420 <= i) && (i <= 427)) ||<br />           ((440 <= i) && (i <= 459))<br />           )<br />         {<br />           if (bAllDxf)<br />           {<br />             if (rbRetList != NULL)<br />             {<br />               rbRetTmp->rbnext = acutBuildList(RTLONG,rbtmp->resval.rlong,RTNONE);<br />               rbRetTmp = rbRetTmp->rbnext;<br />             } <br />             else<br />             {<br />               rbRetList = acutBuildList(RTLONG,rbtmp->resval.rlong,RTNONE);<br />               rbRetTmp = rbRetList;<br />             }<br /> <br />           }<br />           else<br />           {<br />             struct resbuf *rbVar = acutBuildList(RTLONG,rbtmp->resval.rlong,RTNONE);<br />             acedRetVal(rbVar);<br />             acutRelRb(rbVar);<br />             //长整型数无法直接返回<br />             //acedRetInt(rbtmp->resval.rlong);<br />             acutRelRb(rbdxf);<br />             return (RSRSLT);<br />           }<br /> <br />         }<br />         if (!bAllDxf)<br />         {<br />           break;<br />         }<br />       }<br />       <br />       <br />       rbtmp = rbtmp->rbnext;<br />     }<br />     if (bAllDxf)<br />     {<br />       acedRetList(rbRetList);<br />       acutRelRb(rbRetList);<br />       acutRelRb(rbdxf);<br />       return (RSRSLT);<br />     } <br />       acutRelRb(rbdxf);<br />     <br />   }<br />   else if (rb->restype == RSRSLT)<br />   {<br />     <br />   } <br />   else<br />   {<br />     acdbFail(_T("参数错误!"));<br />     return RTERROR;<br />   }<br />   acedRetNil();<br />   <br />   return (RSRSLT);<br /> }

st788796

G版 ARX 水平提高神速啊!:lol

牢固

st788796 发表于 2013-12-11 11:09
G版 ARX 水平提高神速啊!

过奖了，我仅仅是刚入了个门，差老远了！

st788796

牢固 发表于 2013-12-11 11:11
过奖了，我仅仅是刚入了个门，差老远了！

我只在门外面看{:soso_e112:}

moon_sky

牛B的版主，应该怎么调用这个函数呢

moon_sky

牛B的版主，应该怎么调用这个函数呢

moon_sky

需要用什么编译吗