一起学ObjectARX[ARX读取数据展Cass一般高程点]

gzxl

1. struct resbuf oSysRb, iSysRb;
   
2. ads_real blc, blc1;
   
3. acedGetVar("USERR1", &oSysRb);
   
4. iSysRb.restype = RTREAL;
   
5. iSysRb.resval.rreal = 500;
   
6. blc = oSysRb.resval.rreal;
   
7. if (blc == 0)
   
8. {
   
9.     if (acedGetReal("\n请输入比例尺<1:500>", &blc1) != RTNORM)
   
10.     {
    
11.         iSysRb.resval.rreal = 500;
    
12.         acedSetVar("USERR1", &iSysRb);
    
13.     }
    
14.     acedSetVar("USERR1", &iSysRb);
    
15.     blc = iSysRb.resval.rreal;
    
16. }
    
17. 
    
18. AcDbBlockTable *pBlkTbl;
    
19. acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlkTbl, AcDb::kForWrite);
    
20. CString blkName;
    
21. blkName.Format("%s", "GC200");
    
22. if (!pBlkTbl->has(blkName))
    
23. {
    
24.     acutPrintf("\n当前图形中未包含GC200的块定义！");
    
25.     pBlkTbl->close();
    
26.     return;
    
27. }
    
28. 
    
29. double xyzScale = blc * 0.001;
    
30. double textH = blc * 0.002;  // 设置文字高度
    
31. CString strH;
    
32. strH.Format("%.3lf", textH);
    
33. 
    
34. char strTag[100];
    
35. CString str("height");
    
36. strncpy(strTag,(LPCTSTR)str,sizeof(strTag));
    
37. 
    
38. int rc, i;
    
39. ads_point pt1;
    
40. FILE *FP;
    
41. char height[80];
    
42. double r;
    
43. 
    
44. TCHAR *fName;
    
45. struct resbuf *rb;
    
46. rb = acutNewRb(RTSTR);
    
47. int  stat = acedGetFileD("选择txt文件", NULL, "txt;dat",  0, rb);
    
48. if ((stat != RTNORM) || (rb == NULL))
    
49. {
    
50.     acutRelRb(rb);
    
51.     return;
    
52. }
    
53. const size_t nSize = _tcslen(rb->resval.rstring) + 1;
    
54. fName =  (TCHAR*)acad_malloc(nSize *  sizeof(TCHAR));
    
55. strcpy(fName, rb->resval.rstring);
    
56. acutRelRb(rb);
    
57. 
    
58. CString filename;
    
59. filename.Format("%s", fName);
    
60. 
    
61. FP = fopen(filename, "r");    //以只读形式打开文件
    
62. do
    
63. {
    
64.     fscanf(FP, "%d, %lf, %lf, %lf", &i, &pt1[X], &pt1[Y], &pt1[Z]);
    
65. 
    
66.     AcGePoint3d blkbasePt (pt1[X], pt1[Y], pt1[Z]);
    
67.     AcGePoint3d textPt (pt1[X] + 0.0012 * blc, pt1[Y] - 0.001 * blc, 0.0);
    
68.     AcGePoint3d AlimPt (pt1[X] + 0.0012 * blc, pt1[Y], 0.0);
    
69.     r = pt1[Z];
    
70.     acdbRToS(r, 2, 2, height);
    
71. 
    
72.     AcDbObjectId blkDefId;
    
73.     pBlkTbl->getAt(blkName, blkDefId);
    
74.     AcDbBlockReference *pBlkRef = new AcDbBlockReference(blkbasePt, blkDefId);
    
75.     AcDbBlockTableRecord *pBlkTblRcd;
    
76.     pBlkTbl->getAt(ACDB_MODEL_SPACE, pBlkTblRcd, AcDb::kForWrite);
    
77.     pBlkTbl->close();
    
78. 
    
79.     // 块比例系数
    
80.     pBlkRef->setScaleFactors(xyzScale);
    
81.     // 扩展数据
    
82.     struct resbuf *pRb;
    
83.     CString appName = "SOUTH";
    
84.     CString typeName = "202101";
    
85.     pRb = acutBuildList(AcDb::kDxfRegAppName, appName, AcDb::kDxfXdAsciiString, typeName, RTNONE);
    
86.     pBlkRef->setXData(pRb);
    
87.     acutRelRb(pRb);
    
88. 
    
89.     AcDbObjectId entId;
    
90.     pBlkTblRcd->appendAcDbEntity(entId, pBlkRef);
    
91.     // 插入属性
    
92.     AcDbEntity *pEnt;
    
93.     acdbOpenObject(pEnt, entId, AcDb::kForWrite);
    
94.     AcDbBlockTableRecord *pBlkDefRcd;
    
95.     acdbOpenObject(pBlkDefRcd, blkDefId, AcDb::kForRead);        
    
96.     AcDbBlockTableRecordIterator *pItr;
    
97.     pBlkDefRcd->newIterator(pItr);
    
98.     for (pItr->start(); !pItr->done(); pItr->step())
    
99.     {
    
100.         pItr->getEntity(pEnt, AcDb::kForRead);
     
101.         AcDbAttributeDefinition *pAttDef = new AcDbAttributeDefinition;
     
102.         pAttDef = AcDbAttributeDefinition::cast(pEnt);
     
103.         AcDbAttribute *pAttr = new AcDbAttribute;
     
104.         pAttr->setPropertiesFrom(pAttDef);           
     
105.         pAttr->setHorizontalMode(AcDb::kTextLeft);   // 左对齐
     
106.         pAttr->setVerticalMode(AcDb::kTextVertMid);  // 左中
     
107.         pAttr->setPosition(textPt);       // 文本的位置点
     
108.         pAttr->setAlignmentPoint(AlimPt); // 对齐点
     
109.         pAttr->setWidthFactor(0.8);       // 宽度比例
     
110.         pAttr->setHeight(textH);          // 高度
     
111.         pAttr->setTag(strTag);            // 属性标签
     
112.         pAttr->setTextString(height);     // 属性值
     
113.         // 扩展数据
     
114.         struct resbuf *pRb;
     
115.         CString appName = "SOUTH";
     
116.         CString typeName = "202111";
     
117.         pRb = acutBuildList(AcDb::kDxfRegAppName, appName, AcDb::kDxfXdAsciiString, typeName, RTNONE);
     
118.         pAttr->setXData(pRb);
     
119.         acutRelRb(pRb);
     
120.         // 追加属性
     
121.         pBlkRef->appendAttribute(pAttr);
     
122.         pAttr->close();
     
123.     }
     
124.     pBlkRef->setLayer("GCD");
     
125.     delete pItr;
     
126.     pBlkDefRcd->close();
     
127.     pEnt->close();
     
128.     pBlkRef->close();
     
129.     pBlkTblRcd->close();
     
130. 
     
131.     rc = feof(FP);
     
132. }
     
133. while (rc == 0);
     
134. fclose(FP);  //关闭文件
     
135. acedCommand(RTSTR, "ZOOM", RTSTR, "E", 0);

复制代码

测试文件

zjsmlzp

CAD2005可以加载试用能展高程点（不能自动建GCD图层），但需要名为“GC200”的图块支持（在CASS里找到再往CAD2005里插入一下），CAD2007里不能加载。

树櫴希德

老大，如何根据图面三角网查询任意点坐标高程，怎么样将三维多段线生成点表的啊？

树櫴希德

根据图面高程内插的不足之处，黄色点为错误的

lERICl

路过学习！支持楼主！

yanshengjiang

看来简单的东西 还是lsp来的方便啊

gzxl

萝卜各有所爱，趁不老，学多点不怕

yuanziyou

请教:在vb中如实现已有块添加属性?
我参照帮助文档创建属性块的方法
1.定义块
2.给块定义属性
3.插入这个带属性的块
始终做不出cass这种格式(插入后是属性块且能在对象特征管理里能看到属性,但是双击却提示:不是属性块)
求解惑!

wmz

yuanziyou 发表于 2014-11-11 23:42
请教:在vb中如实现已有块添加属性?
我参照帮助文档创建属性块的方法
1.定义块

    这个已经有人用LISP解决了，我就是照此写了一个与南方CASS完全一样的展绘地形点的。而且运行速度超快，可与南方的PK！

yuanziyou

wmz 发表于 2014-11-12 09:18
这个已经有人用LISP解决了，我就是照此写了一个与南方CASS完全一样的展绘地形点的。而且运行速度超快 ...

lisp的方法我已经会了,用vb是因为希望和excel协作,且方便多文档处理