|
AutoLisp : LINIE in eine Richtung
Geos am 22.09.2004 um 08:19 Uhr (0)
Hi Mario Man könnte den Vorschlag von Udo noch erweitern und mit (polar) den nächsten Punkt rechnen (dann gehts nicht nur mit 45 Grad): winkkorr = Winkel eingeben winkel = (+ (angle startpkt endpkt) winkkorr) strecke = (getdist) neupunkt = (polar endpkt winkel strecke) (command _line endpkt neupkt ) Nur ein Denkanstoss, da ich nicht weiß, welche (Winkel)Einheiten Du verwendest. ------------------ Gruß, Ernst
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
Geos am 15.02.2013 um 18:01 Uhr (0)
Dirk, ich weiß nicht, was Du vor hast, aber (angle)/(distance)-(polar) oder (trans) könnte auch weiterhelfen...?------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
AutoLisp : Linienteile stutzen innerhalb einer Ellipse
Geos am 22.11.2004 um 08:06 Uhr (0)
Hi Du hast also die beiden Linienendpunkte, wobei einer gleichzeitig der Ellipsenmittelpunkt ist. Wie wärs, wenn Du mit (polar) einen Punkt etwas außerhalb des Zentrums errechnest und dann (nentselp) mit diesem Pkt verwendest? ------------------ Gruß, Ernst
|
| In das Form AutoLisp wechseln |
|
Lisp : Auswahl-Reihenfolge
Geos am 12.05.2009 um 19:37 Uhr (0)
Wenn die Abstände der Bögen gleich bzw. bekannt sind, könntest Du auch mit (polar ausgangspunkt richtung strecke) einen jeweils nächsten Punkt auf dem Bogen rechnen und dann den Bogen mit (nentselp) auswählen.Bei (nentselp) aber Ausschnitt und Pickboxgröße beachten, ev. vorher zoomen.------------------Schöne GrüßeErnst www.geopaint.at[Diese Nachricht wurde von Geos am 13. Mai. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Stiegenlauf programmieren
Geos am 08.01.2013 um 14:46 Uhr (0)
ErstmalCode:(command "_.LINE" pause pause "")bewirkt, dass das Programm auf eine Eingabe wartet, das aber nicht sagt.Besser:Mit (getpoint) arbeiten - zB.Code:(commnad "_.LINE" (getpoint "
Erster Punkt: ") (getpoint "
Zweiter Punkt: ") "")Und so wie für Punkte gibt’s auch (getreal) um Gleitkommazahlen abzufragen:Code:(setq strecke1 (getreal "
Strecke1 eingeben: "))Und so, wie Du die Polylinie zeichnest, kannst Du auch weitere Linien zeichnen (mit Koord.Differenzen kannst Du ja umgehen )Und falls Du mal "sc ...
|
| In das Form Lisp wechseln |
|
Lisp : Alle Konturen nach innen versetzen
Geos am 18.08.2008 um 19:56 Uhr (1)
Hallo TheodorDie Idee, den Seitpunkt einfach nach links und rechts (im rechten Winkel) zu rechnen, war nicht so gut. Ich hab leider nur mit Vielecken getestet. Im "Spezialfall Rechteck" fällt dann ein Punkt genau auf die Linie.Wenn man aber beim Berechnen der Seitpunkte -Code:(setq #spkt (polar #p2 ([+/-] (angle #p2 #p1) (/ pi 3)) #versatz ) )anstelle von pi/2 pi/3 nimmt, sollte es bei Rechtecken und Kreisen funktionieren. Bei Konturen mit spitzen Winkeln (falls Du solche auch hast) wird da ...
|
| In das Form Lisp wechseln |
|
Lisp : trans - was ist falsch
Geos am 04.03.2008 um 08:07 Uhr (0)
OK, dann belaste ich Euch mal mit der ganzen Geschichte:Ziel war ein Programm für Querprofile (siehe Anhang), die Stationierungen und Höhen hab ich bereits ermittelt - liegen als Liste vor: ((stat höhe)(stat höhe)...).Dann wird die VergleichsEbene (rot) gezeichnet und darauf aufbauend der "Rest". Die VE kann aber auch schräg im KoordSystem liegen, weshalb die Berechnung des "Restes" - (polar ...), Richtungen - etwas aufwendiger ist.Einfacher wäre, das Ganze relativ zur Linie aufzubauen.Der Anfangspunkt hät ...
|
| In das Form Lisp wechseln |
