---

Hallo,

ich möchte den Befehl "Breaker" von Markus Hoffmann gerne auf zwei Arten verbessern:
1. Da wir mit sehr großen Zeichnungen arbeiten, stört das doppelte regenerieren der Zeichnung, welches ich durch Auskommentieren der folgenden Systemvariablen bereits erreicht habe:
("PDMODE" . 3) und ("PDSIZE" . -10)

2.Wenn man einen Bruch-Vorgang durchgeführt hat, und beendet den Befehl dann mit "Esc", wird der Objektfang nicht wieder zurückgesetzt.
Wie muss ich den Code ändern, um den Objektfang auch bei einem Abbruch mit "Esc" wieder zurückzusetzen?

Code:

---

;| Breaker
-------------------------------------------------------------------------------

eigener Bruchbefehl.
Vorteil gegenüber Standard-Bruch: Wiederholend und ein Befehl für beide Bruchbefehle

Revisionen
Aug. 2007 - ActiveX-Schnittstelle aktiviert, OSMODE in Schleife zurückgesetzt

-------------------------------------------------------------------------------
Copyright (C) 2006 Markus Hoffmann www.CADmaro.de
-------------------------------------------------------------------------------
FREEWARE:
Dieser Quellcode darf unbegrenzt und für jeden Zweck verwendet werden sofern
keine Gebühr erhoben wird. Der Quellcode darf weiterhin nach eigenen
Bedürfnissen anpasst, verbessert, kopiert und weitergegeben werden. Der
Urheberrechtshinweis darf nicht entfernt werden.
-------------------------------------------------------------------------------
|;
(defun c:Breaker (/ acdoc varlist echo pmode psize ent pt1 pt2)
  (vl-load-com)
  (setq acdoc
(vlax-get-property
  (vlax-get-acad-object)
  'ActiveDocument
)
  )
  (vlax-invoke-method acdoc 'EndUndomark)
  (vlax-invoke-method acdoc 'StartUndomark)
  (mapcar '(lambda (arg)
    (setq varlist (cons (cons (car arg) (getvar (car arg))) varlist))
    (setvar (car arg)
    (if (= 'LIST (type (setq argument (cdr arg))))
      (eval argument)
      argument
    )
    )
  )
  '(("CMDECHO" . 0)
    ;("PDMODE" . 3)
    ;("PDSIZE" . -10)
    ("OSMODE" . (getvar "OSMODE"))
  )
  )
  (while
    (progn
      (setq ent (entsel "\nElement für Bruch wählen "))
    )
    (if (wcmatch (strcase (cdr (assoc 0 (entget (car ent)))))
  "ARC,LINE,*POLYLINE"
)
      (progn
(redraw (car ent) 3)
(setvar "OSMODE" (cdar varlist))
(initget 1)
(setq pt1 (getpoint "\nErster Punkt:"))
(entmake (list
    '(0 . "POINT")
    (cons 10 pt1)
  )
)
(setq point (entlast))
(initget 6)
(setq
  pt2
    (getpoint
      "\nZweiter Punkt oder Rechtsklick für ersten Punkt:"
    )
)
(setvar "OSMODE" 0)
(vl-cmdf "_.break"
  ent
  "_f"
  pt1
  (if pt2
    pt2
    pt1
  )
)
(entdel point)
      )
      (princ "\nKann Objekt nicht brechen!")
    )
  )
  (mapcar '(lambda (arg)
    (setvar (car arg) (cdr arg))
  )
  varlist
  )
  (vlax-invoke-method acdoc 'EndUndomark)
  (vlax-release-object acdoc)
  (princ)
)
(princ
  "\nBreaker.lsp wurde geladen. Start mit dem Befehl \"Breaker\".\n"
)
(princ)

---

------------------
Gruß
Markus

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

---

Hallo Markus,
schau Dir mal die *error*-Funktion an.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hi,

richtig Henning, es fehlt - warum auch immer - eine Errorfunktion, die den Abbruch auffängt, denn

Zitat:

---

...und beendet den Befehl dann mit "Esc",...

---

ist faktisch ein Abbruch und eben kein Beenden! 

[OT]Was wiederum die interessante Frage aufwirft, ob ein AutoCAD-Anwender ein Fluchttier ist, wenn seine ESC-Taste mehr abgenutzt ist, als die Eingabe-Taste.  [/OT]

Beendet wird der Befehl richtigerweise mit der Eingabe-Taste oder indem man einfach nix wählt, denn die (while-Schleife tut ja nur solange etwas, wie ein Zeichnungselement ausgewählt wird.

Gruß
CADchup

------------------
CADmaro.de

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

---

Hi,

ich habe in den Befehl jetzt mal den Error-Handler von mapcar eingebaut. Alles, was meiner Meinung nach durch den Handler in dem Befehl c:Breaker überflüssig geworden ist, habe ich auskommentiert.
Erste Versuche haben wie gewünscht funktioniert 

Da ich mich mit Lisp nicht so gut auskenne:
Könnte jemand von euch noch einmal einen Blick drauf werfen?
Ich bin mir nämlich nicht ganz sicher, ob ich nicht doch etwas übersehen habe.

Vielen Dank im voraus!

Code:

---

(defun c:Breaker (/ acdoc varlist echo pmode psize ent pt1 pt2)

  (startErrorHandler "c:Breaker" 'T
    '(("cmdecho" . 0)("osmode" . 0))
  )

;(getvar "OSMODE"))
 
;  (vl-load-com)
;  (setq acdoc
; (vlax-get-property
;   (vlax-get-acad-object)
;   'ActiveDocument
; )
;  )

;  (vlax-invoke-method acdoc 'EndUndomark)
;  (vlax-invoke-method acdoc 'StartUndomark)
;  (mapcar '(lambda (arg)
;     (setq varlist (cons (cons (car arg) (getvar (car arg))) varlist))
;     (setvar (car arg)
;     (if (= 'LIST (type (setq argument (cdr arg))))
;       (eval argument)
;       argument
;     )
;     )
;   )
;   '(("CMDECHO" . 0)
;     ("PDMODE" . 3)
;     ("PDSIZE" . -10)
;     ("OSMODE" . (getvar "OSMODE"))
;   )
;  )

 
  (while
    (progn
      (setq ent (entsel "\nElement für Bruch wählen "))
    )
    (if (wcmatch (strcase (cdr (assoc 0 (entget (car ent)))))
  "ARC,LINE,*POLYLINE"
)
      (progn
(redraw (car ent) 3)
; (setvar "OSMODE" (cdar varlist))
(initget 1)
(setq pt1 (getpoint "\nErster Punkt:"))
(entmake (list
    '(0 . "POINT")
    (cons 10 pt1)
  )
)
(setq point (entlast))
(initget 6)
(setq
  pt2
    (getpoint
      "\nZweiter Punkt oder Rechtsklick für ersten Punkt:"
    )
)
(setvar "OSMODE" 0)
(vl-cmdf "_.break"
  ent
  "_f"
  pt1
  (if pt2
    pt2
    pt1
  )
)
(entdel point)
      )
      (princ "\nKann Objekt nicht brechen!")
    )

    (endErrorHandler)

    (princ)
  )

 
;  (mapcar '(lambda (arg)
;     (setvar (car arg) (cdr arg))
;   )
;   varlist
;  )
;  (vlax-invoke-method acdoc 'EndUndomark)
;  (vlax-release-object acdoc)
;  (princ)
)

(defun startErrorHandler(name undoMode varsToSave /
                          ErrorTemplate saveList)
  (setq errorTemplate
  '( (msg / name undo savedVars previousHandler)
      (while(>(getvar "cmdactive")0)(command))
      (princ(strcat "\n"name": previous Handler = "))
      (princ previousHandler)
      (command"_undo""_end")
      (if(and undo msg)(command"_u"))
      (foreach pair savedVars
        (setvar(car pair)(cdr pair))
        (princ
          (strcat"\n"name": Setze \""
                    (car pair)"\" zurück auf "))
        (princ(cdr pair))
      )
      (setq *error* previousHandler)
      (if msg
        (progn
          (princ(strcat"\n" name ": \"" msg "\""))
          (if previousHandler(previousHandler msg))
        )
      )
    )
  )
  ;************
  (command"_undo""_begin")
  (foreach pair varsToSave
    (setq saveList
      (cons
        (cons(car pair)(getvar(car pair)))
        saveList
      )
    )
    (setvar(car pair)(cdr pair))
  )
  (setq *error*
    (append
      (list(car ErrorTemplate))
      (if undomode'((setq undo 'T)))
      (list
        (list 'setq
          'PreviousHandler
          (cons'quote(list *error*))
        )
      )
      (list(list 'setq 'name name))
      (list
        (cons'setq
          (cons'savedvars
            (list(cons'quote(list savelist)))
          )
        )
      )
      (cdr ErrorTemplate)
    )
  )
)
(defun endErrorHandler( / )
  (*error* nil)
)

(princ
  "\nBreaker.lsp wurde geladen. Start mit dem Befehl \"Breaker\".\n"
)
(princ)

---

------------------
Gruß
Markus

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