|
Lisp : Boegen in Polylinien > 180° teilen
Theodor Schoenwald am 09.08.2012 um 19:09 Uhr (0)
Hallo Thomas,ein Tool das Bögen 180° teilt, wenn man das Bogensegment der Polylinie anwählt, habe ich bereits gemacht.Es geht um die Koordinaten-Ausgabe für NC-Daten.Hallo Jochen,nun habe ich den Code auch für Polylinien und LWPolylinien gemacht:;;--- Geteilte Koordinatenausgabe bei Polylinien-Bögen 180° -----(if ( WI pi) (setq MIDP (polar P1 (angle P1 P2) (/ (distance P1 P2) 2.0)) MIDP_A (polar MIDP (- (angle P1 MIDP) (/ pi 2)) (* (distance P1 MIDP) (abs BULGE))) FLAG_180 t )) ;;------------------ ...
|
| In das Form Lisp wechseln |
|
Lisp : Probleme mit (polar ... )
Oberpeilsteiner Florian am 22.06.2011 um 15:22 Uhr (0)
Ich habe vor:Code:(polar (polar (list (nth 1 lastline) (nth 2 lastline)) (angle (list (nth 1 lastline) (nth 2 lastline)) (list (nth 1 line) (nth 2 line))) (/ (distance (list (nth 1 lastline) (nth 2 lastline)) (list (nth 1 line) (nth 2 line))) 2) ) (+ (/ pi 2) (angle (list (nth 1 lastline) (nth 2 lastline)) (list (nth 1 line) (nth 2 line))) ) (distance (list (nth 1 lastline) (nth 2 lastline)) (list (nth 1 line) (nth 2 line))) )einen Haltepunkt gesetzt,diesen Teil dann ...
|
| In das Form Lisp wechseln |
|
Lisp : StartUndoMark EndUndoMark?
kadirozen am 08.08.2023 um 11:19 Uhr (1)
Zitat:Original erstellt von archtools:Tu den Leuten, die Dir eventuell helfen können und wollen, den Gefallen, und bastle ein kleines Beispielprogramm, um das Fehlerverhalten zu veranschaulichen, anstatt so viel Code zu posten, der offenkundig nichts mit dem Problem zu tun hat. Ich jedenfalls gucke mir sowas gar nicht erst an.Ich danke Ihnen für den Vorschlag.Ich habe dies als Beispiel geschrieben. Wenn ich es ausführe, entstehen 4 Punkte in der Mitte des Bildschirms. Wenn ich Strg Z drücke, werden alle 4 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zentrumsache mit Lisp
Proxy am 12.11.2004 um 10:02 Uhr (0)
Sollen die Zentrumsachsen immer einen festen Winkel haben oder durch zusätzliche Benutzereingaben anpassbar sein ? Codeschnippsel kann ich dann die posten. Ablauf ist so ... Kreis mit Radius R und anklicken Gruppencode Zehn = Mittelpunkt MP z.B. (10 87.1987 405.175 0.0) abfragen, eine Linie mit Überstand = L definieren z.B. (setq L (* R 1.25)) dann (command "._PLINE" (polar MP 0 L) (polar MP pi L) "") erstellen wäre die feste Variante. ------------------ " Lisp?!?! Why the Hell did you pick the mos ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Radius über drei Punkte berechnen
Bernd10 am 08.11.2016 um 10:26 Uhr (15)
Hallo,ich habe nun eine Lösung für meine Anforderungen gefunden. Hier mein Programmcode dazu:(setq rabst3 0.004) ; Abstand zum dritten Punkt(setq rwin1bm (angle lpktvla lpktla))(setq rwin2bm (angle lpktla lpkta))(setq lpkt31 lpktvla)(setq lpkt31 (polar lpkt31 rwin1bm (/ rabst1 2)))(setq lpkt31 (polar lpkt31 (+ rwin1bm (wingrbm rwin3)) rabst3))(setq lpkt32 lpktla)(setq lpkt32 (polar lpkt32 rwin2bm (/ rabst2 2)))(setq lpkt32 (polar lpkt32 (+ rwin2bm (wingrbm rwin3)) rabst3))(setq lzent1 (zentbogttkrw lpktvla ...
|
| In das Form Lisp wechseln |
|
Lisp : Objekte verlängern mit Lisp
wronzky am 23.07.2008 um 21:11 Uhr (0)
Hiohne gross zu rechnen, kannst Du ja auch den Befehl Länge mit der Option Delta benutzen. Das ist für den Anfang auch einfacher zu verstehen. Bin mal so frei, Dir ein schnelles Beispiel zukommen zu lassen:Code:(defun c:vox-lengthen () (setq lg 0.2) (setq ele (car (entsel))) (setq ele_eig (entget ele)) (if (= (cdr (assoc 0 ele_eig)) "LINE") (setq p1 (cdr (assoc 10 ele_eig)) p2 (cdr (assoc 11 ele_eig)) ) ) (if (= (cdr (assoc 0 ele_eig)) "ARC") (setq p1 (polar (cdr (assoc 10 ele_eig)) (cdr (assoc 50 e ...
|
| In das Form Lisp wechseln |
|
AutoLisp : versetzen
bu am 03.01.2005 um 13:06 Uhr (0)
hallo judith, kleiner fehler, grosse auswirkung. doch nun müsste es funktionieren. gruss (defun C:MV (/ OFFSETVAL STP1 X1 X2 Richtung) (if (setq X1 (entsel
Objekt zum Versetzen wählen: )) (if (if (and (= LINE (cdr (assoc 0 (entget (car x1))))) (or (= (car (cdr (assoc 10 (entget (car x1))))) (car (cdr (assoc 11 (entget (car x1))))) ) (= (nth 1 (cdr (assoc 10 (entget (car x1))))) (nth 1 (cdr (assoc 11 (entget (car x1))))) ) ) ;or ) ;a ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Addition von relativen Koordinatenangaben
CAD-Huebner am 07.02.2009 um 14:35 Uhr (0)
Zitat:Original erstellt von mundal:Ich habe einem fixen Koordinatenpunkt, nennen wir ihn P1 (Koordinate 10,10).Diesem Punkt sollen relative Koordinatenangaben "aufaddiert".Kann dies LISP ?Beispiel:---------(setq endpunkt ( + p1 @10045))Hallo Franz, natürlich kann Lisp mit Koordinaten umgehen, es ist eine dafür prädestinierte Programmiersprache. Allerdings muss man auch die notwendigen Lisp-Funktionen kennen (stehen alle in der Online-Hilfe - Ich hab sie mal alle sorgfältig durchgelesen und folgende Funkti ...
|
| In das Form Lisp wechseln |
|
Lisp : Wände über Lisp
Maxon777 am 12.07.2019 um 22:49 Uhr (15)
Hallo libe Lisp Freunde, Da ich noch grosse Lücken in meine Lisp Kenntnisse habe benötige ich immer wieder Hilfe von erfahrenen Spezialisten Das Programm soll Wände darstellen. Wie kriege ich denn das es, nicht von vier Punkte Kordinate für plinie fragt sondan abhängig von Bedarf. Danke im voraus. (defun c:das () (setq p (getpoint "
Punkt")) (setq p1 (getpoint p "
Punkt")) (setq p2 (getpoint p1 "
Punkt")) (setq p3 (getpoint p2 "
Punkt")) (setq ugl (angle p p1)) (setq ugl1 (angle p2 p3)) (setq m (polar p ( ...
|
| In das Form Lisp wechseln |
|
AutoLisp : versetzen
bu am 03.01.2005 um 11:05 Uhr (0)
Hallo Leute, dies wäre mein vorschlag: (die optimierung habe ich dankend mitaufgenommen) das programm startet nach dem laden automatisch. wenn das gewählte objekt keine line ist oder eine linie ist aber weder senkrecht noch waagrecht funktioniert das programm wie gehabt. (defun C:MV (/ OFFSETVAL STP1 X1 X2 Richtung) (if (setq X1 (entsel
Objekt zum Versetzen wählen: )) (if (if (and (= LINE (cdr (assoc 0 (entget (car x1))))) (or (= (car (cdr (assoc 10 (entget (car x1))))) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Autolisp 2010
CAD-Huebner am 11.08.2009 um 14:24 Uhr (0)
Ich füge bei (Command "_Fillet" ... grundsätzlich die Elemtnamen mit an, das funktionmiert auch in 2010 bisher problemlos.Code:(defun c:fillettest ( / pPt sPt nPt rad line1 line2) ; Udo Hübner für CAD.de ; sample Data (setq pPt (10.0 10.0 0.0) sPt (30.0 10.0 0.0) nPt (60.0 50.0 0.0) rad 10.0 ) ; Draw Lines (command "_Line" pPt sPt "") (setq line1 (entlast)) (command "_Line" SPt nPt "") (setq line2 (entlast)) ; set Filletradius (setvar "filletrad" rad) ; create the fillet, and catch possible errors ...
|
| In das Form Lisp wechseln |
|
Lisp : trans - was ist falsch
gmk am 04.03.2008 um 09:17 Uhr (0)
Zitat:Original erstellt von Geos: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ätte dann (0 0 0), der Endpunkt (linienlänge 0 0).Die Geländepunkte wären dann mit (stat (- höhe ve)) zu kriegen, die Liste mit (foreach ...) abzuarbeiten.Servus Ernst,erstell doch das Querprofile im WKS und schieb es dann mit _align auf die VE. Dann brauchst du kei ...
|
| In das Form Lisp wechseln |
|
Lisp : Problem mit (* Realzahl -1)
FiRePhoeniX am 18.05.2009 um 14:55 Uhr (0)
Hallo Forum.Hab ein Riesen Problem was ich nicht verstehe. Das Problem ist folgendes will eine Realzahl von plus nach minus und von minus nach Plus ändern. Das mache ich normal mit (* Zahl 1) so wie mal es aus der Schule noch kennt. Jetzt habe ich ein komische Problem entdeckt. Habe eine Errechnung für einen Höhenplan geschrieben. Der soll mit dann die Abrundung zeichnen. So, weit so gut. Jetzt kommt das mysteriöse. In der Rechung muss ein Punkt von plus nach minus und von minus nach plus umgerechnet werd ...
|
| In das Form Lisp wechseln |
