how can i use the current usc
Can you please try this ?
' Moves by 10 units along WCS Y Axis 'Dim disp As Matrix3d = Matrix3d.Displacement(Vector3d.YAxis * 10.0) ' Moves by 10 units along UCS Y Axis Dim disp As Matrix3d = Matrix3d.Displacement((Vector3d.YAxis * 10.0).TransformBy(ed.CurrentUserCoordinateSystem)) Dim nPt As Point3d = opt.Position.TransformBy(disp)
Balaji
Developer Technical Services
Autodesk Developer Network
Hi,
To understand what I meant, please try this :
1. Open the attached drawing
2. Try running the following command and select the point. The point always moves along the UCS Y Axis by 10 units.
Change to a different UCS and try the command again.
<CommandMethod("MP")> _
Public Shared Sub MovePoint()
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
Dim selectedEntity As PromptEntityResult = ed.GetEntity("Please select an point : ")
Dim objectId As ObjectId = selectedEntity.ObjectId
Try
Using trans As Transaction = db.TransactionManager.StartTransaction()
Dim ent As Entity = TryCast(trans.GetObject(objectId, OpenMode.ForWrite), Entity)
If TypeOf ent Is DBPoint Then
Dim opt As DBPoint = TryCast(ent, DBPoint)
' Moves by 10 units along UCS Y Axis
Dim disp As Matrix3d = Matrix3d.Displacement((Vector3d.YAxis * 10.0).TransformBy(ed.CurrentUserCoordinateSystem))
Dim nPt As Point3d = opt.Position.TransformBy(disp)
opt.Position = nPt
End If
trans.Commit()
End Using
Catch ex As System.Exception
ed.WriteMessage(ex.Message)
End Try
End Sub
About correcting your code, I will need more info to understand the problem. Can you provide the drawing and explain what the expected / actual behavior is ?
Balaji
Developer Technical Services
Autodesk Developer Network
Can you please provide a sample drawing to test with ?
Also I would like to know the parameters that you are using with "ChangePostionLevel" method.
If you can simply attach a buildable sample project and a simple test drawing, that would be help.
It is little hard for me to visualize the kind of displacement that you are trying to achieve for the block reference.
Balaji
Developer Technical Services
Autodesk Developer Network
Thanks for providing more info.
In your original post, the displacement was by a constant 100 units which is not the case in your recent code sample.
The amount of displacement calculated using "(BPoint.Y + (Val(attRef.TextString) - Val(BValue)) * Unit)" may not be what you want actually when the UCS is changed.
Here is a part of your code sample that moves the selected block reference along the UCS Y direction. Depending on how you want to align the block references, you may have to change the distance.
Private Shared Sub ChangePostionLevel(MySelSet As SelectionSet, BPoint As Point3d, BValue As String, Unit As Double)
Using Tr As Transaction = Application.DocumentManager.MdiActiveDocument.TransactionManager.StartTransaction()
If MySelSet IsNot Nothing Then
For Each BlKID In MySelSet.GetObjectIds()
Dim BlkRef As BlockReference = Tr.GetObject(BlKID, OpenMode.ForWrite)
Dim objId As ObjectId = BlkRef.AttributeCollection.Item(0)
Dim attRef As AttributeReference = Tr.GetObject(objId, OpenMode.ForWrite)
Dim OPoint As Point3d = New Point3d(BlkRef.Position.X, BlkRef.Position.Y, BlkRef.Position.Z)
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim yAxis As Vector3d
yAxis = ed.CurrentUserCoordinateSystem.CoordinateSystem3d.Yaxis
Dim distance As Double
' Change the distance according to your requirement
distance = ((BPoint.Y + (Val(attRef.TextString) - Val(BValue)) * Unit) - BlkRef.Position.Y)
Dim dispVector As Vector3d = distance * yAxis
BlkRef.TransformBy(Matrix3d.Displacement(dispVector))
Next
End If
Tr.Commit()
End Using
End Sub
Balaji
Developer Technical Services
Autodesk Developer Network
