Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  AcadEntity = AcadEntity -> Nichts passiert

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  AcadEntity = AcadEntity -> Nichts passiert (928 mal gelesen)
Nemorem1
Mitglied



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

Beiträge: 17
Registriert: 24.09.2007

erstellt am: 05. Dez. 2007 13: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

Aloa,

ich habe hier glaube ich ein kleines Missverständnis. Ich habe mir schon einige CodeBeispiele zu dem Thema angesehen finde aber keinen Grund, warum das hier nicht funktioniert:

    Dim Enty As AcadEntity
    Dim UG As AcadEntity
    For Each Enty In EinSelectionSet
        On Error Resume Next 'Falls Enty keine Eigenschaft Name hat
        If Enty.name = "Gesucht" Then
            UG = Enty
        End If
    Next Enty

Also ein SelectionSet soll nach einem bestimmten Item durchsucht werden. Einmal gefunden soll dieses Objekt auf der Variablen UG gespeichert werden. Das Objekt wird immer gefunden, aber die Zuweisung:

UG = Enty

führt zu überhaupt nichts. UG bleibt immer "Nothing" und komplett leer. Wie bekomme ich mein gesuchtes Objekt auf die Variable UG?

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


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

Beiträge: 1357
Registriert: 24.07.2002

AutoCAD ACA 2018
Solidworks 2016 Sp5
Enterprise PDM 2016 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell T3620
Intel Core i7-7700K
16 GB Arbeitsspeicher
2x Samsung S24C650
Dell M4800

erstellt am: 05. Dez. 2007 14:29    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 Nemorem1 10 Unities + Antwort hilfreich

Hi,

ändere mal:

Code:
UG = Enty

in
Code:
set UG = Enty

Dann sollte es klappen.
BTWBy the way (So nebenbei bemerkt): Hast du eigentlich auch eine richtigen Namen?! Ich finde es ist persönlicher, wenn man wenigstens den Vorname des gegenüber kennt. 

Gruß, Carsten

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

Nemorem1
Mitglied



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

Beiträge: 17
Registriert: 24.09.2007

erstellt am: 06. Dez. 2007 11:47    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

Danke das wars also ^.^

Wenn du mir noch sagst, wie man

If UG <> Nothing Then

korrekt macht (bisher hab ich eine Hilfsvariable. Geht zwar auch aber wenn schon denn schon...) dann geb ich dir auch einen Namen 

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


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

Beiträge: 1357
Registriert: 24.07.2002

AutoCAD ACA 2018
Solidworks 2016 Sp5
Enterprise PDM 2016 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell T3620
Intel Core i7-7700K
16 GB Arbeitsspeicher
2x Samsung S24C650
Dell M4800

erstellt am: 06. Dez. 2007 12:10    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 Nemorem1 10 Unities + Antwort hilfreich

Hi Namenloser, 

Probiers doch mal mit:

Code:
If UG <> "Nothing" Then...

Gruß, Carsten

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

Stelli1
Moderator
Verm.-Ing.


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

Beiträge: 1521
Registriert: 17.08.2005

Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013

erstellt am: 07. Dez. 2007 10:29    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 Nemorem1 10 Unities + Antwort hilfreich

Hallo ???,

ich glaube du musst das so einsetzen

Code:
If Not entity Is Nothing Then

End If



Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

Nemorem1
Mitglied



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

Beiträge: 17
Registriert: 24.09.2007

erstellt am: 07. Dez. 2007 11: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

Grad wollt ich schreiben, dass es zwar keine Fehlermeldung mehr gibt, dabei aber immer true herauskommt.
Carsten, ich will meinen Namen zurück!

Ps: Danke Stelli1, so ist es richtig.

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


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

Beiträge: 1357
Registriert: 24.07.2002

AutoCAD ACA 2018
Solidworks 2016 Sp5
Enterprise PDM 2016 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell T3620
Intel Core i7-7700K
16 GB Arbeitsspeicher
2x Samsung S24C650
Dell M4800

erstellt am: 07. Dez. 2007 18:08    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 Nemorem1 10 Unities + Antwort hilfreich

Hi Yves, 

Asche auf mein Haupt. Ich hatte das nicht getestet, da man ja nicht immer ein Acad zur Hand hat.

Gruß, Carsten

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)2023 CAD.de | Impressum | Datenschutz