|
Solid Edge : VB Programmierung
eberhard_heisch am 23.05.2007 um 12:33 Uhr (0)
Hallo BJ,habe mich noch mal reingekniet, funktioniert jetzt.Units sind unterwegs------------------GrußE.Heisch
| | In das Form Solid Edge wechseln |
|
Solid Edge : VB Programmierung
eberhard_heisch am 22.05.2007 um 08:51 Uhr (0)
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
| | In das Form Solid Edge wechseln |
|
Solid Edge : VB Programmierung
eberhard_heisch am 21.05.2007 um 09:49 Uhr (0)
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
| | In das Form Solid Edge wechseln |
|
Solid Edge : Programmierung im Draft
eberhard_heisch am 11.10.2007 um 14:47 Uhr (0)
Hallo Edger,hat jemand eine Idee wie ich im Draft ein Oberflächenbearbeitungszeichen per VB programmieren und dann über ein Makro aufrufen kann.Da die Einstellungen für diesen Befehl nur an der Zeichnung bzw. an der Vorlage zur Zeichnung abgespeichert werden können, nicht lokal im Solid Edge Verzeichnis, ist eine nachträgliche Bearbeitung von alten bzw. Erstellen von Kopien aus alten Zeichnungen umständlich.Weitere Informationen siehe Bild.Gruß E. Heisch------------------GrußE.Heisch
| | In das Form Solid Edge wechseln |
|
Solid Edge : VB Programmierung
eberhard_heisch am 21.05.2007 um 13:58 Uhr (0)
Hallo BJ,hier noch mal ein Auszug aus dem Makro:............. Dim objLines2d As SolidEdgeFrameworkSupport.Lines2dDim objLine1 As SolidEdgeFrameworkSupport.Line2dDim objGroups As SolidEdgeFrameworkSupport.GroupsDim objGroup As SolidEdgeFrameworkSupport.Group .......................If W = 90 ThenX1 = dblXkorY1 = dblYKorX2 = X1Y2 = Y1 + L1 MittellinieSet objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)DX = 0.005X1 = X1 + DXY1 = Y1 + ((L1 - L2) / 2)X2 = X1Y2 = Y1 + L2Set objLine1 = objLines2d.AddBy2Points(X ...
| | In das Form Solid Edge wechseln |
|
Solid Edge : VB Programmierung
eberhard_heisch am 21.05.2007 um 12:31 Uhr (0)
Hallo Markus,hier noch ein paar Erläuterungen. Das Makro habe ich aus dem bestehenden Makro Mouse im Ordner: C:ProgrammeSolid Edge V17CustomMouse kopiert und angepasst.Die Koordinaten werden über die Mouse abgerufen.Hier ein Auszug aus dem Makro:...............If W = 90 ThenX1 = dblXkorY1 = dblYKorX2 = X1Y2 = Y1 + L1 MittellinieSet objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)DX = 0.005X1 = X1 + DXY1 = Y1 + ((L1 - L2) / 2)X2 = X1Y2 = Y1 + L2Set objLine1 = objLines2d.AddBy2Points(X1, Y1, X2, Y2)X1 = X1 ...
| | In das Form Solid Edge wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
