OBJECT ARX 源码

admin

1. /加载一个实体到数据库，返回实体ID
3. static AcDbObjectId LoadEntity(AcDbEntity* entity)
4. {
7. AcDbBlockTable* pBlockTable;
8. acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable,AcDb::kForRead);
11. AcDbBlockTableRecord* pBlockTableRecord;
12. pBlockTable->getAt(ACDB采用MODEL采用SPACE,pBlockTableRecord,AcDb::kForWrite);
15. AcDbObjectId Id;
16. pBlockTableRecord->appendAcDbEntity(Id,entity);
19. pBlockTable->close();
22. pBlockTableRecord->close();
25. entity->close();
26. return Id;
27. }
33. //弹出颜色选择对话框，让用户选择颜色，默认选择的是当前层的颜色
35. static int SelColor()
36. {
37. ////先获得当前层的ID
38. AcDbObjectId layerId = acdbHostApplicationServices()->workingDatabase()->clayer();
39. ////然后获得当前层指针
40. AcDbLayerTableRecordPointer ptLayer(layerId,AcDb::OpenMode::kForRead);
41. ////获得当前层的颜色
42. AcCmColor oldColor = ptLayer->color();
43. int nCurColor = oldColor.colorIndex();//当前层的颜色
44. int nNewColor = oldColor.colorIndex();//用户选择的颜色
47. if (acedSetColorDialog(nNewColor,Adesk::kFalse,nCurColor))
48. {
51. return nNewColor;
52. }
53. else
54. {
57. return nCurColor;
58. }
59. }
62. //第一题：定义一个全局命令，功能：使用全局函数创建一个简单实体-直线，顶点由用户输入；
64. static void TESTlineCmd()
65. {
68. ads采用point inputStart;
69. ads采用point inputEnd;
72. AcGePoint3d ptStart;
73. AcGePoint3d ptEnd;
76. ////用户输入要画的坐标
77. if (acedGetPoint(NULL,采用T("\nstart point"),inputStart) != RTNORM)
78. {
81. return;
82. }
83. ptStart[X] = inputStart[X];
84. ptStart[Y] = inputStart[Y];
85. ptStart[Z] = inputStart[Z];
88. if (acedGetPoint(NULL,采用T("\nend point"),inputEnd) != RTNORM)
89. {
92. return;
93. }
94. ptEnd[X] = inputEnd[X];
95. ptEnd[Y] = inputEnd[Y];
96. ptEnd[Z] = inputEnd[Z];
99. AcDbLine* pLine = new AcDbLine(ptStart,ptEnd);
102. int colorIndex = SelColor();
103. AcCmColor color;
104. color.setColorIndex(colorIndex);
105. pLine->setColor(color);
108. LoadEntity(pLine);
109. }
114. //第二题：定义一个LISP函数，功能：使用全局函数创建一个简单实体-圆，返回圆的实体数据链表，圆心和半径由用户输入；
116. static int ads采用circle()
117. {
120. ads采用point pt;
121. if(acedGetPoint(NULL,采用T("\n选择圆心"),pt) != RTNORM)
122. {
125. return 0;
126. }
129. ads采用real realNum;
130. if(acedGetReal(采用T("\n输入半径"),&realNum)!= RTNORM)
131. {
134. return 0;
135. }
138. ////垂直平面法向量
139. AcGeVector3d vec(0,0,1);
140. ////圆心
141. AcGePoint3d ptCenter(pt[X],pt[Y],pt[Z]);
144. AcDbCircle* pCircle = new AcDbCircle(ptCenter,vec,realNum);
147. LoadEntity(pCircle);
150. ////打印出类型为字符串的接收参数
151. resbuf* pInput = acedGetArgs();
152. CString str;
153. while (pInput != NULL)
154. {
157. if (pInput->resval.rstring != NULL)
158. {
161. acutPrintf(pInput->resval.rstring);
162. acutPrintf(采用T("\n"));
163. }
164. pInput = pInput->rbnext;
165. }
168. ////构造圆形实体
169. struct resbuf* rb ;
170. rb = acutBuildList(
171. RTDXF0,采用T("CIRCLE"),
172. 62,1,//1 == RED
173. 10,ptCenter,
174. 40,realNum,//radius
175. 0);
178. acedRetList(rb);
181. return RTNORM;
182. }////函数在调用的时候需要加上括号 (func "param")
183. //第三题；输入三点，以中间点为顶点，把旁边两条线做圆角，半径用户输入
185. static void TESTcomplexentcmd()
186. {
189. ads采用point pt1;
190. ads采用point pt2;
191. ads采用point pt3;
192. ads采用real r;
195. if (acedGetPoint(NULL,采用T("\n输入第一点"),pt1) != RTNORM)
196. {
197. return;
198. }
201. if (acedGetPoint(NULL,采用T("\n输入第二点"),pt2) != RTNORM)
202. {
203. return;
204. }
207. if (acedGetPoint(NULL,采用T("\n输入第三点"),pt3) != RTNORM)
208. {
209. return;
210. }
213. if (acedGetReal(采用T("\n输入内切圆半径"),&r) != RTNORM)
214. {
215. return;
216. }
219. ////坐标维度转化
220. AcGePoint3d pt3d1 = asPnt3d(pt1);
221. AcGePoint3d pt3d2 = asPnt3d(pt2);
222. AcGePoint3d pt3d3 = asPnt3d(pt3);
225. ////构造两条直线计算顶点到切点的距离
226. AcDbLine line1(pt3d2,pt3d1);
227. AcDbLine line2(pt3d2,pt3d3);
230. ////得到以PT2为顶点的两个向量
231. AcGeVector3d v1(pt1[X]-pt2[X],pt1[Y]-pt2[Y],pt1[Z] - pt2[Z]);
232. AcGeVector3d v2(pt3[X]-pt2[X],pt3[Y] - pt2[Y],pt3[Z] - pt2[Z]);
233. AcGeVector3d v3(0,0,1);
236. double PI = 3.1415926536;
237. ////计算两个向量的夹角
240. double angle = v1.angleTo(v2,v3);
241. double angle1 = angle > PI ? 2 * PI - angle : angle;
244. ////计算切点到顶点距离
245. double dist = r / tan(angle1 / 2);
248. ////切点1
249. AcGePoint3d ptQ1;
250. ////切点2
251. AcGePoint3d ptQ2;
254. ////找到切点
255. line1.getPointAtDist(dist,ptQ1);
256. line2.getPointAtDist(dist,ptQ2);
259. ////求出bulge值（是圆心角1/4的正切值 - - ,之前当成正切值的四分之一了 - -!!!)
260. double bulge;
261. bulge = tan((PI - angle1) / 4);
262. if(angle > 0 && angle <= PI)
263. {
264. bulge = - bulge;
265. }
270. AcDbPolyline* pl = new AcDbPolyline();
271. AcGePoint2d pt2d1(pt3d1[X],pt3d1[Y]);
272. AcGePoint2d pt2dq1(ptQ1[X],ptQ1[Y]);
273. AcGePoint2d pt2dq2(ptQ2[X],ptQ2[Y]);
274. AcGePoint2d pt2d3(pt3d3[X],pt3d3[Y]);
277. pl->addVertexAt(0,pt2d1,0);
278. pl->addVertexAt(1,pt2dq1,bulge);
279. pl->addVertexAt(2,pt2dq2,0);
280. pl->addVertexAt(3,pt2d3,0);
283. LoadEntity(pl);
288. CString out;
289. out.Format(采用T("\nangle:%.2f,bulge:%.2f,\ndist:%.2f\n,pt[z]:%.2f,%.2f,%.2f"),angle,bulge,dist,pt1[Z],pt2[Z],pt3[Z]);
290. acutPrintf(out);
293. }
297. //第四题：定义一个全局命令，功能：使用类库创建一个块表记录，并插入块；
299. static void TESTaddblkcmd()
300. {
301. ////根据用户的输入设置块表记录的名称
302. CString blkName;
303. if (acedGetString(Adesk::kFalse,采用T("\n输入块名称"),blkName.GetBuffer(20)) != RTNORM)
304. {
305. return;
306. }
309. ////用完getBuffer要及时release
310. blkName.ReleaseBuffer();
313. AcDbBlockTable* pBlkTbl;
314. acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlkTbl,AcDb::kForWrite);
317. AcDbObjectId rcdId ;
320. ////如果没有，添加新的
321. if (!pBlkTbl->has(blkName))
322. {
323. ////创建新块
324. AcDbBlockTableRecord* pBlkTblRcd;
325. pBlkTblRcd = new AcDbBlockTableRecord();
326. pBlkTblRcd->setName(blkName);
329. ////将块表记录添加到块表中，设置ID
330. pBlkTbl->add(rcdId,pBlkTblRcd);
333. ////向块表记录中添加实体
334. AcGePoint3d ptStart(-10,0,0),ptEnd(10,0,0);
335. AcDbLine* pLine1 = new AcDbLine(ptStart,ptEnd);
336. ptStart.set(0,-10,0);
337. ptEnd.set(0,10,0);
338. AcDbLine *pLine2 = new AcDbLine(ptStart,ptEnd);
341. AcGeVector3d vecNormal(0,0,1);
342. AcDbCircle *pCircle = new AcDbCircle(AcGePoint3d::kOrigin,vecNormal,6);
343. AcDbObjectId entId;
344. pBlkTblRcd->appendAcDbEntity(entId,pLine1);
345. pBlkTblRcd->appendAcDbEntity(entId,pLine2);
346. pBlkTblRcd->appendAcDbEntity(entId,pCircle);
347. ////关闭实体块表记录
350. pLine1->close();
351. pLine2->close();
352. pCircle->close();
353. pBlkTblRcd->close();
356. }////如果已经有了，那就根据名字读出RECORDID,插入块参照时会用到
357. else
358. {
359. pBlkTbl->getAt(blkName,rcdId,false);////以读的方式获取
360. }
363. ////在和用户交互之前，需要关闭块表，否则容易出错
364. pBlkTbl->close();
365. ////插入块
368. ////获得用户输入的块参照的插入点
369. ads采用point pt;
370. if(acedGetPoint(NULL,采用T("\n输入块参照的插入点"),pt) != RTNORM)
371. {
372. pBlkTbl->close();
373. return;
374. }
375. AcGePoint3d ptInsert = asPnt3d(pt);
378. ////创建块参照
379. AcDbBlockReference* pBlkRef = new AcDbBlockReference(ptInsert,rcdId);
382. ////将块参照添加到模型空间
385. AcDbBlockTableRecord* pBlkTblRcd2;
386. pBlkTbl->getAt(ACDB采用MODEL采用SPACE,pBlkTblRcd2,AcDb::kForWrite);
387. pBlkTblRcd2->appendAcDbEntity(pBlkRef);
390. ////关闭数据库对象
391. pBlkRef->close();
392. pBlkTblRcd2->close();
393. pBlkTbl->close();
398. }
401. //第五题：定义一个命令，功能：让用户选择界面上的直线实体，然后修改所有选中实体的颜色；
402. static void TESTchangecolorcmd()
403. {
406. ads采用name ssname;
407. resbuf strFilter;
408. ////只能选择直线对象，构造选择集过滤器，只能选直线
409. strFilter.resval.rstring = 采用T("LINE");
410. strFilter.rbnext = NULL;
411. strFilter.restype = 0;
414. ////选择多个实体，传递NULL，让用户自己来选
415. if(acedSSGet(NULL,NULL,NULL,&strFilter,ssname) != RTNORM)
416. {
419. return;
420. }
423. long len;
424. acedSSLength(ssname,&len);
425. CString ss;
426. ss.Format(采用T("已选中%d个实体"),len);
427. acutPrintf(ss);
430. ads采用name entname;
433. AcDbObjectId id;
434. AcDbEntity* ent = NULL;
435. CString strName;
440. ////弹出颜色选择对话框，选中一个颜色，默认是当前层的颜色
441. int nNewColor = SelColor();
444. for (int i=0;i<len;i++)
445. {
448. if (acedSSName(ssname, i, entname) == RTNORM)
449. {
452. ////根据名称得到ID
453. acdbGetObjectId(id,entname);
456. ////以写模式，根据ID索引到对象，并打开ENTITY
457. acdbOpenObject(ent,id,AcDb::OpenMode::kForWrite);
458. strName.Format(采用T("%d"),ent->colorIndex());
459. acutPrintf(采用T("\n"));
460. acutPrintf(strName);
463. ent->setColorIndex(nNewColor);
464. ent->close();
465. }
466. }
469. acedSSFree(ssname);
472. }
476. //-----------------------------------------------------------------------------
477. IMPLEMENT采用ARX采用ENTRYPOINT(CArxProject2App)
480. ACED采用ARXCOMMAND采用ENTRY采用AUTO(CArxProject2App, TEST, lineCmd, lineCmd, ACRX采用CMD采用MODAL, NULL)
483. //ACED采用ARXCOMMAND采用ENTRY采用AUTO(CArxProject2App, TEST, circlecmd, circlecmd, ACRX采用CMD采用MODAL, NULL)
486. ACED采用ADSSYMBOL采用ENTRY采用AUTO(CArxProject2App, circle, false)
489. ACED采用ARXCOMMAND采用ENTRY采用AUTO(CArxProject2App, TEST, changecolorcmd, changecolorcmd, ACRX采用CMD采用MODAL, NULL)
492. ACED采用ARXCOMMAND采用ENTRY采用AUTO(CArxProject2App, TEST, addblkcmd, addblkcmd, ACRX采用CMD采用MODAL, NULL)
495. ACED采用ARXCOMMAND采用ENTRY采用AUTO(CArxProject2App, TEST, complexentcmd, complexentcmd, ACRX采用CMD采用MODAL, NULL)

复制代码