hallo zusammen,
ich habe folgendes problem. ich benutze einen vba-code zum
interpolieren von geländehöhen. das funktioniert auch soweit.
das programm kommt allerdings zum absturz, wenn ich während der
ausführung zb. auf den button für 'fang zentrum', 'fang endpunkt',
etc. komme. wie kann ich es ermöglichen, dass der benutzer einen
fangpunkt (während der ausführung) auswählen kann, ohne dass das
programm abschmiert? geht das überhaupt? anbei der beispiel-code.
danke für jede hilfe
jörg
....
Unload Me
Open "S:\Zeichnungen\JÖRG\Querprofile\intanf.txt" For Input As #300
Input #300, xa, ya, za
Close #300
Open "S:\Zeichnungen\JÖRG\Querprofile\intend.txt" For Input As #300
Input #300, xe, ye, ze
Close #300
returnPnt = ThisDrawing.Utility.GetPoint(, "Anfangspunkt eingeben: ")
x = returnPnt(0)
y = returnPnt(1)
z = returnPnt(2)
If x = xe And y = ye Then
MsgBox ("----- Anfangspunkt = Endpunkt -----" _
& Chr(13) & "-------- neuen Punkt wählen ! --------")
GoTo 1000:
End If
centerPoint(0) = x: centerPoint(1) = y
radius = 0.15
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
circleObj.Color = 3
If z = 0 Then
z = InputBox(Prompt:="Bitte Höhe eingeben : ", _
title:="Punkt : X= " & x & " / Y= " & y, _
Default:=Format(za, "0.000"), xpos:=1000, ypos:=8000)
Else
z = InputBox(Prompt:="Bitte Höhe eingeben : ", _
title:="Punkt : X= " & x & " / Y= " & y, _
Default:=Format(z, "0.000"), xpos:=1000, ypos:=8000)
End If
If z <> "" Then
z = z
Else
z = 0
End If
Open "S:\Zeichnungen\JÖRG\Querprofile\intanf.txt" For Output As #300
Write #300, x, y, z
Close #300
Open "S:\Zeichnungen\JÖRG\Querprofile\intend.txt" For Output As #300
Write #300, xe, ye, ze
Close #300
1000:
sei = TextBox22
dateiname = "S:\Zeichnungen\JÖRG\Querprofile\seite.txt"
Open dateiname For Output As #1
Write #1, sei
Close #1
RunMacro "Modul1.Querprofile"
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP