---

Hallo,

ich habe seit Kurzem einen seltsamen Abbruch bei einem Befehl, wenn ich diesen als Teil meiner VLX-Anwendung starte. Für mich unerklärlich dabei ist, dass ich diesen Abbruch nicht habe, wenn ich in VisualLisp die entsprechenden Lisp-Dateien lade und dann den Befehl ausführe.

Größe VLX-Anwendung: 1206 KB

Soweit ich es bisher beurteilen kann, liegt es an einer Variablen, die an eine Funktion übergeben wird und danach den Wert nil hat. Hier ein Beispiel dafür:
( defun testfunktion ( / eww )
  (setq eww (entlast))
  (setq leg (entget eww)) ; leg noch in Ordnung
  (meinefunktion eww)     ; Übergabe an Funktion
  (setq leg (entget eww)) ; leg nicht mehr in Ordnung
  (princ)
)

Wie kann ich den Abbruch beheben?

Danke im Voraus und viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 30. Jul. 2012 editiert.]

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

---

wird eww in deiner Funktion überschrieben ?
Debuggen im Vlide ist dir ein Begriff ?

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

meinefunktion.lsp.txt

Hallo Thomas,

danke für Deine Antwort.

Zitat:

---

Original erstellt von CADmium:

wird eww in deiner Funktion überschrieben ?

---

Nein, sie wird nur an weitere Funktionen übergeben (siehe reduzierte Funktion in der Anlage). Diese weiteren Funktionen muss ich noch bezüglich Deiner Frage kontrollieren.

Zitat:

---

Original erstellt von CADmium:

Debuggen im Vlide ist dir ein Begriff ?

---

Ja, aber genau dabei kommt der Abbruch nicht vor. Deshalb weiß ich im Moment auch nicht weiter.

Viele Grüße
Bernd

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

---

Hallo,

Zitat:

---

Original erstellt von Bernd10:

Diese weiteren Funktionen muss ich noch bezüglich Deiner Frage kontrollieren.

---

Es ist mir auf die Schnelle nicht möglich, die Unterfunktionen zu kontrollieren, da die eigentliche Variable eww immer wieder an weitere Funktionen übergeben wird.

Muss ich beim Kontrollieren nur auf den Namen der Variable (= eww) achten, oder auch auf die davon abweichenden Namen?

Viele Grüße
Bernd

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

---

Hallo Bernd,
vielleicht mußt Du auch den Inhalt der Variablen prüfen:

Code:

---

(defun c:test ( / obj)
  (setq Obj (car(entsel)))

  ;;;Objekt wird gelöscht, die Variable "Obj" bleibt aber wie sie ist
  (vla-delete (vlax-ename->vla-object obj))
  (if Obj
    (progn
      (alert "die Welt ist nur scheinbar in Ordnung.")
      (entget obj);;;Entget gibt NIL zurück
      ))
  )

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Hallo Jörn,

danke für Deine Antwort.

Zitat:

---

Original erstellt von joern bosse:

vielleicht mußt Du auch den Inhalt der Variablen prüfen:

---

ich habe nun folgenden Code vor und nach meiner Funktion verwendet:
(if (or (= eww nil) (= (entget eww) nil))
  (progn
    (alert "die Welt ist nur scheinbar in Ordnung.")
  )
)
Führe ich den Befehl in Vlisp-Editor (VLIDE) mit geladenen Lisp-Dateien aus, werden die alert-Funktionen nicht aufgerufen und es funktioniert wie gewünscht.
Führe ich den Befehl in AutoCAd von der ARX-Anwendung aus, wird die alert-Funktion nach meiner Funktion meinefunktion ausgeführt.
Dadurch kommt es zu meinem oben beschriebenen Problem, dass die Ausführung des Befehls nur aus der VLX-Anwendung heraus nicht funktioniert. Hier muss folglich irgendetwas unterschiedlich laufen.

Wie kann so etwas passieren und wie kann ich das Problem beheben?

Viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 31. Jul. 2012 editiert.]

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

---

