---

Hallo Edger,
habe mit VB ein Makro erstellt. Thema Darstellung im Draft von Linien.
Funktioniert sowei ganz gut, ich wollte aber noch die abgesetzten Linien als Gruppe definieren, komme aber nicht weiter.
Hat jemand einen Tip dazu.

------------------
Gruß
E.Heisch

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

---

Kleiner Tip dazu: Beschreib doch erstmal das Problem etwas genauer 
Oder stell, wenn möglich, den Quellcode hier mal rein.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

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

---

bild01.jpg

Hallo Markus,
hier noch ein paar Erläuterungen. Das Makro habe ich aus dem bestehenden Makro Mouse im Ordner: C:\Programme\Solid Edge V17\Custom\Mouse kopiert und angepasst.
Die Koordinaten werden über die Mouse abgerufen.

Hier ein Auszug aus dem Makro:
...............

If W = 90 Then

X1 = dblXkor
Y1 = dblYKor
X2 = X1
Y2 = Y1 + L1
' Mittellinie
Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)
DX = 0.005
X1 = X1 + DX
Y1 = Y1 + ((L1 - L2) / 2)
X2 = X1
Y2 = Y1 + L2
Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)
X1 = X1 - 2 * DX
X2 = X1
Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)

End If
……………….

Anbei noch ein Bild nach Ausführung des Makros.

------------------
Gruß
E.Heisch

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

---

Hallo!

- Linien selektieren (manuell oder per Code)
- Groups.Add

Gruss,
BJ

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

---

Hallo BJ,

hier noch mal ein Auszug aus dem Makro:

.............
   
Dim objLines2d As SolidEdgeFrameworkSupport.Lines2d
Dim objLine1 As SolidEdgeFrameworkSupport.Line2d
Dim objGroups As SolidEdgeFrameworkSupport.Groups
Dim objGroup As SolidEdgeFrameworkSupport.Group
.......................

If W = 90 Then

X1 = dblXkor
Y1 = dblYKor
X2 = X1
Y2 = Y1 + L1

' Mittellinie

Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)

DX = 0.005
X1 = X1 + DX
Y1 = Y1 + ((L1 - L2) / 2)
X2 = X1
Y2 = Y1 + L2

Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)

X1 = X1 - 2 * DX
X2 = X1

Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)

objGroups.Add (123) 'Name der Gruppe
objGroup.AddToGroup 1, objLine1

End If……………….

Etwa in dieser Art?

------------------
Gruß
E.Heisch

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

---

Ja, so geht es auch.

Set objGroup = objGroups.Add (123) 'Name der Gruppe
objGroup.AddToGroup 1, objLine1

Aber ich würde die Linien in einem SelectSet zusammenführen, und dann ein Groups.Add machen.

...
objSelectSet.Add objLine1
...
objGroups.Add
...

Gruss,
BJ

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

---

Hallo BJ,
vielen Dank für Deine Informationen.
Kann zur Zeit leider nicht weitermachen.
Ich werde mich wieder melden, wenn es funktioniert.

------------------
Gruß
E.Heisch

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

---

Hallo BJ,
habe mich noch mal reingekniet, funktioniert jetzt.

Units sind unterwegs

------------------
Gruß
E.Heisch

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