|
Lisp : Text trimmen
cadplayer am 28.05.2012 um 13:40 Uhr (0)
Danke Wolfgang!Ich konnte mir jetzt soweit helfen. Ich verstehe eigentlich gar nicht warum die Ursprungszeile gelöscht wird. Ich sage ja immer nur das ein Wort aus der Textzeile immer an das Vorgehende angesetzt werden soll.übrig bleibt das letzte Wort, welches auf dem Textursprung liegt und eigentlich gelöscht werden kann.Vielleicht kann das einer lösenCode:(defun c:strtrim (/;;; obj ; gewähltes Textobjekt;;; s ; Inhalt der Testzeile "1 2 3 4";;; n ; umgewandelte Textzeile "1" "2" "3" "4";;; t ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppencode 42 ?
CADmium am 31.03.2010 um 13:01 Uhr (0)
am besten (auch mit ein paar Bildchen) ist es IMHO bei www.afralisp.net beschrieben. Ich schenk dir mal ne Funktion die aus den Beiden Bogenendpunkten und dem Bulgefaktor alles weitere Berechnet:Parameter : P1 -[List(3x Real)] - Anfangspunkt P2 -[List(3x Real)] - Endpunkt des Bogensegments BULGE-[REAL] - BogenfaktorRückgabe : INFO [LIST] - R [Real] .. Radius - M [List(3x Real)] .. Mittelpunkt ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
Brischke am 06.05.2004 um 12:22 Uhr (0)
Hallo Ralph, dann sieht es so aus: 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 oldlayer) (setq oldlayer (getvar CLAYER )) (if (tblobjname LAYER 0_Li_Cy_013 ) (setvar CLAY ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Mittelpunkt fangen
cadplayer am 10.01.2012 um 08:21 Uhr (0)
Ich möchte gern eine Routine schaffen, die es ermöglicht den Mittelpunkt zwischen zwei gedachten Punkten zu fangen.Mein Ansatz ist dieser code, mit dem es einen point zwischen zwei pickpoints erzeugt. Der Einsatz soll beipielsweise so stattfinden, dass ich eine Linie mittig zwischen zwei nicht parallelen Linien zeichnen kann1) Eingabe line enter2) Eingabe d2 pickpoint von 1. Linie dann pickpoint von 2. Linie3) Automatisch soll der Mittelpunkt zw. Linie 1 und 2 gefangen werden 4) Eingabe d2 nächster pickpoi ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Außenkante
RoyCAD am 21.12.2004 um 08:17 Uhr (0)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ bitte stelle Deine Fragen etwas weniger allgemeingültig, damit wir wenigstens das Gefühl haben, dass Du Dich intensiv mit dem Thema auseinandersetzt. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Ok kein Problem es ist halt so, ich schreibe ein Code, das die Platten von einer Decke zeichnet. Das Problem liegt daran, wenn die Decke kein 4-eck ist kann ich die Endpunkte nicht so richtig definieren. Deshalb bin ich d ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Verbesserungsvorschläge gesucht!
THE_ONE am 05.03.2007 um 10:35 Uhr (0)
Hallo!Herzlichsten Dank mal allen für die Verbesserungsvorschläge!Was hab ich daraus gelernt: Code:(defun c:fz(/ rahmenlänge anzahl_h_löcher spoint)alles was in der Klammer steht wird am Ende auch wieder gelöscht.immer Punktbefehle verwenden denn sie könnten ja umbenannt worden sein ( danke an joern bosse, warum hat er es selbst dann nicht gemacht - auch Profis passieren mal Fehler, oder ?)mapcar lässt sich auch auf mehrere Listen anwenden, also zb. so:(mapcar funktion Liste1 Liste2 List3 Liste4 ...) mit ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linie mit Kreisen
danielboukreev am 31.12.2005 um 16:39 Uhr (0)
HalloSoweit ganz gut, ein kleiner Fehler: Leereingaben bei (command...) Befehlen werden mit "" geschrieben - bei " " meckert die Routine, daß ein Punkt verlangt wird (" " ist ja quasi ein Leerzeichen). Zudem würde ich noch die verwendeten Variablen lokalisieren - wer weiß, was sonst noch an Programmen "rumflieget", die evtl eine Zeile (if p1 ...) verwenden.Zu der Erzeugung des Kreises: ich gehe mal davon aus, daß es nicht allzuviele Kreise sind, die erzeugt werden müssen - somit geht das mit dem (command " ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 19.02.2013 um 10:29 Uhr (0)
Danke Jörn, deine zwei Funktionen liefern mir einmal die Koordinatenunterschiede zw BlockPkt und AttribPkt und dann den Winkel.Ein bissel schwierig ist das nächste Problem auf das meine Frage galt, wenn die Blöcke gedreht sind können im (ich betone im Objekt UCS) die Koordinatenunterschiede und Winkel gleich sein. Also sollte die übertragung der AttribPosition auf die Zielblöcke gleich ausfallen. Tut es bei mir aber nicht.Ich weiss nur nicht wie ich das einbauen kann. Frage: Wie bekommt man die Koordinaten ...
|
| 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 |
|
Lisp : Dynamischen Block via Lisp steuern
reltro am 16.06.2013 um 19:35 Uhr (0)
Warum sollte das nicht gehn?Hab jetzt mal nicht deine Funktion hergenommen, da da ein Fehler auftritt... Denke das liegt daran dass hier(*) etwas fehlt, nähmlich die umwandlung in den passenden Typ Code:(defun dySet (DynBlockRef Name NewValue / Property) (if (setq property (dyGet DynBlockref Name)) (progn (vlax-put-property property Value NewValue) ;---- **hier (vlax-release-object Property) ;braucht es das? (unsicher) ) ))Code:(defun BlockRef:SetDynamicPropValue (block prop value / ) (setq prop ...
|
| In das Form Lisp wechseln |
 |
Lisp : Schnittpunkt ohne Geometrie
Bernd10 am 02.08.2011 um 09:59 Uhr (0)
Hallo Marco,danke für Deine Antwort.Ich bin mit dem unten stehenden Programmcode soweit, dass ich den Schnittpunkt einer Geraden zum Kreisbogen berechnen kann. Zum Verständnis ist in der Anlage ein Bild enthalten. Ich möchte dabei den Schnittpunkt der schwarze Linie mit dem schwarzen Kreisbogen ermitteln. Die gelbe Linie ergibt sich aus dem Zentrum des Kreisbogen und dem berechneten Schnittpunkt einer Geraden mit dem folgenden Programmcode. ( defun schnpkt_kreis_linie ( lkbzentrum rradius llinspkt llinepkt ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Messen / Teilen mit Punktnummerierung - Intelligenter Linientyp
gmk am 27.05.2004 um 17:09 Uhr (0)
units an CADchup !!!!! ;;; STA geändert von CADchup (defun C:STA (/ TXL AO MS EP was?) (setq savezin (getvar DIMZIN )) (setvar DIMZIN 0) (setq SC 1000.0 ; ZE Meter, Maßstab 1:1000 TXL (* (getvar TEXTSIZE ) 12.0 ) ;_ end * ) ;_ end setq (initget Kilometer Station Meter ) (setq was? (getkword Kilometer, Station oder Meter? )) ;Abfrage, wie bemasst werden soll (defun DOLOOP (PL / PT CPT LEN LENSTR PAR FD ANG PT2 TX WID) (while (setq PT (getpoint
Punkt wählen: ) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 04.03.2009 um 13:31 Uhr (0)
Hallo Lisp Gemeinschaft, ich bin noch Lisp Anfänger und habe ien Problem beim Programmieren. Ich habe eine Pline erstellt mit (getpoint) diese danach versetzt und in der Mitte der beiden Linien einen Blöck mit messen erstellt.Leider ist jetzt mein Wissen am Ende. Ich möcht nämlich nicht nur eine Pline mit Geraden sondern auch mit Kreisbogen (welchen ich mit (getpoint) definieren kann) erstellen, weiss aber nicht wie ich das anfangen soll.Ich stell euch mein LISP Programm MAUER herein damit ihr seht was ich ...
|
| In das Form Lisp wechseln |
