|
Lisp : Schnittpunkt ermitteln
neurosis am 24.02.2012 um 13:47 Uhr (0)
skalarprodukt:va*vb=|va|*|vb|*cos(va,vb)=a*b*cos(alpha)mit va,vb ... vektoren|va|,|vb|,a,b laenge des jeweiligen vektorsalpha ... winkel zwischen a und b wenn va*vb=0 stehen beide vektoren senkrecht zueinander.wenn va*vb0 habe ich einen spitzen bzw. stumpfen winkel."spezialfall" fuer spitzen winkel ist ein 0-winkel."spezialfall" fuer stumpfen winkel ist gestreckter winkel.durch umformen der obrigen gleichung kann ich den cosinus der winkels alpha bzw (va,vb) ermittelncos(va,vb)=(va*vb)/|va|*|vb|wenn dieser ...
|
| In das Form Lisp wechseln |
|
Lisp : massengruppe
fca_mi2 am 02.01.2007 um 09:08 Uhr (0)
mit nachfolgendem progrämmchen (befehl: "eee") erstelle ich einen satteldachbinder. wenn ich diesen zu einer massengruppe zusammenfassen möchte, verschwinden die neuen objekte und vom binder ist nichts mehr zu sehen. was mache ich falsch ?(defun fc_adt_winkel (ep zp / dx dy dz alpha beta epx epy epz zpx zpy zpz lxy lxz ld) (setq epx (nth 0 ep)) (setq epy (nth 1 ep)) (setq epz (nth 2 ep)) (setq zpx (nth 0 zp)) (setq zpy (nth 1 zp)) (setq zpz (nth 2 zp)) (setq dx (- zpx epx)) (setq dy (- zpy epy)) (set ...
|
| In das Form Lisp wechseln |
|
Lisp : OpenDcl - Überlegungen
neurosis am 17.06.2010 um 10:14 Uhr (0)
hallo joern,ich verwende opendcl (frueher objectdcl) seit jahren und kann nur sagen:es ist klasse!zur geschicht von objectdcl hier mal was zum lesen: http://objectdcl.de/ nachdem objectdcl open source geworden ist, gab es grundlegende codeanpassungen, weshalb unter anderem auch keine unterstuetzung fuer acad 2000 und 2002 mehr implementiert ist. dies war mit dem alten objectdcl moeglich.ich verwende selber in meinen programmen fuer kunden die 6.0.0.26 (6.0.0.27 noch nicht getestet) und muss sagen, dass mei ...
|
| In das Form Lisp wechseln |
|
AutoLisp : MLI DateiBeschreibung
Proxy am 10.01.2004 um 00:17 Uhr (0)
leider nur etwas auf englisch gefunden, dafür aber nur teilweise ausführlich. Zitat: 3D-Studio Material-Library File Format (.mli) Autodesk Ltd. Document Revision 0.1 May 1996 by Robin Fercoq ( email robin@mail.fc-net.fr ) Thanks for previous work: the 3d-studio file format (.3ds) doc rewritten by Martin van Velsen (email: vvelsen@ronix.ptf.hro.nl ) based on a work from Jim Pitts (email: jp5.ukc.ac.uk ) A lot of the chunks are st ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : umgekehrter cos
scj am 09.07.2003 um 19:28 Uhr (0)
Hallo Andrea, Arcustangens ist eine von AUTOLISP unterstützte Funktion (aus der VLIDE-Hilfe ... (atan num1 [num2]) Arguments num1 A number. num2 A number. Return Values The arctangent of num1, in radians, if only num1 is supplied. If you supply both num1 and num2 arguments, atan returns the arctangent of num1/ num2, in radians. If num2 is zero, it returns an angle of plus or minus 1.570796 radians (+90 degrees° or -90 degrees), depending on the sign of num1. The range of angles returned is -pi/2 to + ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
Foxus am 01.02.2005 um 14:24 Uhr (0)
b1=r*pi*alpha/180 b2=(r-x)*pi*alpha/180 alpha=b1*180/(r*pi) r=b1*x/(b1-b2) b1 und b2 sind die Umfänge, also d*pi Skizze zu den Formeln im Anhang....(ist bereits die Abwicklung des Kegelstumpfes) Habe mir das mal aus Winkelfunktionen und Kreisformeln blablabla zusammengestellt, um die Abwicklung für einen Kekelstumpf zu bekommen. mfg, Foxus
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
Foxus am 01.02.2005 um 14:26 Uhr (0)
Zitat: Original erstellt von Foxus: b1=r*pi*alpha/180 b2=(r-x)*pi*alpha/180 alpha=b1*180/(r*pi) r=b1*x/(b1-b2) b1 und b2 sind die Umfänge, also d*pi Skizze zu den Formeln im Anhang....(ist bereits die Abwicklung des Kegelstumpfes) Habe mir das mal aus Winkelfunktionen und Kreisformeln blablabla zusammengestellt, um die Abwicklung für einen Kekelstumpf zu bekommen. mfg, Foxus Anhang vergessen..........
|
| In das Form AutoLisp wechseln |
|
AutoLisp : grread, grdraw?
CADmium am 26.05.2004 um 15:11 Uhr (0)
Hab hier mal was : (defun DT:Gummiband (FARBE ABSTAND PKT0 / PKT DX DY ALPHA N) (while (= 5 (car (setq PKT (grread t 5 0)))) (setq DX (-(car (cadr PKT))(car PKT0))) (setq DY (-(cadr(cadr PKT))(cadr PKT0))) (setq ALPHA(+(cond ((and(zerop DX)( = DY 0)) (/ Pi 2.0) ) ((and(zerop DX)( DY 0)) (/ Pi -2.0) ) ((and( DX 0)( = DY 0)) (+(atan (/ DY DX ))PI) ) ((and( DX 0)( ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 24.02.2012 um 15:03 Uhr (0)
Skalar sehe ich wie eine x-beliebige Konstante für 2 VektorenWie bekomme ich alpha raus, wenncos(va,vb)=(va*vb)/|va|*|vb|cos (länge a,länge b) = (vektor a * vektor b) / (länge a * länge b)Muss ich etwa die Linienlängen noch ermittelnMir ist klar dass bei parallelen Linien alpha 0 ist.Bspva = (1 1 0)vb = (2 2 0)|va| ist damit die Linienlänge a gemeint ?|vb| ist damit die Linienlänge b gemeint ?alpha ?Mein Ansatz ist jetzt folgenderCode:(setq l1a (cdr (assoc 10 (entget l1))) ; Linie 1 Anfang l1e (cdr (a ...
|
| In das Form Lisp wechseln |
|
AutoLisp : bogenlänge
Dabrunz am 04.09.2003 um 09:20 Uhr (0)
Tag zusammen. Mir geht s wie Holger - auch ich kann in der angegebenen Lösung (steht ja auch drin) nicht erkennen, wo da ein Ansatz für die Ermittlung der BogenLänge des Bogens zu finden sein soll. Wenn s dir geholfen hat freut mich das natürlich, aber für all die anderen, denen das vielleicht nicht so geht hier noch ein paar Vorschläge von mir ohne Verwendung von Anfangs- oder Endwinkel des Bogens: Ermittlung der tatsächlichen BogenLänge: Code: (defun :curve-len (#curve) (vlax-curve-getDistAt ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
mapcar am 09.08.2004 um 19:20 Uhr (0)
Ich wollte eigentlich noch eine 100%ig Plagiatfreie Lösung liefern. Mein Ansatz: Genau das, was man immer macht, wenn solche Inkompatibilitäten vorliegen: Man lädt die Datei burst.lsp , biegt aber temporär den load-Vorgang ein bisschen um, so dass das Ganze dann passt. Auf diese Weise kann man mal eine SCHEME-Funktion im LISP-Interpreter fahren oder umgekehrt. Naheliegend der Gedanke, die wenigen notwendigen Änderungen am burst-sourcecode on the fly durchzuführen. Etwa so: Code: (defun m-burst( / o ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Quadrant zweier krz. Linien
cadffm am 08.02.2014 um 19:28 Uhr (1)
An jeder Ecke fehlen Infos. Dein Gedanke zu Cursorposition:soll das ein Feature sein oder kommt der Gedanke aus Verlegenheit?Denn durch das anklicken zweier Linien ist sehr wohl einer der"Quadranten" bestimmt, nämlich der Bereich der vom Kreuzungspunkt zu P1 und Kreuzungspunkt P2 eingeschlossen ist.PS: Löse es mathematisch, durch Linie1&2 steht der Kreuzungspunkt fest,die Winkelhalbierende kann man ermitteln, somit der Vektor auf dem das Kreiszentrum liegt.Schon hat man Winkel Alpha, die Ankathete Gegenkat ...
|
| In das Form Lisp wechseln |
