| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Der Weg zur Smart Factory: Ganzheitliche Planung für eine digitale Zukunft, ein Webinar am 09.10.2024
|
Autor
|
Thema: Änderung in LISP-Code (1320 mal gelesen)
|
mercato Mitglied
Beiträge: 3 Registriert: 14.07.2010 Win7 QuadCore AutoCAD 2011
|
erstellt am: 14. Jul. 2010 00:22 <-- editieren / zitieren --> Unities abgeben:
Aloa Könnte mir bitte jemand den Code so umschreiben, dass die Funktion für Bögen und Linien statt nur für Linien läuft? Habe von lisp leider keine Ahnung... Code:
(defun C:BOE() (command "ofang" "keiner")(setq OB_LIN (entsel "\nobere Linie picken ") NAME_OB_LIN (car OB_LIN) PO_ANF (cdr (assoc 10 (entget NAME_OB_LIN))) PO_END (cdr (assoc 11 (entget NAME_OB_LIN))) WIN2 (angle PO_ANF PO_END) UN_LIN (entsel "\nuntere Linie picken ") NAME_UN_LIN (car UN_LIN) PU_ANF (cdr (assoc 10 (entget NAME_UN_LIN))) PU_END (cdr (assoc 11 (entget NAME_UN_LIN))) PMITTE (polar PO_ANF WIN2 (/ (distance PO_ANF PO_END) 2) ) PSEIT (POLAR PMITTE (- WIN2 (* 0.5 PI)) 0.5) PSCHNITT (inters PMITTE PSEIT PU_ANF PU_END NIL) WIN1 (angle PMITTE PSCHNITT) PX PO_ANF ZAEHLER 1 PSCHNITT_O (list 1 1) ) (while (or PSCHNITT_O PSCHNITT_U) ;;;lange Striche: (setq PSEIT (polar PX WIN1 0.5) PSCHNITT (inters PX PSEIT PU_ANF PU_END NIL) ABST (distance PX PSCHNITT) ) (if (= ZAEHLER 1) (setq PX (polar PX WIN2 (* ABST 0.25))) (setq PX (polar PX WIN2 (* ABST 0.5))) ) (setq ZAEHLER 2 PLANG (polar PX WIN1 (* ABST 10) ) PSCHNITT_O (inters PX PLANG PO_ANF PO_END) PSCHNITT_U (inters PX PLANG PU_ANF PU_END) ) (if (and PSCHNITT_O PSCHNITT_U) (command "linie" PSCHNITT_O PSCHNITT_U "") ) ;;;kurze Striche: (setq PSEIT (polar PX WIN1 0.5) PSCHNITT (inters PX PSEIT PU_ANF PU_END NIL) ABST (distance PX PSCHNITT) ) (setq PX (polar PX WIN2 (* ABST 0.5)) PLANG (polar PX WIN1 (* ABST 10) ) PSCHNITT_O (inters PX PLANG PO_ANF PO_END) PSCHNITT_U (inters PX PLANG PU_ANF PU_END) )
(if (and PSCHNITT_O PSCHNITT_U) (progn (setq PEND (polar PSCHNITT_O WIN1 (* ABST 0.5) ) ) (command "linie" PSCHNITT_O PEND "") ) ) ) )
Vielen Dank für die Hilfe [Diese Nachricht wurde von mercato am 14. Jul. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 14. Jul. 2010 06:59 <-- editieren / zitieren --> Unities abgeben: Nur für mercato
Hi, dafür gibt es Leute die damit ihr Geld verdienen. Und auf die Schnelle drei Zeilen änder wird wohl nicht reichen Ich kann mir schwer vorstellen, dass du im Rahmen der Forenhilfe jemanden findest der es dir für lau umschreibt aber schauen wir mal. Ihmo gab es da schon was fertiges was auch mit Bögen klar kommt CADwiesel.de unter sonstiges/sonstiges/Böschungsschraffur oder ne Suchmaschine bemühen ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mercato Mitglied
Beiträge: 3 Registriert: 14.07.2010 Win7 QuadCore AutoCAD 2011
|
erstellt am: 14. Jul. 2010 08:28 <-- editieren / zitieren --> Unities abgeben:
Ich kann den Aufwand für das Umschreiben mangels Kenntnisse leider nicht einschätzen...hätte ja sein können das die erwähnten drei Zeilen ausreichen Aber vielleicht findet sich ja doch noch jemand... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 14. Jul. 2010 08:44 <-- editieren / zitieren --> Unities abgeben: Nur für mercato
Hallo Mercato, da kann ich Dorfy's Antwort nur bestätigen, der Aufwand ist doch recht hoch. Aber wenn Du noch eine Böschungsschraffur ausprobieren willst, bei den Bosse_tools http://www.bosse-engineering.com/bosse_tools/index.htm ist eine Schraffenprogramm enthalten, das kannst Du für 30-Tage nutzen, vielleicht reicht das ja schon für Deine Aufgabestellung. Detailfragen bitte direkt an mich, denn ich mache hier schon wieder eine Gradwanderung zwischen Werbung und Information, und Werbung wird in diesem Forum nicht so gerne gesehen (bitte keine ausufernde Diskussion zu diesem Thema) ------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 14. Jul. 2010 08:47 <-- editieren / zitieren --> Unities abgeben: Nur für mercato
Zitat: Original erstellt von Dorfy:
Ihmo gab es da schon was fertiges was auch mit Bögen klar kommt CADwiesel.de unter sonstiges/sonstiges/Böschungsschraffur oder ne Suchmaschine bemühen
schon getestet?! und?! ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 14. Jul. 2010 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für mercato
|
mercato Mitglied
Beiträge: 3 Registriert: 14.07.2010 Win7 QuadCore AutoCAD 2011
|
erstellt am: 14. Jul. 2010 11:13 <-- editieren / zitieren --> Unities abgeben:
Die LISP von CADWiesel habe ich soeben mal probiert, funzt soweit auch einwandfrei...Danke für den Hinweis! Nur leider kann man als Abstand nur ganze Zahlen eingeben, was für mich etwas ungünstig ist...versuche jetzt mal iwi den jeweiligen Wert für den Abstand im Code noch um 0,5 zu verkleinern, dann hätte ich mein persönliches Ideal ...das sollte ja zu realisieren sein, hoffe ich Falls ich mit meinem MS-VB Wissen an der Realisierung scheitere, wird das hier zu lesen sein Schau mir nachher auch mal noch das B-Tool an... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |