[原创]：修改天正坐标

yjy

本人在使用天正3.0画总图时，发现总图标注坐标后，产生的是以“米”作单位的属性块，如想将属性块中的数据修改为毫米单位，较为繁琐。为至我用ARX编写了一个命令，可方便的修改天正生成的数据。由于时间所限，不当之处，望各位指教。
核心程序如下：

1. [font=courier new]
   
2. ads_ssget("", NULL, NULL, NULL, ss);
   
3. 
   
4. ads_ssname(ss, 0, ss_new);
   
5. if(acdbGetObjectId(objId, ss_new) != Acad::eOk)  return;
   
6. 
   
7. if(acdbOpenObject((AcDbBlockReference *)m_BlockreFerence, objId, AcDb::kForWrite, Adesk::kTrue) != Acad::eOk) return;
   
8. 
   
9. m_ObjectIterator = m_BlockreFerence -> attributeIterator();
   
10. while(m_ObjectIterator -> done() !=  Adesk::kTrue)
    
11. {
    
12. objAttrId = m_ObjectIterator -> objectId();
    
13. if(acdbOpenObject((AcDbAttribute *)m_Attribute,
    
14.         objAttrId, AcDb::kForWrite, Adesk::kTrue) != Acad::eOk)
    
15.         return;
    
16. 
    
17. strcpy(lname, m_Attribute -> textString());
    
18. 
    
19. s1 = lname;
    
20. l = s1.GetLength();
    
21. i = s1.FindOneOf("=");
    
22. s2 = s1.Right(l - i - 1);
    
23. s3 = s1.Left(i + 1);
    
24. z = atof(s2) * 1000.0f;
    
25. s2.Format("%6.3f", z);
    
26. m_Attribute -> setTextString(s3 + s2);
    
27. 
    
28. m_Attribute->close();
    
29. m_ObjectIterator -> step();
    
30. }
    
31. 
    
32. m_BlockreFerence->close();
    
33. [/font]

复制代码

加载附件后，使用命令为：CF
注：该程序在AutoCAD R14 下使用。

wwhhjj

看起来不错。能编一个画楼板钢筋的工具？PM生成的太乱，不便施工。