| | ![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | ![](https://ww3.cad.de/php/image.php?resolution=width:16196) | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Erweiterung Lisp zum Ermitteln von einem Schnittpunkt (1389 mal gelesen)
|
treffi75 Mitglied vermesser
![Schreiben Sie einen Gästebucheintrag für treffi75](/foren/ubb/pmimages/gbu.gif) Beiträge: 2 Registriert: 17.12.2008 acad2004
|
erstellt am: 17. Dez. 2008 13:04 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hi, bin absoluter lisp neuling und such eine routine, um mehrere schiefe linien im raum mit immer ein und derselben ebene zu schneiden. mit interesse habe ich den Beitrag s.o. gelesen. Die routine war: (defun c:schnittp ( / P1 P2 P3 P4 P5 P6) ; by Stefan Schwankner - 2008-04-10 (arxload "GEOMCAL") ;;;Rechner muss geladen werden (setq P1 (getpoint "\nErster Punkt der Linie:")) (setq P2 (getpoint "\nZweiter Punkt der Linie:")) (setq P3 (getpoint "\nErster Punkt der Ebene:")) (setq P4 (getpoint "\nZweiter Punkt der Ebene:")) (setq P5 (getpoint "\nDritter Punkt der Ebene:")) (setq OSCHNAePP (getvar "osmode")) (command "osmode" 0) (cal "P6=ilp (p1,p2,p3,p4,p5)") (command "_sphere" P6) (setvar "OSMODE" OSCHNAePP) ) (danke übrigens stefan und seinen helfern, die routine klappt) Mein problem ist, dass die ebene die gleiche ist und ich gerne eine schiefe linie nach der anderen anklicken möchte (viele an der zahl) und gleichzeitig nebenbei eine neue linie von den erzeugten bzw. gerechneten schnittpunkten gezeichnet werden sollte. meine versuche, eine lisp-funktion zu schreiben sind kläglich gescheitert. habe sicher irgenwelche anfängerfehler gemacht!! datei im anhang. weiß jemand rat?? Lg, treffi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neurosis Mitglied dipl.ing.
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für neurosis](/foren/ubb/pmimages/gbu.gif) Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 17. Dez. 2008 14:28 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für treffi75
|
Geos Mitglied Vermessungstechniker i.R.
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Geos](/foren/ubb/pmimages/gbu.gif) Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 18. Dez. 2008 07:50 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für treffi75
Meinst Du sowas Code: (defun c:schnittp ( / P1 P2 P3 P4 P5 P6) ; by Stefan Schwankner - 2008-04-10 (arxload "GEOMCAL") ;;;Rechner muss geladen werden (setq P3 (getpoint "\nErster Punkt der Ebene:")) (setq P4 (getpoint "\nZweiter Punkt der Ebene:")) (setq P5 (getpoint "\nDritter Punkt der Ebene:")) (while (setq P1 (getpoint "\nErster Punkt der Linie:")) (setq P2 (getpoint "\nZweiter Punkt der Linie:")) (setq OSCHNAePP (getvar "osmode")) (command "osmode" 0) (cal "P6=ilp (p1,p2,p3,p4,p5)") (command "_sphere" P6) (setvar "OSMODE" OSCHNAePP) ) )
------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für StephanJP](/foren/ubb/pmimages/gbu.gif) Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 18. Dez. 2008 08:28 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für treffi75
Vielleicht sowas... Code: ;by Stephan Vette - 2006-09-13 (defun c:vme () ;verschneidet alle Linien mit einer Ebene (arxload "geomcal" T) (setq as (ssget '((0 . "LINE"))) ebene (getreal "\zu erreichende Ebene eingeben: ") ep1 (list 0.0 0.0 ebene) ep2 (list 0.0 10.0 ebene) ep3 (list 10.0 0.0 ebene) n 0 en (ssname as n) ) (while en (setq p1 (cdr (assoc 10 (entget en))) p2 (cdr (assoc 11 (entget en))) ) (kal "vp=ilp(p1,p2,ep1,ep2,ep3)") (cond ((> (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 10 vp)))) ((< (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 11 vp)))) ) (setq n (1+ n) en (ssname as n) ) ) )
------------------ ![](/foren/ubb/wink.gif) gruß Stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
treffi75 Mitglied vermesser
![Schreiben Sie einen Gästebucheintrag für treffi75](/foren/ubb/pmimages/gbu.gif) Beiträge: 2 Registriert: 17.12.2008 acad2004
|
erstellt am: 18. Dez. 2008 09:43 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hi zusammen, habe aus den informationen, die ihr mir gegeben habt eine lsp zusammengestellt und sie funktioniert! programmiertechnisch sicherlich nicht das feinste, denn man könnte, so wie stephan meinte zuerst alle linien anklicken und dann die berechnung durchführen, aber so auf die schnelle funzt meins auch. Danke nochmal für die anregungen, habs angehängt. gruß, treffi P.S.: Übrigens, Ernst, ich glaube wir kennen uns!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
![](https://ww4.cad.de/books/view.php?what=zone:11451&n=s11451BB) |