| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Befehl Breaker verbessern (1080 mal gelesen)
|
Jonapap Mitglied
Beiträge: 206 Registriert: 18.08.2006 ACAD 13 bis 2012 Accurender4 IMOS 9 Rhinoceros 4&5beta Mastercam X5
|
erstellt am: 29. Aug. 2011 21:53 <-- editieren / zitieren --> Unities abgeben:
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 |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 29. Aug. 2011 23:14 <-- editieren / zitieren --> Unities abgeben: Nur für Jonapap
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 30. Aug. 2011 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für Jonapap
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 |
Jonapap Mitglied
Beiträge: 206 Registriert: 18.08.2006
|
erstellt am: 30. Aug. 2011 22:41 <-- editieren / zitieren --> Unities abgeben:
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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|