|
Lisp : kostenfreie ArchTools als Lisp Library
archtools am 30.05.2023 um 10:06 Uhr (1)
Für BricsCAD ist in den ArchTools als Ersatz für das dort nicht vorhandene GEOMCAL das Programm CADCAL enthalten. Damit kann man sehr schnell und einfach ohne alle Programmierkenntnisse die kompliziertesten Koordinatenberechnungen durchführen, und sich bei der CAD-Arbeit jede Menge Hilfskonstruktionen sparen. Eine Übersicht über die CADCAL-Funktionalität ist hier zu finden: www.archtools.de/cadcal.htmlIm Quellcode ist natürlich auch der Quellcode für CADCAL enthalten. Für Programmierer ist das ein Beispiel ...
|
| In das Form Lisp wechseln |
|
Lisp : Datei mithilfe von LISP verändern
joern bosse am 27.02.2008 um 13:58 Uhr (0)
Hallo Lispelmann,und hier nochmal ein Beispiel zu Thomas seinen Ausführungen:Code:;;;Datei schreiben(defun SCHREIBEN (dateiname liste / datei) (setq datei (open dateiname "w")) (mapcar (lambda(A) (write-line (cadr A) datei))liste) (close datei));;;Datei lesen(defun LESEN (dateiname / zeile datei liste n) (if(setq datei (open dateiname "r")) (progn (setq n 1) (while (setq zeile (read-line datei)) (setq liste (cons (list n zeile) liste)) (setq n (+ n 1))) (close datei))) (reverse liste));;;Zeile e ...
|
| In das Form Lisp wechseln |
|
Lisp : Alle geöffneten Pläne auf Modellansicht
wronzky am 23.04.2008 um 11:59 Uhr (0)
Code:(defun c:Model2All () (vl-load-com) (vlax-for i (vla-get-documents (vlax-get-acad-object)) (vla-put-activespace i 1)))Ich komme trotzdem nur auf eine Zeile Nein aber mal im Ernst, Ich denke es geht im Forum (speziell im Lisp-) auch darum, ANDEREN, die beispielsweise nach diesem Thema und-color: #FFFF99'>suchen, auch schon mal "präventiv" zu helfen. Ist ja ein schönes kleines Beispiel für "Wie mach ich was für alle Zeichnungen".Grüsse, HenningPS: Und in der Diskussion über (c)opyright schliesse ich mich einfach mal MAPCA ...
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
clausb am 01.11.2006 um 17:54 Uhr (0)
Bei mir tut in Common-Lisp-Dialekten (CLISP, KCL/OneSpace Designer Modeling Lisp) der folgende Code das Gewuenschte:Code:(setq obf (list "A0" "A1" "A2" "A3" "A4"))(substitute "A=" "A2" obf :test #string=)Claus------------------OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/
|
| In das Form Lisp wechseln |
|
Lisp : Text durch Block ersetzen
cadffm am 10.01.2007 um 14:53 Uhr (0)
eigentlich ist es ganz gut kommentiert, hier mal geändert auf:TEXTE= "1" und "2"werden jeweils durch Blockreferenzen "1" & "2" ersetzt.Code:(mapcar (lambda (NAME / as) (setq as (ssget "_X" (list (-4 . "and") (0 . "TEXT") (cons 1 NAME) (-4 . "and") ) ) ) (mapcar (lambda (E) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Ersetzen über Lisp
mkl-cad am 18.06.2004 um 11:45 Uhr (0)
Hallo Pally Tom hat auf einen Beitrag hingewiesen der die Antwort liefert. hab hier noch mal das Programm reinkopiert. Damit s jeder findet. Habe ich ausprobiert. Funktioniert fabelhaft. Dankt Tom Berger. Tom Berger ;;; GSR.LSP / 12APR95 ;;; ;;; Copyright (C) 1995 by Thomas Berger ;;; ;;; FREEWARE: ;;; Permission to use, copy, modify, and distribute this software ;;; for any purpose and without fee is hereby granted, provided ;;; that the above copyright notice appears in all copie ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Kennt jemand, die zweite - großflächig Layouts generieren
tunnelbauer am 31.07.2008 um 14:55 Uhr (0)
Da gibt es meines Wissens nach fertige Kauflösungen... Müsstest mal und-color: #FFFF99'>suchen...------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form Lisp wechseln |
|
Lisp : Flächen Summe berechnen
cadwomen am 27.04.2017 um 13:55 Uhr (1)
Hy hätte da noch das im Angebothttp://www.lee-mac.com/areastofield.htmlcu cw------------------Also ich finde Unities gut ... und andere sicher auch------------------------------------------------cadwomen™Plant ist wie Öl und-color: #FFFF99'>suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht
|
| In das Form Lisp wechseln |
|
Lisp : HB.lsp Interpolieren
-sauer am 01.04.2014 um 12:47 Uhr (1)
Habs gefunden nach langem und-color: #FFFF99'>suchen...einfach (arxload "geomcal.arx")in (arxload "geomcal.crx")ändern... dann geht wieder alles...Gruß Danke
|
| In das Form Lisp wechseln |
PL-CIRCLE2P.zip |
Lisp : Punkte auf Polylinien
CADmium am 25.09.2019 um 08:21 Uhr (1)
Irgendwo hatte ich schon mal sowas auf cad.de gepostet .. aber neuschreiben geht manchmal schneller als und-color: #FFFF99'>suchen ... anbei ------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : UTF-Konvertierung
Niggemann am 26.03.2025 um 14:34 Uhr (1)
Nach langen vergeblichen und-color: #FFFF99'>suchen hab ich mich entschlossen die Textezu konvertieren und dann in UTF-8 zu konvertieren. Hat den Vorteil das ich auf anderen Rechnern mein Lisp benutzen kann ohne etwas nach zu instalieren und kann damit auch die Codepage 437 und 850 bearbeiten.GrußNiggemann
|
| In das Form Lisp wechseln |
|
Lisp : Benutzte Tabelleneinträge
Wolfgang S am 12.03.2008 um 10:00 Uhr (0)
Grüß Euch!ja, wird wohl etwas nerven das und-color: #FFFF99'>Suchen.Ich hab da im Hinterkopf aus unserem heißgeliebten Kochbuch (eine) Funktion(en) zum Durchund-color: #FFFF99'>suchen von Blöcken das war unter anderem; Alle Subentities des Blocks "Schraube",; die rote Linien sind(gather-subents-if "schraube" (lambda (data /) (and (= "LINE" (cdr (assoc 0 data))) (= 1 (cdr (assoc 62 data))) ) ))in Verbindung mit dem Befehl "sel-inserts"ist das für Blöcke denk ich ziemlich unkompliziertdie Codes gibts beim Hanser-Verlag zum Downloaden (a ...
|
| In das Form Lisp wechseln |
|
Lisp : Funktion wcmatch
CADmium am 09.09.2013 um 11:46 Uhr (1)
Ich mach jetzt mal kein Bild.. ich hoff der Text genügt dir :"Anmerkung :Because additional wild-card characters might be added in future releases of AutoLISP, it is a good idea to escape all nonalphanumeric characters in your pattern to ensure upward compatibility."das heißt , vor jedes Zeichen , was keine Zahl ist ein "`" setzen ... dann wird das Zeichen ohne irgendwelche Interpretationen seitens wcmatch genommen .... brauch man auch wenn man direkt nach "*" und-color: #FFFF99'>suchen will ------------------Also ich finde ...
|
| In das Form Lisp wechseln |
