---

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

---

Stell doch mal so eine Datei die die Daten enthält ins Forum. Dann kann ich dein programm ausprobieren.

Jürgen

---

Ein generelles Problem von VBA in AutoCAD, jeder Menüaufruf,
egal ob transparent oder nicht führt zum Abbruch des aktuellen
VBA Makros. Das Problem gibt es seit Anbeginn (R14) und wurde
bis 2002 noch nicht behoben.

Unter
http://ww3.cad.de/foren/ubb/Forum54/HTML/002026.shtml

habe ich bereits darüber ausführlich geschrieben, auch eine Lösung in
Form einer DLL zum Download angeboten. Das Angebot mit dem Quellcode
steht nach wie vor, da ich nur ein paar Getxx Funktionen eingebaut habe.

------------------
Bernd Cuder
Cad&Co makes CAD easy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

danke für die hilfe. aber ich glaube, dass geht mir (als anfänger)
dann doch zu sehr ans 'eingemachte' ...
gruß jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP