利用ARX的重定义函数，给Lisp定义根据不同的参数画圆的函数

Love-Lisp

刚学arx不久，拼凑了一个画圆的函数传递给Lisp调用，Lisp可以根据参数的不同，使用不同的方法绘制园:

1. //3d点转2d点
   
2. AcGePoint2d Pt3dTo2d(AcGePoint3d pt)
   
3. {
   
4.   AcGePoint2d ptTemp(pt.x, pt.y);
   
5.   return ptTemp;
   
6. }
   
7. //对象添加到模型空间
   
8. AcDbObjectId PostToModelSpace(AcDbEntity* pEnt)
   
9. {
   
10.   AcDbBlockTable *pBlockTable;
    
11.   acdbHostApplicationServices()->workingDatabase()
    
12.     ->getBlockTable(pBlockTable, AcDb::kForRead);
    
13.   /*acdbHostApplicationServices()->workingDatabase()
    
14.     ->getSymbolTable(pBlockTable, AcDb::kForRead);*/
    
15.   AcDbBlockTableRecord *pBlockTableRecord;
    
16.   pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord,AcDb::kForWrite);
    
17.   AcDbObjectId entId;
    
18.   pBlockTableRecord->appendAcDbEntity(entId, pEnt);
    
19.   pBlockTable->close();
    
20.   pBlockTableRecord->close();
    
21.   pEnt->close();
    
22.   return entId;
    
23. }
    
24. //圆心、所在平面向量、半径创建圆
    
25. AcDbObjectId CreateCircle(AcGePoint3d ptCenter,  AcGeVector3d vec, double radius)
    
26. {
    
27.   AcDbCircle *pCircle = new AcDbCircle(ptCenter, vec, radius);
    
28.   // 将实体添加到图形数据库
    
29.   AcDbObjectId circleId;
    
30.   circleId = PostToModelSpace(pCircle);
    
31.   return circleId;
    
32. }
    
33. // 圆心、半径创建圆
    
34. AcDbObjectId CreateCircle(AcGePoint3d ptCenter, double radius)
    
35. {
    
36.   AcGeVector3d vec(0, 0, 1);
    
37.   return CreateCircle(ptCenter, vec, radius);
    
38. }
    
39. 
    
40. //两点法创建圆
    
41. AcDbObjectId CreateCircle(AcGePoint2d pt1, AcGePoint2d pt2)
    
42. {
    
43.   // 计算圆心和半径
    
44.   AcGePoint2d pt = MiddlePoint(pt1, pt2);
    
45.   AcGePoint3d ptCenter(pt[X], pt[Y], 0); // 圆心
    
46.   double radius = pt1.distanceTo(pt2) / 2;
    
47.   // 创建圆
    
48.   return CreateCircle(ptCenter, radius);
    
49. }
    
50. //几何类法三点画圆
    
51. AcDbObjectId CreateCircle(AcGePoint2d pt1, AcGePoint2d pt2,  AcGePoint2d pt3)
    
52. {
    
53.   // 使用几何类
    
54.   AcGeCircArc2d geArc(pt1, pt2, pt3);
    
55.   AcGePoint3d ptCenter(geArc.center().x, geArc.center().y, 0);
    
56.   return CreateCircle(ptCenter, geArc.radius());
    
57. }
    
58. 
    
59. //定义外部Lisp函数 addcircle
    
60. //绘制圆
    
61. //圆心、所在平面向量、半径创建圆
    
62. // 圆心、半径创建圆
    
63. //两点法创建圆
    
64. //三点法创建圆
    
65. static int ads_addcircle()
    
66. {
    
67.    struct resbuf *pArgs =acedGetArgs () ;
    
68.    if (pArgs == NULL)
    
69.    {
    
70.      acdbFail(_T("\n缺少参数"));
    
71.      return RTERROR;
    
72.    }
    
73.     AcGePoint3d p0,p1,p2;
    
74.   ads_real rad;
    
75.   ads_name ent;
    
76.   AcDbObjectId CircleId;
    
77.   if (!(pArgs->restype == RTPOINT || pArgs->restype == RT3DPOINT))
    
78.   {
    
79.     acdbFail(_T("\n参数错误"));
    
80.     return RTERROR;
    
81. 
    
82.   }
    
83.   p0 = asPnt3d(pArgs->resval.rpoint) ;
    
84.     pArgs = pArgs->rbnext;
    
85.     if (pArgs == NULL)
    
86.    {
    
87.      acdbFail(_T("\n缺少参数"));
    
88.      return RTERROR;
    
89.    }
    
90.   if (pArgs->restype == RTREAL || pArgs->restype == RTLONG || pArgs->restype == RTSHORT)
    
91.   {
    
92.     switch (pArgs->restype)
    
93.     {
    
94.     case RTREAL:
    
95.       rad = pArgs->resval.rreal;
    
96.       break;
    
97.     case RTLONG:
    
98.       rad = pArgs->resval.rlong;
    
99.       break;
    
100.     case RTSHORT:
     
101.       rad = pArgs->resval.rint;
     
102.       break;
     
103.     default:
     
104.       break;
     
105.     }
     
106.     if (pArgs->rbnext != NULL)
     
107.     {
     
108.       acdbFail(_T("\n参数太多"));
     
109.       return RTERROR;
     
110.     }
     
111.     //“圆心、半径”法创建一个圆
     
112.     CircleId = CreateCircle(p0, rad);
     
113.     acdbGetAdsName(ent,CircleId);
     
114.     acedRetName(ent,RTENAME);
     
115.         return (RSRSLT) ;
     
116.   }
     
117.   if (!(pArgs->restype == RTPOINT || pArgs->restype == RT3DPOINT))
     
118.   {
     
119.     acdbFail(_T("\n参数错误"));
     
120.     return RTERROR;
     
121. 
     
122.   }
     
123.   p1 = asPnt3d(pArgs->resval.rpoint) ;
     
124.   pArgs = pArgs->rbnext;
     
125.   if (pArgs == NULL)
     
126.   {
     
127.     // 两点法创建一个圆
     
128.        CircleId =  CreateCircle(Pt3dTo2d (p0), Pt3dTo2d (p1));
     
129.      acdbGetAdsName(ent,CircleId);
     
130.      acedRetName(ent,RTENAME);
     
131.      return (RSRSLT) ;
     
132.   }
     
133.   if (pArgs->restype == RTPOINT || pArgs->restype == RT3DPOINT)
     
134.   {
     
135.   p2 = asPnt3d(pArgs->resval.rpoint) ;
     
136.   if (pArgs->rbnext != NULL)
     
137.   {
     
138.     acdbFail(_T("\n参数太多"));
     
139.     return RTERROR;
     
140.   }
     
141.   
     
142.    // 三点法创建一个圆
     
143.    CircleId = CreateCircle(Pt3dTo2d (p0), Pt3dTo2d (p1), Pt3dTo2d (p2));
     
144.    acdbGetAdsName(ent,CircleId);
     
145.    acedRetName(ent,RTENAME);
     
146.    return (RSRSLT) ;
     
147. 
     
148.   }
     
149.   else if (pArgs->restype == RTREAL || pArgs->restype == RTLONG || pArgs->restype == RTSHORT)
     
150.   {
     
151.     switch (pArgs->restype)
     
152.     {
     
153.     case RTREAL:
     
154.       rad = pArgs->resval.rreal;
     
155.       break;
     
156.     case RTLONG:
     
157.       rad = pArgs->resval.rlong;
     
158.       break;
     
159.     case RTSHORT:
     
160.       rad = pArgs->resval.rint;
     
161.       break;
     
162.     default:
     
163.       break;
     
164.     }
     
165.     if (pArgs->rbnext != NULL)
     
166.     {
     
167.       acdbFail(_T("\n参数太多"));
     
168.       return RTERROR;
     
169.     }
     
170.     //圆心、所在平面向量、半径创建圆
     
171.     AcGeVector3d vec(p1[X],p1[Y],p1[Z]);
     
172.     vec.normalize();
     
173.     CircleId = CreateCircle(p0, vec,rad);
     
174.    
     
175.     acdbGetAdsName(ent,CircleId);
     
176.     acedRetName(ent,RTENAME);
     
177.      return (RSRSLT) ;
     
178. 
     
179.   }
     
180.   else
     
181.   {
     
182.     acdbFail(_T("\n参数错误"));
     
183.     return RTERROR;
     
184.   }
     
185. }
     

