| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Lisp in Acad 2015 (2693 mal gelesen)
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 17. Jun. 2014 14:37 <-- editieren / zitieren --> Unities abgeben:
Hallo hab ein Problem, folgendes Lisp teilt mir den Winkel zur Hälfte zwischen 2 Polyliniensegmenten. Bis Acad 2014 ging es ohne Mucken. Jetzt bei Acad 2015 hängt es bei: Befehl: bisect Select first segment: Select first segment: Select second segment: _.line Ersten Punkt angeben: _non Nächsten Punkt angeben oder [Zurück]: <112.5000000000011 Winkel überschreiben: 112.50 <--- hier wird ein nächster Punkt angefordert. Sollte es aber nicht. Die Linie sollte selbst erstellt werden. Bitte um Hilfe lg. Martin ;;; BISECT -Gilles Chanteau- (maj 23/04/07)
;;; Crée une ligne sur la bissectrice de l'angle formé par les deux segments sélectionnés. ;;; La longueur de la ligne est entrée au clavier ou spécifiée à l'aide du pointeur. (defun c:bisect (/ e1 e2 l1 l2 p1 p1e p1m p2 p2e p2m som ang) (while (not (setq e1 (entsel "\nSelect first segment: ")) ) ) (while (not (setq e2 (entsel "\nSelect second segment: ")) ) ) (setq l1 (entget (car e1)) l2 (entget (car e2)) p1 (osnap (cadr e1) "_near") p2 (osnap (cadr e2) "_near") ) (if (and (or (and (member (cdr (assoc 0 l1)) '("_XLINE" "_RAY")) (setq p1m (mapcar '+ p1 (trans (cdr (assoc 11 l1)) 0 1 T))) (setq p1e (mapcar '- p1 (trans (cdr (assoc 11 l1)) 0 1 T))) ) (and (setq p1m (osnap (cadr e1) "_midpoint")) (setq p1e (osnap (cadr e1) "_endpoint")) ) ) (or (and (member (cdr (assoc 0 l2)) '("_XLINE" "_RAY")) (setq p2m (mapcar '+ p2 (trans (cdr (assoc 11 l2)) 0 1 T))) (setq p2e (mapcar '- p2 (trans (cdr (assoc 11 l2)) 0 1 T))) ) (and (setq p2m (osnap (cadr e2) "_midpoint")) (setq p2e (osnap (cadr e2) "_endpoint")) ) ) ) (if (vl-every (function (lambda (x) (equal (caddr p1) (caddr x) 1e-009))) (list p1m p1e p2 p2m p2e) ) (if (and (null (inters p1 p1m p1 p1e)) (null (inters p2 p2m p2 p2e)) ) (if (setq som (inters p1 p1e p2 p2e nil)) (progn (setq ang (/ (+ (angle som p1) (angle som p2)) 2.0)) (vl-cmdf "_.line" "_non" som (strcat "<" (angtos ang (getvar "AUNITS") 15)) pause "" ) ) (princ "\nError: parallel segments") ) (princ "\nError: non linear segment") ) (princ "\nErreur: segments are not coplanar or parallel to current XY UCS plane" ) ) (princ "\nError: invalid entity") ) (princ) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 17. Jun. 2014 15:01 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
spider_dd Mitglied
Beiträge: 1111 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 17. Jun. 2014 15:09 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Hallo Martin, Zitat: Original erstellt von MARTINLE: ... Bis Acad 2014 ging es ohne Mucken. Jetzt bei Acad 2015 hängt es bei:Befehl: bisect Select first segment: Select first segment: Select second segment: _.line Ersten Punkt angeben: _non Nächsten Punkt angeben oder [Zurück]: <112.5000000000011 Winkel überschreiben: 112.50 <--- hier wird ein nächster Punkt angefordert. Sollte es aber nicht. Die Linie sollte selbst erstellt werden.
Sicher?? Weil: Zitat:
... (vl-cmdf "_.line" "_non" som (strcat "<" (angtos ang (getvar "AUNITS") 15)) pause <----- HIER "" ) ... )
wird der Endpunkt der zu zeichnenden Linie der Winkelhalbierenden abgefragt, und das auch in ACAD 2014 (nur da getestet). Also alles so wie es sein soll(??) Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 17. Jun. 2014 15:32 <-- editieren / zitieren --> Unities abgeben:
@ Holger Hallo Holger, du hast den Fehler erkannt. So gut möchte ich auch mal werden, trotz falscher Fragestellung den Fehler erkennen. Ich hab meine Frage falsch gestellt. Den zweiten Punkt mußte ich schon selber setzten aber der Winkel war schon voreingestellt. (command-s .. <--dies hab ich überhaupt noch nie gesehen. Kannst du mir "command-s" noch mal kurz erklären? Danke Holger! Lg. Martin @ Thomas Danke für deine Hilfe. Hab meine Frage falsch gestellt--> siehe Holger1 Sorry! lg. Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 17. Jun. 2014 15:37 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Zitat: Original erstellt von MARTINLE: (command-s .. <--dies hab ich überhaupt noch nie gesehen. Kannst du mir "command-s" noch mal kurz erklären?
Schau doch bitte erst mal in die Hilfe, wenn dann noch Fragen sind kannst du die ganz präzise stellen !? Aber ok, ich bin ja auch nicht Holger ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 17. Jun. 2014 15:44 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
in der 2015 sind einige Änderungen enthalten, was das command-Handling betrifft. Da ich selber gerade eine 3d-Anlagenbau-Applikation, die in Lisp programmiert ist, nach 2015 portiere, habe ich einfach mal getippt, dass es das (COMMAND) ist. Alles andere funktioniert in 2015 wie gehabt. Leider ist es aber so, dass man nicht mit Suchen&Ersetzen über den Code gehen kann, da an manchen Stellen das (Command (ohne S) gebraucht wird. Das -S gibt dem Interpreter einfach Bescheid, dass der Befehl als Single-Befehl ausgewertet werden soll. Das Command wird dann geschlossen, ansonsten erwartet es weitere Benutzereingaben. Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 17. Jun. 2014 16:01 <-- editieren / zitieren --> Unities abgeben:
|