|
Lisp : Umgrenzung für Schraffur neu erstellen
Hämmy am 10.09.2020 um 07:25 Uhr (1)
Hallo Leute,ich habe folgendes Problem:wenn ich Objekte die Schraffiert sind, kopiere und danach in der Größe ändere, geht die Schraffur nicht mit.Eigentlich sollte das nicht so sein, aber bei kopierten ist das leider oft der Fall.jetzt muß ich Umständlich in die Schraffur gehen, die Umgrenzung für das Objekt entfernen, und dann das gestreckte Objekt als neue Umgrenzung auswählen.Das ist natürlich sehr umständlich, deshalb wollte ich hier fragen, ob man dafür eine Lösung per Lisp basteln kann.z.B.Schraffur ...
|
| In das Form Lisp wechseln |
 |
Lisp : Papierbereich-Ansichtsfenster Beschriftungsmaßstab ändern
cadking am 12.09.2019 um 11:31 Uhr (15)
Danke für Dein Engagement.Ich muss in 1600 Dateien die Maßstabslisten bereinigen. Die Dateien enthalten zum Teil mehrere Layouts, bei denen der Beschriftungsmaßstab auf 1:1000_1, 1:1000_4 ... eingestellt wurde. Diese Maßstäbe lassen sich nicht aus der Maßstabsliste löschen. Darum habe ich eine Lisp, die alle Dateien öffnet, (die Maßstäbe der Pap-AF auf 1:100 setzen soll), dann alle Maßstäbe löscht und die benötigten Maßstäbe aus einer Vorlagezeichnug importiert. Ein Lösung für mein Problem würde mir sehr h ...
|
| In das Form Lisp wechseln |
|
Lisp : CTB mit Pfaden in der Datenbank (alter Hut?)
Peter2 am 19.03.2011 um 09:28 Uhr (0)
Zitat:Original erstellt von mapla:...Und womit hast Du nun das Problem?...Das Problem lag darin, dass ich per Lisp die definierte CTB mit den vorhandenen verglichen habe. Und da gab es natürlich das Ergebnis Code:"test.ctb" vorhanden, aber "d:lablaacadplotstile est.ctb" nicht gefundenHabe es schon umprogrammiert, aber es war erstaunlich ... Zitat:Original erstellt von cadffm:....das es auch bei anderen Supportdateienmöglich ist die Angabe mit oder ohne Pfad zu speichern - nur mal so / für die Zukunft ...
|
| In das Form Lisp wechseln |
|
AutoLisp : decompiler für vlx
mapcar am 22.11.2004 um 10:05 Uhr (0)
Cadchup, das sehe ich nur in Grenzen so. Für die ist das Thema von einer so immensen Bedeutung wie für uns das Laden von Bigfonts. Für die Chinesen das allererste Handwerkszeug, aber hier? Steht auch in der Hilfe drin. Es ist nicht so, dass man einfach nach Regeln (und vor allem nach Tabellen) vorgehen kann. Fas die Hälfte aller AutoCAD-Befehle sind überhaupt keine nativen Befehle: AUSRICHTEN kann man zwar durch _ALIGN ersetzen, aber man kann den Tiefstrich auch weglassen. Gibt man dann bei der Objektwahl ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Elemente miteinander Verknüpfen
Paulchen am 07.03.2006 um 14:31 Uhr (0)
So, nach einer kurzen Spielerei die ersten Denkanstöße.1. An den Bemaßungstext - eine Realzahl - kommst Du soCode:(cdr (assoc 42 (entget (car (entsel "
Bemaßung anwählen: ")))))heran - einfach mal in der ACAD-Befehlszeile einfügen.2. Der Inhalt der Positionsnummern ist - auf die Schnelle - nur auf einem etwas weniger eleganten Weg auszulesen. Ich löse zunächst den Block auf, lese die Nummer des Textes aus und mache dann die Auflösung rückgängig. Nicht elegant, aber wirkungsvoll )-; Also: Auflösen mit "_.ex ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Flächenberechnung
Kodat am 23.02.2005 um 17:26 Uhr (0)
@ spider_dd Hallo spider. Super es funktioniert. Wir zeichnen in cm und die Ausgabe ist in m2 . ICh habe es abgeändert mit meinen wenigen Kenntnissen in Lisp. Jetzt bekomm ich es in m2 heraus. So, da taucht noch eine wichtige Frage auf. Wir bekommen für Kleinprojekte immer mal wieder Pläne in unterschiedlichen Einheiten. Da es Megga- Arbeit ist alles immer wieder zu bearbeiten kommt es vor das wir mal in mm, dann cm und evtl. auch noc m arbeiten. Eine fürchterliche Angelegenheit. Jetzt die Frage. !! Kann m ...
|
| In das Form Lisp wechseln |
|
Lisp : Insert-Reactor erstellen - k.A.
Bäumchen am 29.06.2007 um 01:44 Uhr (0)
Guten Nacht ich habe es nun endlich geschafft den Reactor von MapCar zuverstehen und grob anzupassen!Code:; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . cmd-end-callback)) )); Funktion zum Setzen der Reaktoren(defun add-cmd-reactors( / ) (vl-load-com) (if(not *cmd-reactor-added*) (progn (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start- ...
|
| In das Form Lisp wechseln |
|
Lisp : Änderung mehrerer Objekte
namsokrok am 26.05.2010 um 16:21 Uhr (0)
Hallo,ich versuche mich mal wieder daran, einen häufig wiederkehrenden Prozess zu automatisieren.Aufgabenstellung:Alle Elemente der Zeichnung, die die Farbe 10 haben, sollen mit dem Truecolor-Farbwert 255,0,0 darstellt werden.Bei einem einzelnen Objet habe ich das auch schon hinbekommen, aber meine Lisp-Idee funktioniert nicht bei einem Auswahlsatz.Bislang sieht´s so aus:(defun c:farbe ()(setq c10 (ssget "_X" (list (cons 62 10))))(cons 420 16711680)(list (cons 420 16711680))(setq c10 (append c10 (list (con ...
|
| In das Form Lisp wechseln |
|
Lisp : ssget filter_list aus Datei erzeugen
archi.archi am 25.02.2017 um 11:13 Uhr (1)
Hallo Marco,"du ueberschreibst dir deine funktion "filterladen" am ende selbiger, indem du aus der funktion eine variable machst."kleine Ursache - große Wirkung! Das kommt wohl davon, wenn man nach 10 Jahren wieder mit LISP anfängt und die Methode der Wertzuweisung in Funktionen über den Namen oder über Parameter verblasst ist!Ein Check für Dateien (if filterliste ) war schon enthalten. Einen Check für Objekte im Auswahlsatz (if liste) eigentlich auch.Vielen Dank für deine Hilfe - ab sofort werden alle ext ...
|
| In das Form Lisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
michelangelo am 21.10.2004 um 16:50 Uhr (0)
ETWA SO STELLE ICH MIR DAS VOR NUR HABE ICH NICHT SO VIEL AHNUNG VON LISP DAS ICH WEISS WIE ICH DAS RICHTIG SCHREIBEN MUSS. (defun C:SBM ( / AUSWAHL p1 p2 p3) (setq AUSWAHL (ssget C ) (setq OSC_old (getvar osnapcoord )) (setvar osnapcoord 1) (setq p1 (getpoint
Ersten Punkt wählen )) (setq p2 (getpoint
zweiten Punkt wählen )) (setq p3 (strcat (rtos (+ (car p1) (* (- (car p2) (car p1)) 0.5)) 2 8) , (rtos (+ (cadr p1) (* 0.5 (- (cadr p2) (cadr p1)))) 2 8) ,0.0 )) (setvar osnapcoord (pri ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Problem bei AutoLisp mit Koordinaten-Angaben
Brischke am 22.01.2004 um 14:42 Uhr (0)
Hallo Imion, hallo Marvin der Fehler liegt an dem ganz am Anfang (entmake ((0 . Vertex ) (10 (+ (car Startpoint) Width)) (20 (cadr Startpoint)) (30 (caddr Startpoint)))) Das teilt dem Programm mit, dass das folgende nicht evaluiert werden soll. Es wird also nicht der Wert der Variablen übergeben sondern der Variablenname. Und dass kann dann nicht funktionieren. Ändere das dahingehend: (entmake (list (0 . VERTEX ) .. (cons 10 (+ (car Startpoint) Width)) .. ) ) Dann sollte es funktionieren. Bei Fragen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : XDATA-Wert in Attribut übernehmen
Attilio am 12.05.2009 um 16:33 Uhr (0)
Hallo Jörn, erstmal danke für die schnelle Hilfe !Wenn ich jetzt noch in meinem LISP für Dummies-Buch etwas weiter wäre, könnte ich mir den Rest wahrscheinlich selbst schreiben... :-)Da dies aber leider noch nicht der Fall ist, bin ich auch für den zweiten Step - eine Funktion für das Übernehmen der Daten in das Attribut zu schreiben - noch nicht fähig...Daher meine Bitte : Wenn es nicht zuviel Aufwand ist, kann mir da noch jemand ne kleine Funktion zum Übernehmen der Daten in die Attribute basteln ???Wäre ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Anwendertreffen
Brischke am 15.10.2004 um 08:53 Uhr (0)
@all, ein ganz großes Dankeschön, auch an dieser Stelle an das CAD.de/AUGCE Team für das gelungene Anwendertreffen. Ebenso geht dieser Dank auch an alle, die es auf die CAT.pro geschafft haben, und somit für die super Stimmung und Gespräche (sowohl fachlich als auch privat) mit Verantwortlich sind. Ein Dank auch an die Chat-Truppe, die uns nach Kräften unterstützt haben, auch wenn Sie nicht dabei sein konnten. Und eine Empfehlung an all jene, denen es nicht möglich war zum Treffen zu kommen. Tut alles, um ...
|
| In das Form AutoLisp wechseln |
