社区 › C# › 三维绘图.net

ppblog 发表于 2005-10-12 13:34:00

三维绘图.net

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
   Public Sub myBox()
      AddLayer("PPBlogLayer", PublicClass.PPColor.Green, LineWeight.LineWeight080, "CENTER")
      AddBox(200, 200, 100, "PPBlogLayer")
    End Sub

查看完整版本: 三维绘图.net