三维绘图.net

[复制链接]

ppblog

1 主题	2 帖子	1 银币

初来乍到

Rank: 1

铜币: 6

发消息

发表于 2005-10-12 13:34:00 | 显示全部楼层 |阅读模式

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

使用道具举报