How can the line be pulled out?

Hi,

Unknown said:

Is there someone who can help me with this issue?

It depends on what does it mean "help me with this issue". It's not clear if you ask for somebody who will create the macro (which sounds like a commercial request) or need to help with a pieces of you code if a problem will appear (this community is right place for such discussions).

In MicroStation VBA help there are more examples how IPrimitiveCommand should be used available, e.g. Line Element Creation Command gives a good overview how an element can be created including dynamics. You can start with example code and to modify it to satisfy your needs.

With regards,

  Jan

hello guys,
here is pieces of my code. I want dynamic arrow direction which rotate with a line (just like Place Note Line)

Private Sub IPrimitiveCommandEvents_DataPoint(point As Point3d, ByVal View As View)

If m_nPoints = 0 Then
CommandState.AccuDrawHints.SetOrigin point


Dim myLine1 As LineElement

m_atPoints(0).x = point.x
m_atPoints(0).y = point.y
m_atPoints(1).x = point.x + 2
m_atPoints(1).y = point.y + 1

Set myLine1 = CreateLineElement2(Nothing, m_atPoints(0), m_atPoints(1))

ActiveModelReference.AddElement myLine1

Dim myLine2 As LineElement
m_atPoints(0).x = point.x
m_atPoints(0).y = point.y
m_atPoints(1).x = point.x - 2
m_atPoints(1).y = point.y + 1

Set myLine2 = CreateLineElement2(Nothing, m_atPoints(0), m_atPoints(1))
ActiveModelReference.AddElement myLine2


CommandState.StartDynamics
m_atPoints(0) = point
m_nPoints = 1
ShowPrompt "Place end point"

ElseIf m_nPoints = 1 Then
m_atPoints(1) = point
Dim oEl As LineElement
Set oEl = CreateLineElement1(Nothing, m_atPoints)
ActiveModelReference.AddElement oEl
oEl.Redraw
m_atPoints(0) = m_atPoints(1)
End If

End Sub

Unknown said:

m_atPoints(0).x = point.x
m_atPoints(0).y = point.y

Just assign the entire variable, not its components...

m_atPoints(0) = point

Unknown said:

m_atPoints(1).x = point.x - 2
m_atPoints(1).y = point.y + 1

Use the API...

m_atPoints(1) = Point3dAdd (point, Point3dFromXY (1, -2))

Unknown said:

CommandState.StartDynamics

Once you've started dynamics, now write code in your IPrimitiveCommandEvents_Dynamics subroutine to draw rubber bands.  See VBA help and the example I previously cited.

Unknown said:

m_atPoints(0).x = point.x
m_atPoints(0).y = point.y

Just assign the entire variable, not its components...

m_atPoints(0) = point

Unknown said:

m_atPoints(1).x = point.x - 2
m_atPoints(1).y = point.y + 1

Use the API...

m_atPoints(1) = Point3dAdd (point, Point3dFromXY (1, -2))

Unknown said:

CommandState.StartDynamics

Once you've started dynamics, now write code in your IPrimitiveCommandEvents_Dynamics subroutine to draw rubber bands.  See VBA help and the example I previously cited.