Hallo liebe Turbocad-Gemeinde
bei der Umstellung meines Makros (Stahlbau-Profile) auf TC 10.Prof
habe ich ein Problem mit dem Befehl "GetMouseClick x1, y1"
Bei erreichen der Befehlszeile bricht das Makro mit einem Laufzeitfehler ab.
Wenn jemand so freundlich wäre das unten aufgeführte Macro zu testen
ob der Fehler bei meiner Systemeinstellung (Vermutung von Support - IMSI) oder im Befehl liegt.
Mein Betriebsystem ist Windows 2000
Im voraus vielen Dank
Gerhard Schönhofer
Macro-Quelltext
================
' Zeichnen der Profile
' Konstante
Const gkGraphic = 11
Const gkArc = 2
Const gkText = 6
Const gfCosmetic = 128&
'Useful math constants
Const Pi# = 3.14159265359
Sub Profile()
Dim App As Application
Dim ActDr As Drawing
Dim Grs As Graphics
Dim GrfThis As Graphic
Dim grfChild As Graphic
Dim gr As Graphic
Dim V As View
Dim x0 As Double
Dim x1 As Double
Dim y1 As Double
Dim y0 As Double
Dim z As Double
Set App = IMSIGX.Application
Set ActDr = App.ActiveDrawing
Set Grs = ActDr.Graphics
Set gr = Grs.Add(gkGraphic)
Set V = ActDr.Views(0)
MsgBox ("Wähle Punkt")
V.GetMouseClick x1, y1 'Koordinaten im Bildschirm
V.ViewToWorld x1, y1, 2, x0, y0, z ' umwandeln auf die Zeichnung
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP