Article	41022240
Type	Bug
Product	Engine
Version	4.0.4.1023
Date Added	9/16/2003
Fixed	Yes [9/23/2003]
Submitted by	Eberhard Schmalzle
Keywords

Subject

cmdRotate3d is not working correct with "2P" parameter As soon as you use a rotation axis not in parallel to the coordinate system the results are wrong

Summary

Dim myVdLine As vdLine
Dim mySelSet As vdSelection
Dim CollEnt As vdEntities
 Set CollEnt = VDraw.ActiveDocument.Entities
 CollEnt.EraseAll
 VDraw.ActiveDocument.Purge "ALL"
 Set mySelSet = VDraw.ActiveDocument.Selections.Add("FOLDEDVIEW")
 With VDraw.ActiveDocument.Entities
  .AddLine Array(0, 0), Array(300, 0)
  .AddLine Array(0, 0), Array(0, 300)
  .AddLine Array(0, 0, 0), Array(0, 0, 300)
  .AddLine Array(0, 0), Array(200, 200) ' rotation axis
  .AddLine Array(50, 10), Array(100, 10) ' line
  Set myVdLine = .AddLine(Array(50, 10), Array(100, 10)) ' object to rotate
  Debug.Print myVdLine.StartPoint(0), myVdLine.StartPoint(1), myVdLine.StartPoint(2)
  Debug.Print myVdLine.EndPoint(0), myVdLine.EndPoint(1), myVdLine.EndPoint(2)
 End  With
 Call mySelSet.AddItem(myVdLine)
 Dim succ
 succ = VDraw.CommandAction.CmdRotate3d("2P", mySelSet, Array(Array(0#, 0#, 0#), Array(200#, 200#,   0#)), 0#)
 Debug.Print myVdLine.StartPoint(0), myVdLine.StartPoint(1), myVdLine.StartPoint(2)
 Debug.Print myVdLine.EndPoint(0),   myVdLine.EndPoint(1), myVdLine.EndPoint(2)
 Set mySelSet = Nothing
 Set myVdLine = Nothing
 VDraw.CommandAction.Zoom "E", 0, 0
 VDraw.CommandAction.RegenAll

Solution

It is fixed in 4.0.5.1024