I think this will get the loops fixed. How much of this file is the drawing?

Could you post a DWG file in acad2000 format so I know what I am drawing? It would give me a better idea of what is going on instead of working in the dark.

[VBA]
While Not IsNull(Element)
ThisDrawing.Utility.Prompt "Apply some constraints" & Chr$(13)
Element = _
ThisDrawing.Utility.GetString(False, _
"enter the constraints on the nodes like(n,UX,0,,,UY,UZ ), " & _
"where n is the node no.:")
If Not IsNull(Element) Then
Print #intFile, "DK," & Element
End If
Wend
'Note: make this part in loop so that it can write these values
'untill user put null value as i did above to get elements end nodes
Print #intFile, " !Apply Load "

Element = "HOLD" 'force first one
While Not IsNull(Element)
Element = ThisDrawing.Utility.GetString(False, _
"enter force load to keypoints like(n,FY,-280e3),where n is the node no.:")
If Not IsNull(Element) Then Print #intFile, "FK," & Element
Wend
[/VBA]