Hallo Bernd,
ist jetzt nur ein Schuß ins Blaue, kann das was damit zu tun haben, wenn eine VLX-Anwendung mit der Option "Separater Namensbereich" verwendet wird (ich selber habe das noch nie ausprobiert).

Einfach mal im VLIDE unter Datei=>Anwendung erstellen=>Eigenschaften einer Anwendung nachschauen.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Hallo Jörn,

Zitat:

---

Original erstellt von joern bosse:

ist jetzt nur ein Schuß ins Blaue, kann das was damit zu tun haben, wenn eine VLX-Anwendung mit der Option "Separater Namensbereich" verwendet wird (ich selber habe das noch nie ausprobiert).

Einfach mal im VLIDE unter Datei=>Anwendung erstellen=>Eigenschaften einer Anwendung nachschauen.

---

ich habe zuerst den Haken bei der Option "Separater Namensbereich" gelöscht, danach die Projekt-FAS neu erstellt und anschließend die VLX-Anwendung neu erstellt. Leider erscheint das Fenster der alert-Funktion wieder und der Fehler ist auch damit vorhanden.

Viele Grüße
Bernd

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

---

Lese dir mal >>das<< durch .. vielleicht hilfts weiter.

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

Zitat:

---

Original erstellt von CADmium:
Lese dir mal >>das<< durch .. vielleicht hilfts weiter.

---

ich halte mich eigentlich schon immer im Prinzip an diese Empfehlungen von mapcar. Ich will aber nicht ausschließen, dass ich eine Variable meiner VLX-Anwendung (ca. 900 Funktionen) übersehen habe. Das würde auch insofern passen, dass ich den beschriebenen Fehler erst seit kurzer Zeit habe. Ich versuche dies herauszufinden und melde mich, falls ich neue Inforamtionen habe.

Viele Grüße
Bernd

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

---

Hallo,

Zitat:

---

Original erstellt von Bernd10:
Ich versuche dies herauszufinden und melde mich, falls ich neue Inforamtionen habe.

---

ich war bis jetzt der Meinung, dass ich auf einem guten Weg bin, um mein Problem lösen zu können. Leider habe ich nun an einer Stelle im Programm, bei der ich nicht weiter weiß.

Hier zunänchst die Ausgabe vom Textfenster:

---------------------------------------------------------------------
cwwausf = 2
crahmen = 19
ctafho = 2000
ctafbr = 3000
*ewwft* = <Objektname: 7ef14130>

(vl-doc-set '*lelementboxeninfeld* (reww_elementboxen_infelder_ermitteln
*ewwft* 3))

