| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Bogen zum Kreis vervollständigen (2014 mal gelesen)
|
Ex-Mitglied
|
erstellt am: 06. Jul. 2006 15:21 <-- editieren / zitieren -->
Hallo an alle, ich bin beim Stöbern auf ein LISP gestoßen, welches ich gern verwenden würde, aber es bricht mit einer Fehlermeldung ab. (... unter 2007) Hintergrund: Ich will einen Bogen anklicken und übrigbleiben soll ein kompletter Kreis. ... anbei die Fundsache ...
; CREATOR KEES NEELE ; repairs broken circle
(defun chgerr (s) ;Foutbehandeling (if (/= s "Function cancelled") (princ (strcat "\nError: " s)) ) (setq S nil) (command "layer" "s" cla "") (setvar "cmdecho" cmd) (setvar "osmode" os) (setq *error* olderr) (princ) ) (defun c:cheal (/ cmd cla os ) (setq cmd (getvar "cmdecho")) (setq olderr *error* *error* chgerr) (setq cla (getvar "clayer")) (setq os (getvar "osmode")) (setvar "cmdecho" 0) (setvar "osmode" 0) (princ "\nSelecteer een Arc.")(terpri) (setq cir (entsel)) (setq cir (car cir)) (setq obj2 (entget cir)) (setq Lyr (cdr (assoc 8 obj2))) (setq pt1 (cdr (assoc 10 obj2))) (setq rd1 (cdr (assoc 40 obj2))) (command ".ucs" "world") (command ".layer" "s" Lyr "") (command ".erase" cir "") (command ".circle" pt1 rd1 ) (command ".layer" "s" cla "") (command ".ucs" "p") (setvar "osmode" os) (setq *error* olderr) (setvar "cmdecho" cmd) ) Wenn ich am Ende dieses LISP´s die ".ucs" durch ".bks" ersetze, dann meckert er nach einer unsauberen Objektwahl, aber macht erst mal überhaupt was.
Danke für´s Denken Lutz ------------------ Menschen mit T21 sind von Natur aus freundlich. Wir sollten von ihnen lernen ... |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 06. Jul. 2006 15:29 <-- editieren / zitieren --> Unities abgeben:
Frage: Warum ersetzt du das ucs durch bks ? (Zu deiner Info: ucs ist in dem Fall englisch und heisst User Coordinate System - die Übersetzung desselben lautet Benutzerdefiniertes KoordinatenSystem [was kurz wiederum bks bedeutet...]) ------------------ Grüsse Thomas [Diese Nachricht wurde von tunnelbauer am 06. Jul. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 06. Jul. 2006 15:42 <-- editieren / zitieren --> Unities abgeben:
Zum Bogen in Kreis "umwamdeln" geht auch (defun c:arc2Circle() (defun arc2Circle (OBJ / DATA R M) (if(and(=(type OBJ)'ENAME) (setq DATA(entget OBJ)) (=(cdr(assoc 0 DATA)) "ARC") (setq R (cdr(assoc 40 DATA))) (setq M (cdr(assoc 10 DATA))) ) (progn (command "_circle" M R) (command "_matchprop" OBJ (entlast)"") (entdel OBJ) ) ) ) (arc2Circle (car(entsel "\nBitte Bogen wählen:"))) ) ------------------ - 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 |
Ex-Mitglied
|
erstellt am: 06. Jul. 2006 16:36 <-- editieren / zitieren -->
Hallo Tunnelbauer: Frage: Warum ersetzt du das ucs durch bks ? ==> Weil mein 2007 zu UCS unbekannter Befehl sagt. Da mir die Übersetzung klar war, habe ich es durch die deutsche Version ersetzt. War ja nur ein Versuch ... Hallo CADmium: Immer wieder schön, promte Antwort, Problem gelöst, vielen Dank ... ------------------ Menschen mit T21 sind von Natur aus freundlich. Wir sollten von ihnen lernen ... |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 18.1, LibreOffice 5+
|
erstellt am: 06. Jul. 2006 17:59 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz, obwohl das Thema eigentlich abgeschlossen ist, probier doch in einer ruhigen Minute im Original anstelle von ".ucs" die Verwendung von "_.ucs". Klappt´s dann? Angenehmen Abend! Frederik Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 06. Jul. 2006 18:21 <-- editieren / zitieren --> Unities abgeben:
so ich noch mal ... das oberst Lisp stammt wohl aus dem englischsprachigen Raum und da haben es die Programmierer oft nicht so mit der Befehlsform mit dem Unterstrich davor, einfach aus Unkenntnis vermute ich mal. Das ist dann besonders ärgerlich bei kompilierten Lisp, wo man selbst nicht mehr viel ändern kann. Somit sind oben alle "commands" entsprechend anzuändern, nicht nur das ucs .. und auch die Optionen nicht vergessen!! (command ".ucs" "world") (command ".layer" "s" Lyr "") (command ".erase" cir "") (command ".circle" pt1 rd1 ) (command ".layer" "s" cla "") (command ".ucs" "p") --->> (command "_.ucs" "_world") (command "_.layer" "_s" Lyr "") (command "_.erase" cir "") (command "_.circle" pt1 rd1 ) (command "_.layer" "_s" cla "") (command "_.ucs" "_p") ------------------ - 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 |
Ex-Mitglied
|
erstellt am: 06. Jul. 2006 21:59 <-- editieren / zitieren -->
Hallo, die Sache war zwar erschöpfend bereits gelöst, aber nun weiß ich wenigstens, wo das Problem lag. Danke nochmal und nun ... ... schönen Feierabend ... ------------------ Menschen mit T21 sind von Natur aus freundlich. Wir sollten von ihnen lernen ... |