使用全局函数创建一个简单实体-圆，返回圆的实体数据链表，圆心和半径由用户输入

admin

1. 定义一个LISP函数，功能：使用全局函数创建一个简单实体-圆，返回圆的实体数据链表，圆心和半径由用户输入；
2. static int ads采用circle()  
3. {  
4.         ads采用point pt;  
5.         if(acedGetPoint(NULL,采用T("\n选择圆心"),pt) != RTNORM)  
6.         {  
7.                 return 0;  
8.         }  
9.         ads采用real realNum;  
10.         if(acedGetReal(采用T("\n输入半径"),&realNum)!= RTNORM)  
11.         {  
12.                 return 0;  
13.         }  
14.         ////垂直平面法向量  
15.         AcGeVector3d vec(0,0,1);  
16.         ////圆心  
17.         AcGePoint3d ptCenter(pt[X],pt[Y],pt[Z]);  
18.         AcDbCircle* pCircle = new AcDbCircle(ptCenter,vec,realNum);  
20.         LoadEntity(pCircle);  
22.         ////打印出类型为字符串的接收参数  
23.         resbuf* pInput = acedGetArgs();  
24.         CString str;  
25.         while (pInput != NULL)  
26.         {  
27.                 if (pInput->resval.rstring != NULL)  
28.                 {  
29.                         acutPrintf(pInput->resval.rstring);  
30.                         acutPrintf(采用T("\n"));  
31.                 }  
32.                 pInput = pInput->rbnext;  
33.         }  
34.         ////构造圆形实体  
35.         struct resbuf* rb ;  
36.         rb = acutBuildList(  
37.                 RTDXF0,采用T("CIRCLE"),  
38.                 62,1,//1 == RED  
39.                 10,ptCenter,  
40.                 40,realNum,//radius  
41.                 0);  
42.         acedRetList(rb);  
43.         return RTNORM;  
44. }

复制代码