[原创]ARX坐标展点原码

yfy2003

2. AcGePoint3d d3pt1;//***定位点***//
3. char zf[80];      //***高程***//
4. char layer_tc[20];//***图层***//
5. double VW;       //***文高***//  
6. //****************************************************************//
7. //************************    坐标展点    ****************************//
8. //***************************************************************//
9. void hzzcyfyzbzd()
10. {
11. CString m_path;
12. struct resbuf blc;
13. FILE *FP;
14. double bl;//比例
15. double r;
16. int newcolor,i,rc;
17. ads_point pt1;
18. blc.restype=RTREAL;//控制主单位值中零的显示方式
19. blc.resval.rreal=0;
20. acedSetVar("DIMZIN",&blc);
21. blc.restype=RTSHORT;//控制命令回显
22. blc.resval.rint=0;
23. acedSetVar("CMDECHO",&blc);
24. blc.restype=RTSHORT;//关闭对象捕捉
25. blc.resval.rint=0;
26. acedSetVar("OSMODE",&blc);
27. CFileDialog chfileDlg(TRUE,NULL,NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,"文本文件(*.TXT)|*.TXT|数据文件(*.DAT)|*.DAT|所有文件(*.*)|*.*||");
28. chfileDlg.m_ofn.lpstrTitle="输入文件";
29. if(chfileDlg.DoModal()!=IDOK)return;
30. m_path=chfileDlg.GetPathName();
32. bl=500.0;
33. if(acedGetReal("\n绘图比例 1:<500> ",&bl)==RTCAN)return;
34. for(i=1;i<4;i++){
35.   if(i==1){
36.    strcpy(layer_tc,"高程层");
37.    newcolor=1;
38.   }else if(i==2){
39.    strcpy(layer_tc,"点号层");
40.    newcolor=3;
41.   }else if(i==3){
42.    strcpy(layer_tc,"点位层");
43.    newcolor=7;
44.   }
45.   AcDbLayerTable *pLayerTble;
46.   acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pLayerTble, AcDb::kForWrite);
47.   if (!pLayerTble->has(layer_tc)){
48.    AcDbLayerTableRecord *pLayerTblRcd=new AcDbLayerTableRecord;
49.    pLayerTblRcd->setName(layer_tc);
50.    AcCmColor color;
51.    color.setColorIndex(newcolor);
52.    pLayerTblRcd->setColor(color);   
53.    pLayerTble->add(pLayerTblRcd);
54.    pLayerTblRcd->close();
55.    pLayerTble->close();
56.   } else {
57.    pLayerTble->close();
58.   }
59. }
60. blc.restype=RTSTR;//设置点号层为当前图层
61. blc.resval.rstring=layer_tc;
62. acedSetVar("CLAYER",&blc);
63. FP=fopen(m_path,"r");//以只读形式打开文件
64. do{   //...读原始数据...//   
65.   fscanf(FP,"%d,%lf,%lf,%lf",&i,&pt1[X],&pt1[Y],&pt1[Z]);
66.   strcpy(zf,"gc200.dwg");//块名
67.   VW=bl/1000;
68.   //这里我直接调用CAD命令插入块，不使用ARX来插入块。主要是觉得麻烦！
69.   //可以添加使用ARX插入的代码，展点一定更快！
70.   acedCommand(RTSTR,"INSERT",
71.    RTSTR,zf,//块文件
72.    RT3DPOINT,pt1,//插入块的位置
73.    RTREAL,VW,//缩放比例
74.    RTSTR,"",
75.    RTSTR,"",
76.    0);
77.   r=double(i);
78.   acdbRToS(r,2,0,zf);
79.   VW=bl*0.002;
80.   d3pt1[0]=pt1[X]+bl*0.001;
81.   d3pt1[1]=pt1[Y]-VW/2.0;
82.   strcpy(layer_tc,"点号层");
83.   Com_Text();//展点号
84.   r=pt1[Z];
85.   acdbRToS(r,2,2,zf);
86.   strcpy(layer_tc,"高程层");
87.   Com_Text();//展高程
88.   rc=feof(FP);
89. }while(rc==0);
90. fclose(FP);//关闭文件
91. acedCommand(RTSTR,"ZOOM",RTSTR,"E",0);
92. }
93. //****************************************************************//
94. //************************    写入文字    ****************************//
95. //****************************************************************//
96. void Com_Text(){
97. AcDbText *ptext=new AcDbText(d3pt1,zf,0,VW,0);
98. ptext->setLayer(layer_tc);
99. AcDbBlockTable *pblocKTable;
100. acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pblocKTable,AcDb::kForRead);
101. AcDbBlockTableRecord *pblocKTableRecord;
102. pblocKTable->getAt(ACDB_MODEL_SPACE,pblocKTableRecord,AcDb::kForWrite);
103. AcDbObjectId plineObjId;
104. pblocKTableRecord->appendAcDbEntity(plineObjId,ptext);
105. pblocKTable->close();
106.     pblocKTableRecord->close();
107. ptext->close();
108. }

复制代码

myfreemind

好东东！

纳兰龙珠

好！谢谢共享！

fazi

你的操作大部分都是c＋＋代码 如果选择 MFC会更好一点 我会尝试 用MFC改写一下 谢谢分享

uusky

不能解压啊!奇怪?谁能给我!  qq:58412171

yfy2003

fazi发表于2005-9-7 16:49:00你的操作大部分都是c＋＋代码 如果选择 MFC会更好一点 我会尝试 用MFC改写一下 谢谢分享

选择MFC也可以啊！

8350

为什么我的运行不成功呢？

8350

楼主,为什么不行呢???

想学学都学不了了!!!!!

能给一个完整的么?  shiming81@163.com

ivyej

我都不知道怎么运行，太衰了。。。。

庞琛虹

谢谢共享