200元求一段修改插入基点的ARX代码

cxjzxh

要求修改一个包含属性定义的图块的基点，只需贴出关键代码即可。

恒毅

这么久了还需要吗，我可以帮你写,QQ974636923

恒毅

1. static void fjbylongArxProject1test(void)
   
2.         {
   
3.                 // Add your code for command fjbylongArxProject1.test here
   
4.                 //更改属性块插入点示例
   
5.                 //运行命令test→选中属性块→将块的基点改为p1（0.0 0.0 0.0）,
   
6.                 //所有属性的基点（如果不是所有属性仅需加一条tag判断）改为p2(1.0 1.0 1.0)---根据需要自行调整
   
7.                 ads_name ename;ads_point pt;
   
8.                 //强制要求选择一个对象，按ESC退出
   
9.                 int sta=ads_entsel(_T("\n请选择属性块："),ename,pt);
   
10.                 while (sta!=RTNORM)
    
11.                 {
    
12.                         if (sta==RTCAN)
    
13.                                 return;       
    
14.                         sta=ads_entsel(_T("\n请选择属性块："),ename,pt);
    
15.                 }
    
16.                 AcDbObjectId id1,id2;
    
17.                 acdbGetObjectId(id1,ename);
    
18.                 AcDbEntity *pEnt;
    
19.                 acdbOpenAcDbEntity(pEnt,id1,AcDb::kForWrite,false);
    
20.                 AcDbBlockReference *pBlkRef=AcDbBlockReference::cast(pEnt);
    
21.                 if (pBlkRef==NULL)
    
22.                 {
    
23.                         acedPrompt(L"\n所选图形不是块参照");
    
24.                         return;
    
25.                 }
    
26.                 id2=pBlkRef->blockTableRecord();
    
27.                 AcDbBlockTableRecord *pBlkTblRcd;
    
28.                 acdbOpenObject(pBlkTblRcd,id2,AcDb::kForWrite);
    
29.                 AcGePoint3d p1(0.0,0.0,0.0),p2(30.0,30.0,0.0);
    
30.                 pBlkTblRcd->setOrigin(p1);
    
31.                 ACHAR *pName;
    
32.                 pBlkTblRcd->getName(pName);
    
33.                 if (pBlkTblRcd->hasAttributeDefinitions())
    
34.                 {
    
35.                         AcDbBlockTableRecordIterator *pItr;
    
36.                         pBlkTblRcd->newIterator(pItr);
    
37.                         AcDbEntity *pEnt2;
    
38.                         for (pItr->start(); !pItr->done(); pItr->step())
    
39.                         {
    
40.                                 pItr->getEntity(pEnt2, AcDb::kForWrite);
    
41.                                 // 检查是否是属性定义
    
42.                                 AcDbAttributeDefinition *pAttDef;
    
43.                                 pAttDef = AcDbAttributeDefinition::cast(pEnt2);//pAttDef不用关闭
    
44.                                 if (pAttDef != NULL)
    
45.                                 {
    
46.                                         pAttDef->setPosition(p2);                                       
    
47.                                         pAttDef->close();
    
48.                                 }
    
49.                                 pEnt2->close();//pEnt2定义在for外面，关闭在for内
    
50.                         }                       
    
51.                         delete pItr;
    
52.                 }
    
53.                
    
54.                 pEnt->close();
    
55.                 pBlkRef->close();
    
56.                 pBlkTblRcd->close();               
    
57.                 acedCommand(RTSTR,_T("ATTSYNC"),RTSTR,_T("N"),RTSTR,pName,0);//同步属性块
    
58.                 acedSSFree(ename);
    
59.         }

static void fjbylongArxProject1test(void)<br />         {<br />                 // Add your code for command fjbylongArxProject1.test here<br />                 //更改属性块插入点示例<br />                 //运行命令test→选中属性块→将块的基点改为p1（0.0 0.0 0.0）,<br />                 //所有属性的基点（如果不是所有属性仅需加一条tag判断）改为p2(1.0 1.0 1.0)---根据需要自行调整<br />                 ads_name ename;ads_point pt;<br />                 //强制要求选择一个对象，按ESC退出<br />                 int sta=ads_entsel(_T("\n请选择属性块："),ename,pt);<br />                 while (sta!=RTNORM)<br />                 {<br />                         if (sta==RTCAN)<br />                                 return;        <br />                         sta=ads_entsel(_T("\n请选择属性块："),ename,pt);<br />                 }<br />                 AcDbObjectId id1,id2;<br />                 acdbGetObjectId(id1,ename);<br />                 AcDbEntity *pEnt;<br />                 acdbOpenAcDbEntity(pEnt,id1,AcDb::kForWrite,false);<br />                 AcDbBlockReference *pBlkRef=AcDbBlockReference::cast(pEnt);<br />                 if (pBlkRef==NULL)<br />                 {<br />                         acedPrompt(L"\n所选图形不是块参照");<br />                         return;<br />                 }<br />                 id2=pBlkRef->blockTableRecord();<br />                 AcDbBlockTableRecord *pBlkTblRcd;<br />                 acdbOpenObject(pBlkTblRcd,id2,AcDb::kForWrite);<br />                 AcGePoint3d p1(0.0,0.0,0.0),p2(30.0,30.0,0.0);<br />                 pBlkTblRcd->setOrigin(p1);<br />                 ACHAR *pName;<br />                 pBlkTblRcd->getName(pName);<br />                 if (pBlkTblRcd->hasAttributeDefinitions())<br />                 {<br />                         AcDbBlockTableRecordIterator *pItr;<br />                         pBlkTblRcd->newIterator(pItr);<br />                         AcDbEntity *pEnt2;<br />                         for (pItr->start(); !pItr->done(); pItr->step())<br />                         {<br />                                 pItr->getEntity(pEnt2, AcDb::kForWrite);<br />                                 // 检查是否是属性定义<br />                                 AcDbAttributeDefinition *pAttDef;<br />                                 pAttDef = AcDbAttributeDefinition::cast(pEnt2);//pAttDef不用关闭<br />                                 if (pAttDef != NULL)<br />                                 {<br />                                         pAttDef->setPosition(p2);                                        <br />                                         pAttDef->close();<br />                                 }<br />                                 pEnt2->close();//pEnt2定义在for外面，关闭在for内<br />                         }                        <br />                         delete pItr;<br />                 }<br />                 <br />                 pEnt->close();<br />                 pBlkRef->close();<br />                 pBlkTblRcd->close();                <br />                 acedCommand(RTSTR,_T("ATTSYNC"),RTSTR,_T("N"),RTSTR,pName,0);//同步属性块<br />                 acedSSFree(ename);<br />         }