三维绘图.net

ppblog

Public Function AddBox(ByVal lengthAlongX As Double, ByVal lengthAlongY As Double, ByVal lengthAlongZ As Double, ByVal LayerName As String) As ObjectId
        MsgBox("长方体box,存在一个问题,不能设置3d实体的位置")
        Dim mybox As New Solid3d

        '不能设置3d实体的位置
        Dim intC As New IntegerCollection
        intC.Add(200)
        intC.Add(200)
        intC.Add(80)
        Dim offset As Vector3d
        offset = Vector3d.ZAxis
        mybox.MoveGripPointsAt(intC, New Vector3d(200, 200, 0))
        '不能设置3d实体的位置
        mybox.Layer = LayerName
        mybox.CreateBox(lengthAlongX, lengthAlongY, lengthAlongZ)
        Return AddEntity(mybox)
    End Function
    <CommandMethod("mybox")> Public Sub myBox()
        AddLayer("PPBlogLayer", PublicClass.PPColor.Green, LineWeight.LineWeight080, "CENTER")
        AddBox(200, 200, 100, "PPBlogLayer")

    End Sub