In den Warenkorb

[blubossa]

Hi.
Ich schreibe eine Lisp, die Anpassung des refclose Befehls bietet.
Ich habe einen ersten Test gemacht und es funktioniert fast perfekt, außer zum ersten Mal habe ich den Befehl ausgeführt.

in der Praxis das erste Mal, wenn ich meinen Befehl ausführen lisp die benutzerdefinierte refclose eingefügt innen ist völlig ignoriert,
Aber wenn ich den Befehl wieder ausführen, funktioniert es perfekt, auch wenn ich es zehnmal ausführt...
Ich kann nicht wirklich verstehen, warum dieses Verhalten auftritt, ich hoffe, jemand wird mir helfen, diese kleine Unannehmlichkeit zu lösen.

Ich teste es auf autocad 2016.
Ich stecke eine Dwg-Datei und eine Lisp mit Code an, um alles zu testen.

Danke.
b)

 

[blubossa]

Bye to all,
Ich versuche alles und ich kann das Verhalten der Wiederverschließung nicht lösen und verstehen.
wie ich zu der ersten Verwendung des Befehls sagte, ist die refclose, die ausgeführt wird, der Standard von autocad, aber von der zweiten Verwendung auf die benutzerdefinierte refclose aufgerufen wird.

für Einfachheit Ich bringe hier einige Zeilen, die erlauben, das Funktionieren des, was ich schreibe, zu verstehen, in der Hoffnung, dass jemand mir helfen kann zu lösen ....bb

(defun c:test_refclose)
(Befehl "_undefine" "_refclose")
(nicht (Seq-Objekt (entsel "select block")))
(setq name_object (cdr (assoc 2)))))

(vl-cmdf "_-refedit" (letztes Objekt) "_ok" "")

(defun c:refclose)
(Alert "\n schließen und speichern)
(Befehl "_.refclose")
(Befehl "_redefine" "_refclose" "_.refclose" "_sav")

;

;