|
AutoLisp : Linie mit Kreisen
Sue21 am 31.12.2005 um 14:52 Uhr (0)
Hallo,folgende Aufgabe ist im Rahmen meines Studiums als Übungsaufgabe gedacht:Implementieren Sie das Programm LIKREIS, welches folgendes leistet:Zeichnen einer vom Nutzer definierten Linie. Auf dieser Linie soll eine einzugebende Anzahl gleich großer Kreise, die sich berühren, so gezeichnet werden, dass die gesamte Linienlänge ausgenutzt wird. Alle Kreismittelpunkte sollen auf der Linie liegen.Meine Lösung:Code:(defun c:likreis () (setq p1 (getpoint "
Anfangspunkt der Linie: ") p2 (getpoint p1 "
Endpun ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Punkte auf Linie erstellen
Schachinger am 01.09.2004 um 16:40 Uhr (0)
versuch mal das: Code: (defun c:l_teil () (setq obj (nentsel
Linie wählen: )) (setq pt1 (cdr (assoc 10 (entget (car obj))))) (setq pt2 (cdr (assoc 11 (entget (car obj))))) (setq p_klick (car (cdr obj))) (if ( (distance p_klick pt1) (distance p_klick pt2)) (progn (setq p_temp pt1) (setq pt1 pt2) (setq pt2 p_temp) (setq p_temp NIL) ) ) (while (setq ab (getreal
Abstand eigeben: )) (setq osmode_save (getvar osmode )) (setvar osmode 0) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : bogenlänge
Helmut F am 03.09.2003 um 15:22 Uhr (0)
Hallo Marvin, zur Bemaßung eines Bogens benutze ich das folgende Programm. Allerdings wird hier Anfangs- und Endwinkel verwendet, wie soll es sonst auch gehen. (defun C:Bogenmass ( / auswahl eintrag radius zentrum start_winkel end_winkel pkt masstext) ; (SETVAR CMDECHO 0) (setq auswahl nil) (while (not auswahl) (setq auswahl (car (entsel Bitte Bogen auswählen... )))) (setq eintrag (entget auswahl)) ; (if (/= (cdr (assoc 0 eintrag)) ARC ) (alert (strcat Es wurde kein Bogen gewählt )) ; else (pr ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abstand
Schachinger am 08.09.2004 um 12:45 Uhr (0)
du hast überall die zeilen Code: (command bemlinear pt1 pt2 pt1 ) drinnen! erster punkt: anfangspunkt der bemaßung zweiter punkt: endpunkt der bemaßung dritter punkt: POSITON DER BEMASSUNG was wäre es wenn du diese zeile durch Code: (setq pt12 (polar pt1 (+ (angle pt1 pt2) (/ PI 2)) 10.0)) (command bemlinear pt1 pt2 pt12 ) ersetzt? das selbe spiel natürlich auch für die anderen bemaßungen! und natürlich nicht auf das ausschalten des ofangs vergessen! sonst springt dir die bemaßung ev. wie ...
|
| In das Form AutoLisp wechseln |
|
Lisp : tatsächlicher Winkel einer Linie
Meldin am 16.11.2017 um 13:16 Uhr (1)
Halloich hätte es so gemacht.Code:(defun c:syml (/) (setq LI1 (car (entsel))) (setq LI2 (car (entsel))) (setq OOSMODE (getvar "OSMODE")) (setvar "OSMODE" 0) (setq LI1S (getpropertyvalue LI1 "StartPoint")) (setq LI1E (getpropertyvalue LI1 "EndPoint")) (setq LI2S (getpropertyvalue LI2 "StartPoint")) (setq LI2E (getpropertyvalue LI2 "EndPoint")) (setq ItersPT (inters LI1S LI1E LI2S LI2E nil) ) (command "klinie" ItersPT (polar ItersPT (/ (+ (if(=(angle ItersPT LI1S)(angle ItersPT LI1E)) (angle ItersPT ...
|
| In das Form Lisp wechseln |
|
AutoLisp : koordinaten auslesen
Brischke am 26.12.2002 um 18:39 Uhr (0)
Hallo Peter, bei LWPolylinien sind alle Punkte hinter den Gruppencodes 10 versteckt, bei Linien gibt es nur den Anfangs und Endpunkt. Beim Bogen mußt du allerdings rechnen. Da hast du den Mittelpunkt, Startwinkel, Endwinkel und Radius. (Habe jetzt keinen Acad-Rechner zur HAnd, kann also nicht mal schnell in die DXF-Tabelle schauen) Aber daraus kann man ja dann ganz leicht z.B. mit (polar ....) den Start und endpunkt berechnen. Die Bögen in Polylinien haben allerdings nicht die gleiche Definition wie das Ac ...
|
| In das Form AutoLisp wechseln |
|
Lisp : LASTPOINT
Brischke am 04.06.2015 um 08:11 Uhr (1)
... ist heute nicht Feiertag?Egal! - ich bin ja auch am Rechner.@Vision: Auch wenn es wie Klugschei ... klingt. Aber deine Aufgabenstellung ist unlogisch. Ein Punkt besteht aus 3 Koordinaten. Dem kann man nicht einfach eine Zahl hinzuaddieren. Es ist wie beim Zeichnen auch:Du benötigst einen Vektor für die Addition, der dann natürlich mit 3 Koordinaten definiert ist.Du kannst aber auch mit dem Wissen einer Länge und eines Winkels mit der Funktion (polar ..) einen Ergebnispunkt bestimmen.Fazit: bei deiner A ...
|
| In das Form Lisp wechseln |
 |
Lisp : BKS Lisp funktioniert in ACAD 2022 nicht mehr
ositodepeluche am 14.11.2022 um 21:32 Uhr (15)
Hallo zusammenIch brauche seit einiger Zeit eine Lisp um ein BKS von vertikalen Profilen zu erstellen Bis und mit AutoCAD 2021 funktioniert die Lisp einwandfrei. Code:(command "bks" "welt")(command "_plan" "a")(setq p1xyz (getpoint "
Ursprung definieren:") p2xyz (getpoint "
Endpunkt Profil angeben:"))(setq p1 (list (atof(rtos(car p1xyz)2 2)) (atof(rtos(cadr p1xyz)2 2)) 0.0))(setq p2 (list (atof(rtos(car p2xyz)2 2)) (atof(rtos(cadr p2xyz)2 2)) 0.0))(setq radius1 (angle p1 p2) radius1 (+ radius1 (/ pi 2) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bogen mit Bogenlänge erzeugen!
mapcar am 20.02.2004 um 20:15 Uhr (0)
Also liebe Leute, hier ein Vorschlag, wie man die Dinge lösen kann: Code: (defun lbogen(cen p1 len / ang1 ang2 ang3 rad) (setq rad(distance cen p1)) (setq ang1(angle cen p1)) (setq ang2(+ ang1(/ len rad))) (if(minusp len)(setq ang3 ang1 ang1 ang2 ang2 ang3 len(abs len))) (entmake (list (0 . arc ) (cons 10 cen) (cons 40 rad) (cons 50 ang1) (cons 51 ang2) ) ) ) (defun c:lbogen1( / cen) (lbogen (setq cen(getpoint
Mittelpunkt: )) (getpoint cen
...
|
| In das Form AutoLisp wechseln |
|
Lisp : Mittelpunkt zwischen zwei Punkten
WNJT am 01.09.2023 um 17:56 Uhr (1)
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!Hallo Zusammen,ich hatte das lisp etwas erweitet, um auf den Mittelpunkt einer ausgewählen linie, einen Block einzufügen.Das funktioniert auch super. (Das List ist unten angefügt)Mein eigentliches Vorhaben ist allerding den block auf mehrere Linienmittelpunkte gleichzeitig einzufügen. Hierzu hatte ich schon vergeblich versucht mit ssget die Auswahl der Linie also (setq obj (nentsel "
Linie wählen: ")) zu ersetzten. Das funktioniert leider üb ...
|
| In das Form Lisp wechseln |
|
Lisp : Mittelpunkt zwischen zwei Punkten
anderl69 am 25.12.2003 um 14:15 Uhr (1)
Hallo,ich bin ein absoluter "Lisp-neuling".Ich habe vor kurzem einen ACAD 2002-Kurs gemacht, der auch ein wenig Lisp beinhaltet hat und wir haben folgendes kleines Programm, zum ermitteln des Mittelpunktes zwischen 2 Punkten geschrieben.Bei mir funktioniert es aber leider nicht und ich finde den Fehler nicht.(defun c:mitte2p ();Objektfang Mitte zwischen den zwei Punkten P1 und P2;16.11.2003;**************** Eingabe ****************;Punkte p1 und p2 abfragen(setq p1 (getpoint "
Ersten Punkt eingeben: "))(s ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
ABDN am 06.05.2004 um 12:17 Uhr (0)
Hallo Holger, dies ist die andere Lisp-Datei. Mit dieser Datei kann ich Bogen zeichnen mit eingabe einer Bogenlänge. Nun hätte ich gern, dass vor Programmstart ein bestimmter Layer eingestellt wird z.B. Bogenlayer. Nach Programm ende soll dann der alte Layer wieder zurückgesetzt werden. Kannst du mir hier weiterhelfen? (defun lbogen(cen p1 len / ang1 ang2 ang3 rad) (setq rad(distance cen p1)) (setq ang1(angle cen p1)) (setq ang2(+ ang1(/ len rad))) (if(minusp len)(setq ang3 ang1 ang1 ang2 ang2 ang3 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Fasen mit falschen Werten (1.0 statt 1.5)
Peter2 am 12.08.2010 um 13:07 Uhr (0)
Ich habe an einem PC das Problem (derzeit nicht reproduzierbar, aber am Zeichnungsergebnis ersichtlich), dass Fasen im Originalbefehl und über Lisp-Konstrukte falsch abgearbeitet wurden. Funktioniert aber seit Jahren an vielen PCs - und jetzt auch wieder am Fehler-PC - ohne Probleme.Thema 1:Lisp als "command"-Ersatz:Code:"Setvar chamfera 1.5, setvar chamferb 1.5""command fase pause pause"Ergebnis:Die Fasen werden nur mit 1.0 erstellt.Thema 2:Code:Lisp zur Berechnung von Linien über Koordinaten, Winkel (pol ...
|
| In das Form Lisp wechseln |