cwwausf = 2
crahmen = nil
ctafho = IDispatch
uietErrorMode) (DCLNEU VLR-reactors acTopMask . acMenuFileCompiled)
(*IGCSZFOLOVERLAY* C:WSCHRAFFURL :VLR-Command-Reactor :VLR-redirected
vla-get-PickFirst vla-GetWindowToPlot . vla-get-TrueColor) (C:KOPIEREN
vla-put-TagString vla-put-CenterMarkSize vla-SetGridColor . vla-get-ProxyImage)
(vla-get-Measurement vla-put-KeyLength vla-put-UnderlayVisibility . GRCLEAR)
(ACET-FILE-ATTR ACET-SYS-TERM SSOUT_UNX_PUNKTDATEN vla-get-LayoutShowPlotSetup
. acOTEmbedded) (OBJEKTE_DIALOG vla-get-IntersectionBoundaryLinetype
vla-get-Annotation vla-put-Invisible . acDimArchitecturalStacked)
(ENTMAKE_LINIE_KREISBOGEN SSOUT_SAP_DATEI_VORBELEGEN
vla-ClearTableStyleOverrides vla-get-FullScreenTrackingVector
vla-GenerateSectionGeometry . VL-ACAD-DEFUN) (*CPFADWWBILDEGR* . $DATA)
(ZFORMANGABEN_VORBELEGEN VLR-document vla-put-TimeServer .
vla-put-IntersectionBoundaryLineweight) (vla-get-TextFontStyle vla-get-IsXRef .
acTopRight) (vla-put-PostScriptPrologFile vla-AddExtrudedSolidAlongPath .
acHeaderRowAlignment) (*IGCPJKTBEZ* FARBINFO_ELEMENT_ERMITTELN
KOORDINATEN_KONRELEVANT_ERMITTELN acSectionStateBoundary . VL-CONSP)
(SOWWANGABEN_VORBELEGEN :VLR-endAttach vla-MoveToTop vla-get-AngleFormat
vla-InsertMenuInMenuBar vla-get-PageSetupOverridesTemplateFile vla-AddBox
ac3in_1ft . acViewport4) (ACET-VAR-SETVAR *IGCBRFAK* .
acToolbarDockBottom))orBookPath . acInvalidGridLine) (SSOUT_FRMA .
:VLR-lispCancelled) (*CTAGORGKONTUR* *LWWTYPENAT* VLR-Data-Set
acHeaderHorzTopLineWeight SETFUNHELP . SYM) (*IGCABSTVSKVBDPROFMIHO*
*IGCNAMEBEN* GRUNDFL_PLOT_WW_AKTUALISIEREN vla-get-EntityColor
acAlignmentProperty acDefaultUnits . CADDDR) (*IGCAFANZ* *IGCAFEWIN*
OBJEKTE_NRZ_ERSTELLEN vla-GetBackgroundColor vla-get-FitTolerance
vla-get-AffectsGraphics . SETCFG) (ASI_CMPIDENT C:ACADWE_ZEICH
vla-put-DefaultInternetURL acCastsShadows acDragDisplayAutomatically . MINUSP)
(*IGCTAFASHO* C DNRZ KREISVKANGABEN_AUSGEBEN acBottom . acFractional)
(vla-Display . vla-GetCustomData) (PKT BEMASSUNG_PUNKTWAHL_ZEICHNEN
KOORDINATEN_KONTUR_ERSTELLEN SETVAR_SNAPBASE vla-GetXData vla-New
vla-put-UnitsFormat . acAttachmentPointTopRight)
(*RVSKVBDPROFMIHO750ETHOGRANZ3* KNNRANGABENLISTE_ERSTELLEN
REWW_TAFAODG_WWAUSF2U3_VSKVBDPROFILE SSOUT_GENWA_ELEMENT ZFORMANGABEN_SCHREIBEN
vla-get-Arrowhead1Type . acAlignPntAcquisitionShiftToAcquire)
(*RVSKVBDPROFMIHO1000ETHOGRANZ0* :VLR-beginDeepClone vla-put-DemandLoadARXApp
vla-get-Bank . vla-get-LeaderLineType) (*CNIETENGR* C DNATZM
ELEMENTNR_REWW_ERMITTELN vla-put-LineWeightDisplay vla-SetContentColor2
vla-GetCellGridLineWeight . acUpdateOptionOverwriteFormatModifiedAfterUpdate)
ACET-FILE-COPY (ACET-INI-GET vla-get-TextureMapPath acInches . VL-BB-REF)
(ACET-STR-WCMATCH KREISVK_ANGABEN_KOORDINATEN vla-get-PlotLogFilePath
vla-put-Height . acScaleToFit) (*IGCBUSNRZSMK* *RALF2_RAHTAF* PFEILE_DIALOG
C:SSDATENE . ADD_LIST) (*LFARBEN_ACI_RGB* *IGCSCHRPOOLULET*
SSIN_DRHALLERWE_REWW_ERSTELLEN vla-get-AltFontFile
vla-get-MTextAttributeContent acOutside . ac3dPolyline) (COMMAND_DIMLINEAR
TEXTANGABEN_MODI vla-get-DriversPath vla-put-MLineScale . vla-SetColor)
(vla-get-NumberOfControlPoints vla-Eval vla-get-Limits . REVERSE)
(*IGCELETAFAODG* NATZANGABEN_VORBELEGEN SCHNPKT_KREIS_LINIE
SOWW_KONTUR_ERMITTELN . ADS) (*LWW_SONDGR* ZFORM_ERSTELLEN vla-get-PlotPolicy .
vla-put-UseStandardScale) (vla-get-AllowedValues VLISP-FASRES-LOAD . STRLEN)
(*CTAGDATBLKEND* vla-get-FullFileName vla-AddCylinder . PRAGMA) (PREFERENCES
:VLR-beginDwgOpen vla-get-Units vla-put-ExtLine1Linetype vla-ZoomCenter
acTopLeft acEnglish C:VLIDE . VL-CMDF) (ACET-FILE-CWD ZNRRES_DIALOG
vla-put-CustomIconPath vla-put-Alignment . vla-get-Origin) nil
(vla-put-ProfileRotation . LOG) (vla-get-ExtensionLineColor vla-get-Material
vla-get-ActiveSpace . RTOS) (vla-get-CurveTangencyLinesLinetypeScale
vla-AddDimAngular vla-put-PrinterPaperSizeAlert acDemanLoadDisable .
VL-DOC-SET) (*LELEBOXAT* vla-get-LeaderCount vla-put-Normal vla-put-Password .
GETANGLE) (*IGCANTIGRAFFOL* :VLR-endDwgOpen vla-get-BaseRadius
vla-get-Perimeter vla-put-SymbolPosition . vla-get-Left) (vla-put-Left
vla-put-PickDrag . vla-put-Q
*ewwft* = <Objektname: 7ef14130>
---------------------------------------------------------------------

Vor dem Aufruf der Funktion reww_elementboxen_infelder_ermitteln sind die Werte meiner Variablen crahmen und ctafho noch in Ordnung. Danach habe sie falsche Werte und es kommt noch eine lange Ausgabe, mit der ich gar nichts anfangen kann.

Wird hier flascher Speicher benutzt?
Ist meine VLX-Anwendung zu groß?

Danke im Voraus und viele Grüße
Bernd

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

---

warum vl-doc-set ? und dann ne Ename-Variable ? warum nicht setq ?

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von Bernd10:

  (setq eww (entlast))
  (setq leg (entget eww)) ; leg noch in Ordnung
  (meinefunktion eww)     ; Übergabe an Funktion
  (setq leg (entget eww)) ; leg nicht mehr in Ordnung

---

Meine allererste Vermutung wäre, dass das Element EWW in (meinefunktion eww) gelöscht wird. Dabei tritt nämlich genau das beschriebene Verhalten auf, und das ist für mich, außer dass die globale Variable EWW in (meinefunktion eww) anders belegt wird, die einzige denkbare Ursache für das Problem.

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

---

Hallo Thomas,

Zitat:

---

Original erstellt von CADmium:
warum vl-doc-set ?

---

weil der Wert dieser Variable innerhalb des Dokuments gültig sein muss.

Zitat:

---

Original erstellt von CADmium:
und dann ne Ename-Variable ?

---

Meinst Du damit die Variable *ewwft*? Daran hängen EEDs, die in der Unterfunktion ermittelt werden.

Viele Grüße
Bernd

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

---

Hallo archtools,

danke für Deine Antwort.

Zitat:

---

Original erstellt von archtools:

Meine allererste Vermutung wäre, dass das Element EWW in (meinefunktion eww) gelöscht wird.

---

Nein, das Element EWW wird in (meinefunktion eww) nicht gelöscht.

Viele Grüße
Bernd

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

---

Hallo,

abschließend zu meinem Problem möchte ich hiermit nur noch informieren, dass ich das Problem nicht lösen konnte, obwohl ich in den letzten Tagen bei den betreffenden Unterfunktionen die Übergabevariablen sofort in lokale Variablen übernommen habe. Ich kann hier aber nicht ausschließen, dass ich eine übersehen habe.
Deshalb bin zu der Entscheidung gekommen, mit den Sourcen auf den letzten funktionierenden Stand zurück zu gehen. Ich werde die dadurch verloren gegangenen Neuerungen in kleinen Schritten neu programmieren und gleich die Debug-Version (geladene Lisp-Dateien) und Release-Version (VLX-Anwendung) kontrollieren. Vielleicht kann ich so mein Problem finden.

Danke nochmals für die Informationen und viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 02. Aug. 2012 editiert.]

[Diese Nachricht wurde von Bernd10 am 02. Aug. 2012 editiert.]

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