Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Sperrverletzung

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:  Sperrverletzung (403 mal gelesen)
otm
Mitglied
Bauingenieur


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

Beiträge: 136
Registriert: 26.08.2009

MS Win 10
AutoCAD Civil 3D 2019.3.2 Update
VBA Enabler 2019
MS Access Database Enginge X64
MSO 2016 (64bit)

erstellt am: 28. Apr. 2021 09:09    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

Liebes Forum,

ich möchte die Beschreibung eines Layers ändern mit

Code:

...
ThisDrawing.Layers.Item((LayLst(intI))).Description = strVariable
...

Das Sub habe ich auf einen Icon gelegt.

Beim ersten Anklicken des Icons läuft alles richtig durch.

Klickt man gleich nach der ersten Ausführung nochmal auf das Icon, erhält man eine Fehlermeldung "Sperrverletzung" in der oben angeführten Zeile.

Zeichnet man vor dem zweiten Mal Ausführen z.B. eine Linie, läuft es wieder einwandfrei durch.

Füge ich nur diese Zeile in ein Sub ein und setze einen festen Layernamen ein und einen festen String, kann man das Sub fehlerfrei mehrmals ausführen.

Woran kann das liegen?
Was ist das Objekt, das die Sperrverletzung auslöst?
Wie kann man das finden?
Wie kann man das betroffene Objekt dann "freigeben"?

------------------
Grüße aus München
Christian

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

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



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

Beiträge: 2384
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2020
Plateia, Canalis
Visual Basic

erstellt am: 28. Apr. 2021 14:49    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 otm 10 Unities + Antwort hilfreich

Hallo Christian,
Hast Du eine Fehlerbehandlung im Programm? Dann könnte man das im Debug-Modus nachvollziehen.
Im ersten Moment würde ich tippen dass die LayLst() nicht gefüllt ist oder ein anderer Vorgang noch nicht abgeschlossen.

Grüße
Klaus 

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

otm
Mitglied
Bauingenieur


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

Beiträge: 136
Registriert: 26.08.2009

MS Win 10
AutoCAD Civil 3D 2019.3.2 Update
VBA Enabler 2019
MS Access Database Enginge X64
MSO 2016 (64bit)

erstellt am: 04. Mai. 2021 18:40    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

Bei Fehlerbehandlung kenn' ich mich nicht aus.
Ich schalte alle OnError aus und warte, wo der Fehler auftaucht.
Vielleicht finde ich ihn.
Danke erst mal für den Tipp. Ich werde weitersuchen.

------------------
Grüße aus München
Christian

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

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



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

Beiträge: 2384
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2020
Plateia, Canalis
Visual Basic

erstellt am: 05. Mai. 2021 14:38    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 otm 10 Unities + Antwort hilfreich

Hi,

Zur Fehlerbehandlung:
Ich habe in jedem Programm einen Standardaufbau:

Code:
Sub neu()
' Dimensionierungen

On Error GoTo Err_Handler
' Programmcode


Exit Sub ' beendet den Programmteil
Err_Handler:
  MsgBox "Fehler: " & Err.Number & vbCrLf & Err.Description
  Stop
  Resume Next

End Sub



Damit wird der Fehler ausgegeben und das Programm angehalten. Mit F8 kommt man auf die dem Fehler folgende Zeile.
Dadurch dass man im Debug-Modus ist kann man auch im Überwachungsfenster die unterschiedlichen Variablen betrachten.

Grüße
Klaus 

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

otm
Mitglied
Bauingenieur


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

Beiträge: 136
Registriert: 26.08.2009

MS Win 10
AutoCAD Civil 3D 2019.3.2 Update
VBA Enabler 2019
MS Access Database Enginge X64
MSO 2016 (64bit)

erstellt am: 13. Mai. 2021 12:14    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 ein verspätetes Danke.

------------------
Grüße aus München
Christian

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