Hallo Leute ,
folgendes ich möchte per VB einen Punkt zeichnen .... nunja klappt ganz
gut. Dennoch möchte ich die Koordinaten per Hand eingebend und ei
1.Koordinate soll vom Mauszeiger abgeleses werden:
1 | Option Explicit
|
2 | Private Sub CommandButton1_Click()
|
3 |
|
4 |
|
5 |
|
6 |
|
7 |
|
8 | Dim varPunkt(0 To 2) As Double
|
9 | Dim p1, p2, p3, _
|
10 | ang As Double, _
|
11 | V As String, _
|
12 | B As String, _
|
13 | R As String, _
|
14 | oDim As AcadDimRotated
|
15 | B = TextBox1.Text
|
16 | V = TextBox3.Text
|
17 | R = TextBox2.Text
|
18 |
|
19 | UserForm1.Hide
|
20 | With ThisDrawing.Utility
|
21 | p1 = .GetPoint(, "Specify first curve origin:")
|
22 |
|
23 |
|
24 |
|
25 | varPunkt(0) = 30
|
26 | varPunkt(1) = 30
|
27 | varPunkt(2) = 0
|
28 | ThisDrawing.ModelSpace.AddPoint (varPunkt)
|
29 |
|
30 |
|
31 | End With
|
32 | End Sub
|
Warum funktioniert das nicht?
