您可以创建用颜色填充的三角形和四边形区域。 为了更快地获得结果,请在关闭 AutoCAD 填充模式系统变量的情况下创建这些区域,然后打开填充模式以填充完成的区域。 创建四边形实心填充区域时,第三点和第四个点的序列将确定其形状。比较下图: 前两个点定义面的一个边。第三个点的定义与第二个点对角线相反。如果第四个点设置为等于第三个点,则创建一个填充三角形。 要创建实心填充区域,请使用该方法。AddSolid 创建实心填充对象下面的代码示例使用坐标 (0, 0, 0)、(5, 0, 0)、(5, 8, 0) 和 (0, 8, 0) 在模型空间中创建一个四边形实体。 Sub Ch4_CreateSolid() Dim solidObj As AcadSolid Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double Dim point3(0 To 2) As Double Dim point4(0 To 2) As Double ' Define the solid point1(0) = 0#: point1(1) = 0#: point1(2) = 0# point2(0) = 5#: point2(1) = 0#: point2(2) = 0# point3(0) = 5#: point3(1) = 8#: point3(2) = 0# point4(0) = 0#: point4(1) = 8#: point4(2) = 0# ' Create the solid object in model space Set solidObj = ThisDrawing.ModelSpace.AddSolid(point1, point2, point3, point4) ZoomAll End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-10 18:41
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.