|
Lisp : Koordinaten sortieren.
FiRePhoeniX am 13.02.2009 um 13:26 Uhr (0)
Super ihr seit die besten.CADmium du hattest recht mit deiner Annahme. Das der Mapcarausdrucks nicht zugewiesen.Danke an alle noch mal.Kann ich vielleicht an dieser stelle noch eine andere Frage stellen.Ist auch die letzte für heute. Wollte Fragen ob ich über lisp nach einen Block und-color: #FFFF99'>suchen. Der Hintergrund ist der, wenn ich den Befehl ( Command einfüge ) anwende.Und der Block den ich einfügen will nicht im Support Verzeichnis ist. Bricht Lisp mir den Befehl ab. Kann ich es vielleicht so geigseln das vor den ...
|
| In das Form Lisp wechseln |
|
AutoLisp : klammern in strings zählen bzw. vervollständigen?
Brischke am 18.09.2003 um 11:47 Uhr (0)
Hallo Siegfried, folgende Zeilen zerlegen dir jeden String in eine Liste von einzelnen Zeichen. Code: (defun f:str-in-list (sil_str / sil_i sil_strli) (setq sil_i 0) (if (= STR (type sil_str)) (reverse (while ( sil_i (strlen sil_str)) (setq sil_i (1+ sil_i) sil_strli (cons (substr sil_str sil_i 1) sil_strli) ) ) ) ) ) Mit dem Ergebnis kannst du nun ganz problemlos mit (cdr (member ( ERG_LISTE)) zählen heraus und-color: #FFFF99'>suchen, wie oft welches Zeichen in der Zeichen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Auswahlsatz Filtern
CADmium am 17.04.2009 um 09:52 Uhr (0)
Zitat:Original erstellt von CADchup:(aufdenBodenstampf)...ja, aber wer hat denn mit dem Listenkram angefangen? ... Knackpunkt ist IMHO am Ende die DXF-Ausgabe.Die verhaftet als command-Aufruf einfach die ganze Zeichnung ...also ich kann auch Objekte wählen ..Befehl: DXFOUTZeichnung speichern unter K:ArchivTest.dxf:Aktuelle DXF-Einstellungen: Genauigkeit= 16 Format= ASCII Voransicht= Nein Version= 2007Anzahl Dezimalstellen eingeben (0 bis 16) oder [Binär/Objekte wählen/VOransicht/Version] 16: oObjekte wä ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Mandelbrot
mapcar am 27.03.2004 um 12:21 Uhr (0)
Und nochmal ich, heute hab ich ja Zeit:-) In deinem Code solltest du aber noch ein paar Dinge klären, z.B. tausend unnötige ifs rausschmeissen. Und vielleicht mal die ganzen setvars durch setq ersetzen. Inzwischen habe ich auch mal einen Blick auf den Ausgangscode geworfen: Deine Zeile (while ( (+ (* (realpart z) (realpart z)) (* (imagpart z) (imagpart z))) 4) ist mit Sicherheit ziemlich daneben, denn die Zahl 4 ist wohl ein Abbruchkriterium (im O. ist das ein ((when ...)(return ...))! When mit While zu ü ...
|
| In das Form AutoLisp wechseln |
|
Lisp : PBereich und MBereich als Systemvariable
cadffm am 14.10.2010 um 15:22 Uhr (0)
VPORT gibt es ja nunmal auch nicht ?Du kannst damit die Ansichtsfenster des aktuellen Bereiches ansteuern,ganz normal mit (setvar "CVPORT" n)Einzigste Ausnahme: Layoutbereich, hierhin muß man wie gewohnt mit PBEREICH/_PSPACE wechseln.Aber PS: Wir wären dir echt alle verbunden wenn du einfach schreiben würdest was du hast oder willst,dann kann man einige Threads deutlich abkürzen .Noch mehr sparen: Einmal die Liste der Sysvars in acad durchlesen samt Beschreibung,oder wenigstens gezielt und-color: #FFFF99'>suchen wenn eine An ...
|
| In das Form Lisp wechseln |
|
Lisp : Treues Helferlein funktioniert nicht mehr
cadwomen am 12.11.2015 um 16:19 Uhr (1)
Zitat:Original erstellt von Jürgen Scheeren:...Ich kann das Progi laden, kann auch noch ne Linie auswählen,aber dann sagt es mir....Select first line:Select second line: Unbekannter Befehl "FILLETPL". Drücken Sie F1-Taste für Hilfe.Unbekannter Befehl "FILLET". Drücken Sie F1-Taste für Hilfe.Objektname: FF96B2F0Hy cadffmso wie ich das lese nichtcu cw------------------[i]Also ich finde Unities gut ... und andere sicher auch------------------------------------------------cadwomen™Plant ist wie Öl und-color: #FFFF99'>suchen, je t ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
Brischke am 04.03.2004 um 15:14 Uhr (0)
Zitat: ...Menü erstellen und dann das Makro zuweisen (hier dann die Lisp Datei).... Hallo, das ist, wenn man mehrere Tools hat recht einfach. Du kannst dir selber eine MNU-Datei anlegen und dann auch laden. Am einfchsten ist es, wenn du mal die acad.mnu kopierst und darin ein wenig stöberst, dann wird dir das schon klar werden. In der Hilfe kannst du ja parallel nachlesen. In Verbindung mit Lisp-Dateien und Befehlen, solltest du auch einmal nach dem Stichwort MNL und-color: #FFFF99'>suchen. Bei Fragen ... Grüße Holg ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Befehl _.text / Drehwinkel
Bernd10 am 21.09.2012 um 13:28 Uhr (0)
Hallo Jürgen,danke für Deinen Vorschlag.Zitat:Original erstellt von jupa:Wozu brauchst Du das eigentlich?. Was spricht denn dagegen, an dieser Stelle den gewünschten Wert 0 einzugeben (oder in einer LISP-Routine in den Code aufzunehmen)? Wie Du auch schreibst, werde ich wohl an den Stellen des Lisp-Codes das bisherige "" (= RETURN ) durch den eigentlich gewünschten Drehwinkel 0.0 ersetzen. Das RETURN habe ich lange Zeit für den Drehwinkel 0.0 verwenden können, da keine gedrehte Texte vorhanden waren. Zum a ...
|
| In das Form Lisp wechseln |
|
Lisp : backslash in Zeichenkette
woppi am 02.09.2016 um 08:58 Uhr (1)
Hat einen Moment gedauert,natürlich funktioniert die Version von CADwiesel auch:Hier der ganze Code:(defun c:CF( / Hyper Str pos anz) ;Hyperlink auslesen und Zieldatei kopieren(setq Hyper (cdr(assoc "PE_URL"(cdr(assoc -3(entget (car(entsel "
Objekt picken:")) (list "PE_URL")))))) Hyper (car Hyper) ;auf ersten Eintrag reduzieren Hyper (cdr Hyper) ;auf rechten Teil des ersten Eintrags reduzieren pos 0 )(while(setq pos(VL-STRING-SEARCH "/" Hyper pos)) ;speichert in pos die Position von / im ...
|
| In das Form Lisp wechseln |
 |
Lisp : Layernamen ausgewählter Objekte auslesen
VonLayer am 03.02.2020 um 08:36 Uhr (15)
Guten morgen Lisp Expertenich habe gerade ein Wochenende voller und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen und noch viel mehr try and error hinter mir. Ich versuche folgendes, das nicht so richtig will wie ich es möchte. Momentane Situation: In der Zeichnung befinden ca. 1000 Leitungen die alle als Block mit Attributen hinterlegt sind. Alle Blöcke liegen auf einem eigenen Layer. Diese Layer beinhalten die Namen der Leitungen. An vielen Stellen liegen viele Leitungen übereinander.Was ich versuche:Mit Lisp die Namen der Layer aus ...
|
| In das Form Lisp wechseln |
|
Lisp : Dieselstring variabel / ACDA LT
cadwomen am 11.03.2014 um 11:14 Uhr (1)
Hallo Zusammen, mir fällt leider Kein besserer Titel einich hab nen Pfad wo ich Teile davon "Darstellen" möchte$(substr,$(getvar,dwgprefix),64,8)soweit so gut nur der Teil ist einmal 3 und einmal 4 Zeichen lang und somit fehlt mir entweder was oder ich hab das / hinten dran hängenwas auch net geht hat mir darfür jemand ne Lösung ? Teile hinzufügen könnte ich aber wie bestimm ich die Länge zwischen den / / oder wie entferne ich das letzte Zeichen wenn es ein / ist?nur LT !! thx cw------------------Also ic ...
|
| In das Form Lisp wechseln |
|
Lisp : Lsp wird nicht geschlossen
reltro am 01.06.2013 um 08:49 Uhr (0)
Hey...hab kein acad2005...bei mir läuft das ganze einwandfrei...welches lambda hast du denn auskommentiert?das ganz oben oder jenes nach (vl-catch-all-apply ...) ?sollte es 2teres sein musst du natürlich auch das vl-catch-all-apply entfernen...versuch mal das ganze in eine benannte funktion zu packen.sprich, das erste lambda ersetzten durch eben (defun C:... du weißt schon wenns dann nicht läuft muss es wohl das "vl-catch-all-apply"-konstrukt sein...Versuch dort das (lambda (/) ... durch (function (lambda ...
|
| In das Form Lisp wechseln |
|
Lisp : GEOMCAL für BricsCAD
archtools am 19.09.2009 um 00:24 Uhr (0)
Zitat:Ich baue noch ein paar zusätzliche Funktionen mit ein, die mir im Geomcal fehlen.So das Programm ist jetzt so weit fertig und läuft bislang fehlerfrei. Vielleicht hat ja jemand Lust, Fehler zu und-color: #FFFF99'>suchen :-)Es gibt auch eine vollständige Funktionsübersicht mit dem gegenüber Geomcal erweiterten Funktionsumfang. Das Zip-Archiv enthält die AutoCAD- und die BricsCAD-Version:Das Programm ist jetzt vollständig und steht einschließlich (englischsprachigem) Handbuch zum Download bereit. CADCAL enthält gegenüber ...
|
| In das Form Lisp wechseln |
