[求助]：如何用lisp生成面域。

shisj

在lisp文件应用command命令可以生成面域，
（command "boundary" ）
但是这样的程序在autocad中是无法实现透明调用的，想实现透明调用，就不能用command命令，用什么命令可以实现在lisp文件中生成面域。

eachy

vla-addregion

Creates a region from a set of entities. The given entities must form a closed coplanar region.

See Also | Example

Signature

RetVal = object.AddRegion(ObjectList)

Object

ModelSpace Collection, PaperSpace Collection, Block
The object or objects this method applies to.

ObjectList

Array of Objects
The array of objects forming the closed coplanar face to be made into a region. This array may contain the following object types: Line, Arc, Circle, Elliptical Arc, LightweightPolyline, Spline.

RetVal

Variant
This method outputs an array of the newly created Region objects.

Remarks

This method will create a region out of every closed loop formed by the input array of curves. AutoCAD converts closed 2D and planar 3D polylines to separate regions then converts polylines, lines, and curves that form closed planar loops. If more than two curves share an endpoint, the resultant region might be arbitrary.

You can explode a region into the individual loops by using the Explode method. The Boolean method allows you to create composite 3D solids or regions from the intersection, union, or subtraction of a solid or region from another solid or region.

The total number of Region objects created is Ubound(objRegions) - Lbound(objRegions) + 1.

shisj

谢谢了，这个是vba的方法，到lisp中还要转换一下