|
Lisp : Mehrere Dateien mit Lisp bearbeiten
Brischke am 12.09.2008 um 08:05 Uhr (0)
Hallo,wenn ich mehrere zeichnungen mit einer lisp-Funktioon bearbeiten möchte, dann lege ich diese in ein Verzeichnis, und erzeuge dort dann eine acaddoc.lsp.Diese sieht dann meist so aus:Code:(LOAD "XXX.LSP")(c:BEFEHL)(command "_.qsave")(command "_.close")Dann ziehe ich die Zeichnungen aus dem Explorer via Dragn Drop ins AutoCAD und gehe einen Kaffee trinken. Also nix kompliziertes oder extra Script... Für den schnellen Einsatz bestens geeignet.Bei fragen ...Grüße!Holger------------------Holger BrischkeCA ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bitcode auflösen
Brischke am 26.02.2004 um 14:07 Uhr (0)
Hallo Stefan, so: (= (logand 16384 16384) 16384)- T (= (logand (+ 4 16384) 16384) 16384)- T (= (logand 131072 16384) 16384)- nil Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bitcode auflösen
Brischke am 26.02.2004 um 14:17 Uhr (0)
Hallo Stefan, Ja, so hast du das richtig verstanden. Was sollte man auch mehr schreiben .. die Bsp waren doch eindeutig. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DATUM AUTOMATISCH USW.
Brischke am 11.05.2004 um 09:28 Uhr (0)
Zitat: Original erstellt von marc.scherer: Wie wäre es mit ner Lisp-Funktion die Dir den String als Attributwert auf Knopfdruck einträgt? Bitteschön: Code: (defun c:tragein (/ dat att) (entmod (subst (cons 1 (setq dat (rtos(getvar CDATE ) 2 0) dat (strcat (substr dat 7) . (substr dat 5 2) . (substr dat 1 4) Fab ) ) ) (assoc 1 (setq att (entget(car (nentsel))))) att ) ) (entupd (cdr(assoc 330 att))) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Bios-Daten lesen aus AutoCAD
Brischke am 17.11.2006 um 10:40 Uhr (0)
Betreffs Shellfenster:Guck dir mal den Thread an.------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.
|
| In das Form Lisp wechseln |
|
Lisp : LISP start debugging
Brischke am 04.01.2007 um 00:18 Uhr (0)
Zitat:Original erstellt von achim8: Es geht nicht um das Editieren, sondern um den unabhängigen Start/Ablauf des fertigen Programms. Im Prinzip wäre deshalb letzteres das Endziel für:- Datensatz von Element über Schlüsselcode aus Datenbank (access o.ä.) auslesen- Element in vorgegebene dwg-Datei einlesen (=zeichnen).Der 2. Teil scheint mir über LISP einfacher(gut)programmierbar zu sein. Für den 1. Teil und einen unabhängigen Programmlauf (Endziel) scheint mir (nach meinen bescheidenen Kenntnissen/Erfahru ...
|
| In das Form Lisp wechseln |
|
Lisp : Klotoiden konstruieren
Brischke am 19.11.2013 um 13:46 Uhr (1)
Hallo Dirk,du weißt was eine Klothoide ist?Eine Klothoide hat die Eigenschaft an einer jeden Stelle einen anderen Radius zu besitzen. Du kommst folglich mit den 2 Kreisen nicht sehr weit.Du kannst lediglich die Punkte einer bestimmten Klothoide mit dem Startradius und dem Endradius und dem notwendigen Klothoidenparamter berechnen und die berechneten Punkte miteinander zu einer Polylinie verbinden. Auch das ist nur eine Annäherung, die Genauigkeit kannst du mit der Anzahl der berechneten Koordinaten festleg ...
|
| In das Form Lisp wechseln |
 |
Lisp : string umformen
Brischke am 22.01.2014 um 17:10 Uhr (15)
Hallo,ich würde1) die Positionen vom "+" ermitteln2) substring vom letzten "+" beginnend = Zahl3) Zahl um 1 erhöhen4) strcat substring vorm letzten "+" und neue ZahlGrüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Scheitelpunkte aus Polylinie entfernen
Brischke am 29.01.2014 um 06:06 Uhr (1)
Zitat:Original erstellt von dwg3d: (im ersten Beitrag)Sollte es etwa nicht möglich sein?Zitat:Original erstellt von dwg3d:...vielleicht muss man dazu schon ein fortgeschrittener Lispler sein ...Ich denke nicht, dass man zum verstehen von Code intensive Kenntnis einer Programmiersprache haben muss. Viel wichtiger ist, um den Code nachvollziehen zu können, was wird damit gemacht. Deshalb habe ich auch den 1. Beitrag zitiert. Programmieren ist in erster Linie die Idee einer Lösung, nicht das Beherrschen aller ...
|
| In das Form Lisp wechseln |
|
Lisp : Problem mit unterschiedlicher Attributanzahl
Brischke am 31.01.2014 um 11:28 Uhr (1)
(While (/= 0 (getvar"cmdactive"))(command ""))...oder ao ähnlichOder du fügst grundsätzlich ohne das Ausfüllen der Attribute ein und füllst im Nachgang die AttributeGrüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
BcLineBreak_V14.zip |
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
Brischke am 07.02.2014 um 08:29 Uhr (1)
Hallo Dirk,die anbei befindliche Programmdatei funktioniert mit beiden Varianten (32/64bit).Hinweis: Ich habe die Polylinien (innere Konturen) geschlossen, damit das auch richtig funktionieren kann - das solltest du auch tun!Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Zahlen aufrunden
Brischke am 08.07.2015 um 17:45 Uhr (15)
Hallo Richy,Zahl / 10, davon den ganzzahligen Wert ermitteln (fix) dass dann mit 10 multiplizierenoder in String mit 0 Kommastellen umwandeln (rtos) den Teilstring ohne das letzte Zeichen ermitteln (substr) und dann eine "0" anhängen (strcat) und dann wieder in eine Zahl umwandelnDas sind 2 Wege, die man gehen könnte, es gibt noch weitere ... Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Objektkoordinaten mit Lisp abfragen
Brischke am 03.11.2016 um 21:33 Uhr (1)
Ersetze: (setq sStyleName (cdr (assoc 7 eList)))Durch (setq sStyleName (rtos (caddr(cdr (assoc 10 eList)))2 2))(Ungetestet, nur so reingetippt)Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
