AutoLISP 开发指南

将名称、句柄或对象 ID 转换为 VLA 对象（AutoLISP/ActiveX）

2023-1-6 01:08| 发布者: admin| 查看: 572| 评论: 0|来自: AutoCAD

摘要: 在 AutoLISP 中使用 ActiveX 函数时，有时需要将 VLA 对象转换为名称、句柄或对象 ID。

在 AutoLISP 中使用 ActiveX 函数时，有时需要将 VLA 对象转换为名称、句柄或对象 ID。

注意：AutoLISP 中的 ActiveX 支持仅限于 Windows。

该函数允许您将通过函数（如 and）获得的实体名称（ename）转换为可与 ActiveX 支持函数一起使用的 VLA 对象。vlax-ename->vla-objectentgetssname

在 AutoCAD 绘图区域中，绘制一个圆。
在AutoCAD命令提示符下，输入（vl-load-com）并按Enter键。
Enter（setq ename-circle （car （entsel “\nPick a Circle：”））））并按 Enter 键。
```
<Entity name: 27f0538>
```
Enter（setq vlaobject-circle （vlax-ename->vla-object ename-circle））并按 Enter 键。
```
#<VLA-OBJECT IAcadCircle 03642c24>
```
Enter（setq new-ename-circle （vlax-vla-object->ename vlaobject-circle））并按 Enter 键。
```
<Entity name: 27f0538>
```

该函数根据提供的句柄返回实体名称（ename）。然后，可以将实体名称转换为可与 ActiveX 支持函数一起使用的 VLA 对象。handent

在 AutoCAD 绘图区域中，绘制一个圆。
在AutoCAD命令提示符下，输入（vl-load-com）并按Enter键。
Enter（setq ename-circle （handent （cdr （assoc 5 （entget （car （entsel “\nPick a Circle：”）））））
```
<Entity name: 27f0538>
```
Enter（setq vlaobject-circle （vlax-ename->vla-object ename-circle））并按 Enter 键。
```
#<VLA-OBJECT IAcadCircle 03642c24>
```
Enter（setq new-ename-circle （vlax-vla-object->ename vlaobject-circle））并按 Enter 键。
```
<Entity name: 27f0538>
```

该函数返回与传递给函数的对象 ID 对应的 VLA 对象。用于获取指定 VLA 对象的对象 ID。vla-get-ObjectIDvla-ObjectIDToObject

在 AutoCAD 绘图区域中，绘制一个圆。
在AutoCAD命令提示符下，输入（vl-load-com）并按Enter键。
Enter（setq aDoc （vlax-get-property （vlax-get-acad-object） 'ActiveDocument））并按 Enter 键。
```
#<VLA-OBJECT IAcadDocument 0000000029430508>
```
Enter（setq aMSpace （vlax-get-property aDoc 'ModelSpace））并按 Enter。
```
#<VLA-OBJECT IAcadModelSpace 00000000304d7308>
```
Enter（setq aObjId （vla-get-ObjectID aMSpace））并按 Enter.
```
48
```
Enter（setq aObj （vla-ObjectIDToObject aDoc aObjId））并按 Enter.
```
#<VLA-OBJECT IAcadModelSpace 00000000304d7308>
```