| |
| 35 Prozent mehr Aufträge - Digitalisierung und Dekarbonisierung bringen Aucotec Rekordergebnisse, eine Pressemitteilung
|
Autor
|
Thema: VBA Automatische Drähte erstellen (1134 / mal gelesen)
|
AlexSt Mitglied Elektrokonstrukteur
Beiträge: 176 Registriert: 21.02.2012 ELCAD 7 Engineering Base 6 EPLAN P8 V2
|
erstellt am: 02. Feb. 2016 08:53 <-- editieren / zitieren --> Unities abgeben:
Hallo, kann mir jemand sagen, ob und wie es möglich ist, per VBA, "Automatische Drähte" zu erzeugen? Ich arbeite gerade an einem Makro welches durch Drähte angeschlossene Geräte findet und möchte es gerne so komfortabel wir möglich gestalten, also ohne vorher Drähte erzeugen zu müssen. Vielen Dank schon mal! ------------------ Gruß aus Bielefeld Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WickieEB Mitglied Alg. Konstruktör
Beiträge: 34 Registriert: 16.04.2015
|
erstellt am: 02. Feb. 2016 18:20 <-- editieren / zitieren --> Unities abgeben: Nur für AlexSt
Das ist es, was du suchst! ( evtl. sogar noch etwas mehr ) Application.QMObject.CalculateWiring …. ------------------ Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. (Bertold Brecht) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AlexSt Mitglied Elektrokonstrukteur
Beiträge: 176 Registriert: 21.02.2012 ELCAD 7 Engineering Base 6 EPLAN P8 V2
|
erstellt am: 03. Feb. 2016 07:33 <-- editieren / zitieren --> Unities abgeben:
|
AlexSt Mitglied Elektrokonstrukteur
Beiträge: 176 Registriert: 21.02.2012 ELCAD 7 Engineering Base 6 EPLAN P8 V2
|
erstellt am: 03. Feb. 2016 09:44 <-- editieren / zitieren --> Unities abgeben:
Noch mal Hi WickiEB, vielleicht kannst Du mir noch bei einer anderen Sache helfen? Ich bekomme vom AucTreeCtrl via Application.Utils.GetObjectByID(tree.selection()) eine Collection mit allen selektierten Geräten. Nun möchte ich aber diese Collection um einige Geräte erleichtern, wie z.B. IO´s bei denen kein IO-Typ eingetragen ist (aucattrIOType). Wie kann ich das bewerkstelligen? Mir fehlt bei Objectitems des öffternen eine Funktion wie "RemoveItem(objectitems,objectitem)as objectitems" oder so ähnlich!? Oder gehe ich da völlig falsch dran? ------------------ Gruß aus Bielefeld Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WickieEB Mitglied Alg. Konstruktör
Beiträge: 34 Registriert: 16.04.2015
|
erstellt am: 03. Feb. 2016 18:17 <-- editieren / zitieren --> Unities abgeben: Nur für AlexSt
Hi, Die Sammlung ObjectItems ist nicht änderbar, weil es irgendwas mit parallelen Änderungen von Anwendern an identischen Daten zu tun hat (so in etwa hat man mir das mal erklärt). Die Lösung ist die ObjectItemCollection Dim oColl As ObjectItemCollection Set oColl = New ObjectItemCollection oColl.AddItems Application.Selection oColl.RemoveItem Application.Selection(1) ....... Gruß WickieEB ------------------ Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. (Bertold Brecht) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AlexSt Mitglied Elektrokonstrukteur
Beiträge: 176 Registriert: 21.02.2012 ELCAD 7 Engineering Base 6 EPLAN P8 V2
|
erstellt am: 04. Feb. 2016 09:35 <-- editieren / zitieren --> Unities abgeben:
|