---

Hallo zusammen,

kann mir einer verraten warum u.g. code mit der fehlermeldung "laufzeitfehler ... objekt gelöscht" abbricht ??

Sub testwinkel()
Dim bem As AcadDim3PointAngular
Dim v_pt(2), z1_pt(2), z2_pt(2) As Double
v_pt(0) = 0: v_pt(1) = 0
z1_pt(0) = 1: z1_pt(1) = 1
z2_pt(0) = 1: z1_pt(1) = 2
Set bem = ThisDrawing.ModelSpace.AddDim3PointAngular(v_pt, z1_pt, z2_pt, v_pt)

End Sub

mfg
jörg

------------------
Civil 3D 2006/2007, AIS9, Rhino, B&B
Dell M60, Windows XP

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

---

Hi Jörg,

Du hast 2 Fehler in deinem Code. 
Du definierst deine Koordinaten v_pt und z1_pt als Variant und nur z2_pt als Double, wobei alle den Typ Double haben müssen.
Ausserdem gibst du den Variablen den Z-Wert nicht mit.

So läuft es ohne Probleme:

Sub testwinkel1()
Dim bem As AcadDim3PointAngular
Dim v_pt(2) As Double
Dim z1_pt(2) As Double
Dim z2_pt(2) As Double
v_pt(0) = 0: v_pt(1) = 0: v_pt(2) = 0
z1_pt(0) = 1: z1_pt(1) = 1: z1_pt(2) = 0
z2_pt(0) = 1: z1_pt(1) = 2: z1_pt(1) = 0
Set bem = ThisDrawing.ModelSpace.AddDim3PointAngular(v_pt, z1_pt, z2_pt, v_pt)

End Sub

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 26. Jan. 2007 editiert.]

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

---

suppi das wars, danke carsten

------------------
Civil 3D 2006/2007, AIS9, Rhino, B&B
Dell M60, Windows XP

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