|
AutoLisp : Lispproblem
bu am 17.03.2005 um 15:27 Uhr (0)
hallo leute, ich hab mal wieder ein echtes problem: das untenstehende lispprogramm soll mir in autocad lt 2002 toolkit eine positionsnummer erzeugen. das problem ist dass es auf manchen rechnern läuft und auf manchen nicht. was gehäuft auftritt ist das die zeile (setq pstart (getpoint
StartpunktPositionierung ))einfach überlaufen wird und dann natürlich das programm auf einen fehler läuft. vielleicht findet jemand den fehler. gruss bu (defun positionstart (/ pstart pende a b c alpha_rad alpha_grad pbasis ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinateneingabe bei (command "_offset")...
Andi L am 12.12.2003 um 20:37 Uhr (0)
Hi In dem Beitrag http://ww3.cad.de/foren/ubb/Forum145/HTML/000097.shtml habe ich mal ein ähnliches Programm gepostet. vielleich t hilft Dir das weiter. Soviel ich noch weiß werden zwei Punkte links und rechts der Linie (PLINE oder LINE) berechnet. ... mir fällt gerade ein, es geht auch mit Vlax-Curve-GetFirstDeriv. Damit erhältst Du die Erste Ableitung (Steigung) JEDES Curve-Objekts (Line, Arc, Circle, Pline....) an einem bestimmten Punktes. Bei dem Beispiel der Startpunkt der Curve. ;;; Testfunktion ; ...
|
| In das Form AutoLisp wechseln |
|
Lisp : abdecken: rahmen ein/aus
stolti am 25.06.2008 um 12:46 Uhr (0)
ja. autosnap weiß ich.das war ja das beispiel.ich möchte quasi per makro mit wenn dann einstellen: _wipeout;rahmen;ein und wenn das drin ist automatisch _wipeout;rahmen;aus.das mit polar war nur ein beispiel.pardon.
|
| In das Form Lisp wechseln |
|
AutoLisp : BAND od. PLINE-Teil versetzen
joern bosse am 14.06.2006 um 08:02 Uhr (0)
Hallo Mario,und falls Du doch den Command-Befehl _.offset nutzen willst, dann kannst Du den Seitenpunkt wie folgt berechnen:(polar pkt1((if rechts - +)(angle pkt1 pkt2) (/ pi 2.0))10.0)rechts ist dabei nil oder T, die Strecke von 10.0 ist willkürlich gesetzt.------------------viele GrüßeJörn
|
| In das Form AutoLisp wechseln |
|
Lisp : abdecken: rahmen ein/aus
stolti am 25.06.2008 um 12:36 Uhr (0)
halloman kann ja bei wipeout den rahmen ein und ausschalten.wie ich das wie z.b. bei polar ein/aus einstelle - quasi mit einer if funktion dann (oder?), weiß ich allerdings nicht.weil ich ja da kein getvar setzten kann oder?kann mir da jemand einen hinweis geben?vielen dank.
|
| In das Form Lisp wechseln |
|
AutoLisp : Schlecht geschrieben oder veraltet?
STRGALTDEL am 16.03.2003 um 22:48 Uhr (0)
Hi Programmers Ich bin eigentlich ein Lispmuffel, obwohl ich mich schon auf mapcar`s Seiten schlauer gemacht habe,aber warum laufen meist ältere LISP-Funktionen (runtergeladen oder anderswo gefundene...) nicht ohne Weiteres? Ist der Code veraltet oder sind sie einfach nur schlecht geschrieben? Hier ein Beispiel: ; This program extrudes a polygon profile along a 3d spiral path. ; Juan Jose Suarez , 24/9/91 - version 2 ; ;------------------------------------------------------------------ (defun c ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 23.01.2012 um 13:57 Uhr (0)
Mit cal muss ich mich etwas näher beschäftigen, hab auf die Schnelle nicht den Durchblick erhalten.Für var di hab ich jetzt folgendes eingesetzt und funktioniert soweit(setq di (distance (setq p1 (cdr (assoc 10 (entget l1)))) (inters p1 (polar p1 (+ win1 (/ pi 2)) 1) (cdr (assoc 10 (entget l2))) (cdr (assoc 11 (entget l2))) nil) ) )------------------Gruss Dirk
|
| In das Form Lisp wechseln |
|
Lisp : Verbesserungsvorschläge gesucht!
joern bosse am 05.03.2007 um 09:15 Uhr (0)
Hallo THE_ONE,zum warm werden am Montag morgen habe ich den Code nochmal anders geschrieben (das soll nicht heißen, daß der Weg besser ist, aber wenn Du schon lernen willst, kannst Du den Code ja mal auseinander nehmen)Ich habe die ganzen Maßangaben u.s.w. in eine "Dotted Pair"-Liste gepackt. Diese Art der Variablenverpackung finde ich persönlich übersichtlich, und ich könnte die ganze Liste in eine Textdatei schreiben und dann mit LOAD wieder laden (wenn ich z.B. Benutzereistellungen speichern will)Code:( ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
CADmium am 24.01.2012 um 13:07 Uhr (0)
@cadplayer .. dein Code schon mal mit Linien im Raum probiert? guck mal , auf was sich die Funktionen angle und polar beziehen ... IMHO fähst du besser , wenn du ne allgemeingültige Lösung wie CAL oder halt ordentliche Vektorrechnung nimmst------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : sphärische Punkteingabe
CAD-Huebner am 01.03.2008 um 10:13 Uhr (0)
Nun ja, die Funktion polar (und meine daraus entwickelte Funktion Polar3D) erwarten den Winkel - wie üblich - im Bogelmaß.Deshalb der Hinweis, evt. Winkeleingaben mit Angtof umzurechnen.So eine Funktion muss algemeingültig laufen - ich habe auch viele Vermessungszeichmungen, da ist das Winkeleinheitensystem auf Gon (Neugrad) eingestellt). Da wäre der Faktor 180/PI schlichtweg falsch.Allerdings hatte meine ursprüngliche Funktion oben einen Tippfehler (beim Formatieren eingeschlichen) enthalten, deswegen lie ...
|
| In das Form Lisp wechseln |
 |
Lisp : Radius über drei Punkte berechnen
Bernd10 am 07.11.2016 um 14:16 Uhr (15)
Hallo Roland,danke für Deine Interesse.Zitat:Original erstellt von Roland Schröder:... bräuchte ein bisschen Erläuterung dazu. (Oft zeigt sich der Fehler ja auch schon beim Verfassen der Erklärung.)Hier einige Erklärungen zu meinem Programmcode:( defun test ( / ) (setq lpkt1 (list -2.0 4.0 0.0)) ; Punkt 1 festlegen (setq lpkt2 (list 1.0 -3.0 0.0)) ; Punkt 2 festlegen (setq lpkt3 (list 5.0 7.0 0.0)) ; Punkt 3 festlegen (setq rabst (distance lpkt1 lpkt2)) ; Abstand von Punkt 1 zu Punkt 2 (setq ra (/ rabst 2 ...
|
| In das Form Lisp 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 : Radius über drei Punkte berechnen
archtools am 07.11.2016 um 13:38 Uhr (1)
Zitat:Original erstellt von Bernd10:Hallo,ich versuche den Radius eines Kreises über drei vorhandene Punkte zu berechnen. Ich mache einen Fehler und finde ihn aber nicht.Hier mein Programmcode dazu:( defun test ( / ) (setq lpkt1 (list -2.0 4.0 0.0)) (setq lpkt2 (list 1.0 -3.0 0.0)) (setq lpkt3 (list 5.0 7.0 0.0)) (setq rabst (distance lpkt1 lpkt2)) (setq ra (/ rabst 2.0)) (setq rwin12 (angle lpkt1 lpkt2)) (setq lmp12 (polar lpkt1 rwin12 ra)) (setq rwinm3 (angle lmp12 lpkt3)) (setq rabstm3 (dista ...
|
| In das Form Lisp wechseln |
