ARX实例代码 -- 使用ARX转写VLISP同功能的VLA-函数

LoveArx

问题：
我想把VLISP的VLA-开头的一些函数用ARX转写，我想获得INSERT实体的比例、旋转角，能否给我一个例子代码？下面是我的LISP代码。

1. (setq pntCenter (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint IAcadBlockRef)))
   
2. 
   
3. dAngle (vla-get-Rotation IAcadBlockRef)
   
4. 
   
5. dXScale (vla-get-XScaleFactor IAcadBlockRef)
   

(setq pntCenter (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint IAcadBlockRef)))<br /> <br /> dAngle (vla-get-Rotation IAcadBlockRef)<br /> <br /> dXScale (vla-get-XScaleFactor IAcadBlockRef)<br />

解决方案：
下面的代码能够做你的要求，同时使用了“聪明”的指针，确保你打开对象操作后忘记关闭对象。

1. // extract some data from a Block Reference using ObjectARX, by Fenton Webb, DevTech, 20/12/2010
   
2. void GetBlockReferenceDetails()
   
3. {
   
4.   ads_name ename; ads_point pt;
   
5.   // select the block off the screen in AutoCAD
   
6.   int res = acedEntSel(L"\nSelect INSERT: ", ename, pt);
   
7.   // if ok
   
8.   if (res == RTNORM)
   
9.   {
   
10.     // then convert the old ename to an ObjectARX ObjectId22
    
11.     AcDbObjectId objId;
    
12.     acdbGetObjectId(objId, ename);
    
13.     // now open the object for read
    
14.     AcDbObjectPointer<AcDbBlockReference> blockRef(AcDb::kForRead);
    
15.     // if it opened ok
    
16.     if (blockRef.openStatus() == Acad::eOk)
    
17.     {
    
18.       // extract the data from the block reference
    
19.       AcGePoint3d insPnt = blockRef->position();
    
20.       double rotation = blockRef->rotation();
    
21.       AcGeScale3d xScale = blockRef->scaleFactors();
    
22.     }
    
23.   }
    
24. }
    

// extract some data from a Block Reference using ObjectARX, by Fenton Webb, DevTech, 20/12/2010<br /> void GetBlockReferenceDetails()<br /> {<br />   ads_name ename; ads_point pt;<br />   // select the block off the screen in AutoCAD<br />   int res = acedEntSel(L"\nSelect INSERT: ", ename, pt);<br />   // if ok<br />   if (res == RTNORM)<br />   {<br />     // then convert the old ename to an ObjectARX ObjectId22<br />     AcDbObjectId objId;<br />     acdbGetObjectId(objId, ename);<br />     // now open the object for read<br />     AcDbObjectPointer<AcDbBlockReference> blockRef(AcDb::kForRead);<br />     // if it opened ok<br />     if (blockRef.openStatus() == Acad::eOk)<br />     {<br />       // extract the data from the block reference<br />       AcGePoint3d insPnt = blockRef->position();<br />       double rotation = blockRef->rotation();<br />       AcGeScale3d xScale = blockRef->scaleFactors();<br />     }<br />   }<br /> }<br />

lhg

啥也不说了，感谢楼主分享哇！