[求助]：怎样用VBA实现面域的拉伸啊！

czh801007

各位大虾帮帮小弟吧！怎样用VBA实现面域的拉伸啊！

雪山飞狐(lzh)

给定轮廓、高度和倾斜角度创建拉伸实体。

参阅 | 示例

语法

RetVal = object.AddExtrudedSolid(Profile, Height, TaperAngle)

Object

ModelSpace 集合, PaperSpace 集合, Block
使用该方法的对象。

Profile

轮廓对象; 仅用于输入
只能是 Region 对象。

Height

Double[双精度]; 仅用于输入
沿对象坐标系统的Z轴方向拉伸的高度。如果输入为正数， AutoCAD 将沿正 Z 轴方向拉伸对象。如果输入为负数，AutoCAD 将沿负 Z 轴的方向拉伸对象。

TaperAngle

Double[双精度]; 仅用于输入
拉伸的倾斜角度必须为弧度。倾斜角度的范围从 -90 到 +90 度。正角度是从基底向内倾斜，而负角度则向外倾斜。默认角度为0，它按与二维对象平面的垂直方向拉伸。

RetVal

3DSolid 对象
作为新创建的拉伸实体的 3DSolid 对象。

说明

只能拉伸二维平面的面域。

只有顶点连接的环才能拉伸锥形。大的倾斜角度或长的拉伸高度可能导致对象或对象的一部分在到达拉伸高度前自身相交。如果结果实体自身相交时，AutoCAD 将不允许任何拉伸。