[每日一码] ARX实例代码 -- 使用ARX转写VLISP同功能的VLA-函数

admin

1. 问题：
2. 我想把VLISP的VLA-开头的一些函数用ARX转写，我想获得INSERT实体的比例、旋转角，能否给我一个例子代码？下面是我的LISP代码。
4. 普通浏览复制代码
5. (setq pntCenter (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint IAcadBlockRef)))
7. dAngle (vla-get-Rotation IAcadBlockRef)
9. dXScale (vla-get-XScaleFactor IAcadBlockRef)
12. 解决方案：
13. 下面的代码能够做你的要求，同时使用了“聪明”的指针，确保你打开对象操作后忘记关闭对象。
15. 普通浏览复制代码
16. // extract some data from a Block Reference using ObjectARX, by Fenton Webb, DevTech, 20/12/2010
17. void GetBlockReferenceDetails()
18. {
19.   ads采用name ename; ads采用point pt;
20.   // select the block off the screen in AutoCAD
21.   int res = acedEntSel(L"\nSelect INSERT: ", ename, pt);
22.   // if ok
23.   if (res == RTNORM)
24.   {
25.     // then convert the old ename to an ObjectARX ObjectId22
26.     AcDbObjectId objId;
27.     acdbGetObjectId(objId, ename);
28.     // now open the object for read
29.     AcDbObjectPointer<AcDbBlockReference> blockRef(AcDb::kForRead);
30.     // if it opened ok
31.     if (blockRef.openStatus() == Acad::eOk)
32.     {
33.       // extract the data from the block reference
34.       AcGePoint3d insPnt = blockRef->position();
35.       double rotation = blockRef->rotation();
36.       AcGeScale3d xScale = blockRef->scaleFactors();
37.     }
38.   }
39. }

复制代码