---

Hallo zusammen,

ich würde gerne per Makro einen Linienzug auswählen und an jedem Vertex eine Corner erstellen. Ich habe bis jetzt nur die Möglichkeit gefunden 2 Elemente zu definieren und per Corner zu verbinden. Gibt es die Möglichkeit diese Funktion zu verwenden mit nur einem Input-Element und der Option "Corner on Vertex"?

Viele Grüße,
TJ

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

---

Servus
Probiere es mal so (läuft IMHO nicht besonders stabil):
- Corner mit AddNewCorner anlegen (also nicht als 3D-Ecke)
- Nachträglich die Eigenschaft "OnVertex" auf "True" stellen (auf 3D-Ecke umschalten)

Code:

---

...
Dim Corner As HybridShapeCorner
Set Corner = ShapeFactory.AddNewCorner(reference1, Nothing, Nothing, 4, 1, 1, False)

Corner.OnVertex = True
...

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 21. Feb. 2012 editiert.]

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

---

Vielen Dank, genau was ich brauche.

Jetzt habe ich nur noch das Problem, dass er mir eine Fehlermeldung liefert, wenn ich ein Update drüber laufen lasse. Öffne ich das Corner-Element anschließend und drücke ohne etwas zu verändern auf OK, dann funktioniert es. Habe dieses Probelm schon öfters hier im Forum gefunden aber nie eine Lösung dazu...

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

---

Dann fehlt ihm wahrscheinlich noch irgend eine Einstellung.
Wär natürlich immer cool, wenn man die Fehlermeldung postet und wir sie so lesen können. :-)

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

In der Zeile, wo ich das Corner-Objekt updaten möchte erhalte ich die Meldung:

"Method "MainBody" of object "Part" failed"

Wenn eine Einstellung fehlen würde verstehe ich nicht, warum es geht, wenn ich einfach das Corner-Objekt anklicke und wieder auf OK gehe, ohne eine der Einstellungen zu verändern.

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

---

Servus
Lies mal die Parameter der nicht aktuallisierten und der manuelle aktuallisierten Corner mit dem Watchfenster aus.
Ist ein Unterschied erkennbar?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Wie sieht denn die Update-Zeile aus?

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Der Unterschied liegt bei der Direction. Beim Makro erstellten Objekt heißt wird "nothing" angezeigt. Sobald ich das Objekt anklicke, steht Default(Computed) im entsprechendem Fenster.

Bin aber leider noch nicht drauf gekommen, wie ich per Makro einstelle, dass er automatisch eine Direction wählt bzw. berechnet, so dass mein Prgroamm fehlerfrei durchläuft.

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

---

Servus
Also die Corner stellt sich irgendwie zickig an.
Geht es bei dir wenn du den Radius etwas vergrößerst? Oder den Radius nach dem anlegen der Corner nochmal neu setzt?

Code:

---

Dim Corner As HybridShapeCorner
Set Corner = ShapeFactory.AddNewCorner(reference1, Nothing, Nothing, 5, 1, 1, False)
Corner.OnVertex = True
Corner.Radius.Value = 5

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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