//3d点转2d点<br /> AcGePoint2d Pt3dTo2d(AcGePoint3d pt)<br /> {<br />   AcGePoint2d ptTemp(pt.x, pt.y);<br />   return ptTemp;<br /> }<br /> //对象添加到模型空间<br /> AcDbObjectId PostToModelSpace(AcDbEntity* pEnt)<br /> {<br />   AcDbBlockTable *pBlockTable;<br />   acdbHostApplicationServices()->workingDatabase()<br />     ->getBlockTable(pBlockTable, AcDb::kForRead);<br />   /*acdbHostApplicationServices()->workingDatabase()<br />     ->getSymbolTable(pBlockTable, AcDb::kForRead);*/<br />   AcDbBlockTableRecord *pBlockTableRecord;<br />   pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord,AcDb::kForWrite);<br />   AcDbObjectId entId;<br />   pBlockTableRecord->appendAcDbEntity(entId, pEnt);<br />   pBlockTable->close();<br />   pBlockTableRecord->close();<br />   pEnt->close();<br />   return entId;<br /> }<br /> //圆心、所在平面向量、半径创建圆<br /> AcDbObjectId CreateCircle(AcGePoint3d ptCenter,  AcGeVector3d vec, double radius)<br /> {<br />   AcDbCircle *pCircle = new AcDbCircle(ptCenter, vec, radius);<br />   // 将实体添加到图形数据库<br />   AcDbObjectId circleId;<br />   circleId = PostToModelSpace(pCircle);<br />   return circleId;<br /> }<br /> // 圆心、半径创建圆<br /> AcDbObjectId CreateCircle(AcGePoint3d ptCenter, double radius)<br /> {<br />   AcGeVector3d vec(0, 0, 1);<br />   return CreateCircle(ptCenter, vec, radius);<br /> }<br /> <br /> //两点法创建圆<br /> AcDbObjectId CreateCircle(AcGePoint2d pt1, AcGePoint2d pt2)<br /> {<br />   // 计算圆心和半径<br />   AcGePoint2d pt = MiddlePoint(pt1, pt2);<br />   AcGePoint3d ptCenter(pt[X], pt[Y], 0); // 圆心<br />   double radius = pt1.distanceTo(pt2) / 2;<br />   // 创建圆<br />   return CreateCircle(ptCenter, radius);<br /> }<br /> //几何类法三点画圆<br /> AcDbObjectId CreateCircle(AcGePoint2d pt1, AcGePoint2d pt2,  AcGePoint2d pt3)<br /> {<br />   // 使用几何类<br />   AcGeCircArc2d geArc(pt1, pt2, pt3);<br />   AcGePoint3d ptCenter(geArc.center().x, geArc.center().y, 0);<br />   return CreateCircle(ptCenter, geArc.radius());<br /> }<br /> <br /> //定义外部Lisp函数 addcircle<br /> //绘制圆<br /> //圆心、所在平面向量、半径创建圆<br /> // 圆心、半径创建圆<br /> //两点法创建圆<br /> //三点法创建圆<br /> static int ads_addcircle()<br /> {<br />    struct resbuf *pArgs =acedGetArgs () ;<br />    if (pArgs == NULL)<br />    {<br />      acdbFail(_T("\n缺少参数"));<br />      return RTERROR;<br />    }<br />     AcGePoint3d p0,p1,p2;<br />   ads_real rad;<br />   ads_name ent;<br />   AcDbObjectId CircleId;<br />   if (!(pArgs->restype == RTPOINT || pArgs->restype == RT3DPOINT))<br />   {<br />     acdbFail(_T("\n参数错误"));<br />     return RTERROR;<br /> <br />   }<br />   p0 = asPnt3d(pArgs->resval.rpoint) ;<br />     pArgs = pArgs->rbnext;<br />     if (pArgs == NULL)<br />    {<br />      acdbFail(_T("\n缺少参数"));<br />      return RTERROR;<br />    }<br />   if (pArgs->restype == RTREAL || pArgs->restype == RTLONG || pArgs->restype == RTSHORT)<br />   {<br />     switch (pArgs->restype)<br />     {<br />     case RTREAL:<br />       rad = pArgs->resval.rreal;<br />       break;<br />     case RTLONG:<br />       rad = pArgs->resval.rlong;<br />       break;<br />     case RTSHORT:<br />       rad = pArgs->resval.rint;<br />       break;<br />     default:<br />       break;<br />     }<br />     if (pArgs->rbnext != NULL)<br />     {<br />       acdbFail(_T("\n参数太多"));<br />       return RTERROR;<br />     }<br />     //“圆心、半径”法创建一个圆<br />     CircleId = CreateCircle(p0, rad);<br />     acdbGetAdsName(ent,CircleId);<br />     acedRetName(ent,RTENAME);<br />         return (RSRSLT) ;<br />   }<br />   if (!(pArgs->restype == RTPOINT || pArgs->restype == RT3DPOINT))<br />   {<br />     acdbFail(_T("\n参数错误"));<br />     return RTERROR;<br /> <br />   }<br />   p1 = asPnt3d(pArgs->resval.rpoint) ;<br />   pArgs = pArgs->rbnext;<br />   if (pArgs == NULL)<br />   {<br />     // 两点法创建一个圆<br />        CircleId =  CreateCircle(Pt3dTo2d (p0), Pt3dTo2d (p1));<br />      acdbGetAdsName(ent,CircleId);<br />      acedRetName(ent,RTENAME);<br />      return (RSRSLT) ;<br />   }<br />   if (pArgs->restype == RTPOINT || pArgs->restype == RT3DPOINT)<br />   {<br />   p2 = asPnt3d(pArgs->resval.rpoint) ;<br />   if (pArgs->rbnext != NULL)<br />   {<br />     acdbFail(_T("\n参数太多"));<br />     return RTERROR;<br />   }<br />   <br />    // 三点法创建一个圆<br />    CircleId = CreateCircle(Pt3dTo2d (p0), Pt3dTo2d (p1), Pt3dTo2d (p2));<br />    acdbGetAdsName(ent,CircleId);<br />    acedRetName(ent,RTENAME);<br />    return (RSRSLT) ;<br /> <br />   }<br />   else if (pArgs->restype == RTREAL || pArgs->restype == RTLONG || pArgs->restype == RTSHORT)<br />   {<br />     switch (pArgs->restype)<br />     {<br />     case RTREAL:<br />       rad = pArgs->resval.rreal;<br />       break;<br />     case RTLONG:<br />       rad = pArgs->resval.rlong;<br />       break;<br />     case RTSHORT:<br />       rad = pArgs->resval.rint;<br />       break;<br />     default:<br />       break;<br />     }<br />     if (pArgs->rbnext != NULL)<br />     {<br />       acdbFail(_T("\n参数太多"));<br />       return RTERROR;<br />     }<br />     //圆心、所在平面向量、半径创建圆<br />     AcGeVector3d vec(p1[X],p1[Y],p1[Z]);<br />     vec.normalize();<br />     CircleId = CreateCircle(p0, vec,rad);<br />     <br />     acdbGetAdsName(ent,CircleId);<br />     acedRetName(ent,RTENAME);<br />      return (RSRSLT) ;<br /> <br />   } <br />   else<br />   {<br />     acdbFail(_T("\n参数错误"));<br />     return RTERROR;<br />   }<br /> }<br />

在lisp中可以使用如下四种方式调用:

2. 
   
3. ;;lisp测试:
   
4. ;;圆心、所在平面向量、半径创建圆
   
5. (addcircle (setq cp (getpoint "\n圆心:"))
   
6.      '(0 0 1) ;_ 法线
   
7.      (getdist cp "\n半径:")
   
8. )
   
9. ;;圆心、半径创建圆
   
10. (addcircle (setq cp (getpoint "\n圆心:")) (getdist cp "\n半径:"))
    
11. ;;两点法创建圆
    
12. (addcircle (setq p1 (getpoint "\n第一点:")) (getpoint p1 "\n第二点:"))
    
13. ;;三点法画圆
    
14. (addcircle (setq p1 (getpoint "\n第一点:")) (getpoint p1 "\n第二点:") (getpoint p1 "\n第三点:"))
    

<br /> ;;lisp测试:<br /> ;;圆心、所在平面向量、半径创建圆<br /> (addcircle (setq cp (getpoint "\n圆心:"))<br />      '(0 0 1) ;_ 法线<br />      (getdist cp "\n半径:")<br /> )<br /> ;;圆心、半径创建圆<br /> (addcircle (setq cp (getpoint "\n圆心:")) (getdist cp "\n半径:"))<br /> ;;两点法创建圆<br /> (addcircle (setq p1 (getpoint "\n第一点:")) (getpoint p1 "\n第二点:"))<br /> ;;三点法画圆<br /> (addcircle (setq p1 (getpoint "\n第一点:")) (getpoint p1 "\n第二点:") (getpoint p1 "\n第三点:"))<br />

newer

顶楼主。希望看到更多精彩的代码。