三维裂缝项目

本文主要是介绍三维裂缝项目，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

• CAD-vba将模型空间中所有的多段线转化为面域

Sub poly2reg()'简化变量Dim t As AcadDocumentSet t = ThisDrawingDim s As AcadModelSpaceSet s = t.ModelSpace'简化完毕Dim ent As AcadEntity '对象基类For Each ent In ThisDrawing.ModelSpace '所有对象Dim entity(0 To 0) As AcadEntitySet entity(0) = entDim reg As Variantreg = s.AddRegion(entity)NextMsgBox "complish"
End Sub

这篇关于三维裂缝项目的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---