Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Engineering Base
  VBA Automatische Drähte erstellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Digital Twin: mehr Wissen für effizientere Nutzung
Autor(16237) Thema:  VBA Automatische Drähte erstellen (1089 / mal gelesen)
AlexSt
Mitglied
Elektrokonstrukteur


Sehen Sie sich das Profil von AlexSt an!   Senden Sie eine Private Message an AlexSt  Schreiben Sie einen Gästebucheintrag für AlexSt

Beiträge: 176
Registriert: 21.02.2012

ELCAD 7
Engineering Base 6
EPLAN P8 V2

erstellt am: 02. Feb. 2016 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von WickieEB an!   Senden Sie eine Private Message an WickieEB  Schreiben Sie einen Gästebucheintrag für WickieEB

Beiträge: 34
Registriert: 16.04.2015

erstellt am: 02. Feb. 2016 18:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für AlexSt 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von AlexSt an!   Senden Sie eine Private Message an AlexSt  Schreiben Sie einen Gästebucheintrag für AlexSt

Beiträge: 176
Registriert: 21.02.2012

ELCAD 7
Engineering Base 6
EPLAN P8 V2

erstellt am: 03. Feb. 2016 07:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi WickieEB,

danke für deinen Tipp. Das war es!

------------------
Gruß aus Bielefeld 

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

AlexSt
Mitglied
Elektrokonstrukteur


Sehen Sie sich das Profil von AlexSt an!   Senden Sie eine Private Message an AlexSt  Schreiben Sie einen Gästebucheintrag für AlexSt

Beiträge: 176
Registriert: 21.02.2012

ELCAD 7
Engineering Base 6
EPLAN P8 V2

erstellt am: 03. Feb. 2016 09:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von WickieEB an!   Senden Sie eine Private Message an WickieEB  Schreiben Sie einen Gästebucheintrag für WickieEB

Beiträge: 34
Registriert: 16.04.2015

erstellt am: 03. Feb. 2016 18:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für AlexSt 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von AlexSt an!   Senden Sie eine Private Message an AlexSt  Schreiben Sie einen Gästebucheintrag für AlexSt

Beiträge: 176
Registriert: 21.02.2012

ELCAD 7
Engineering Base 6
EPLAN P8 V2

erstellt am: 04. Feb. 2016 09:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Oh man,

habe mich schon gefragt wo für dieser Typ ist ... ;-)

Vielen Dank nochmal! Klappt alles bestens so!

------------------
Gruß aus Bielefeld 

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz