|
Lisp : Layer Ansichtsfenster Farbe mit lisp ändern
nebuCADnezzar am 25.09.2025 um 12:06 Uhr (1)
HihiAlso glaube der command Knopf funktioniert (bin nur am Rande itnegriert da... :-) Auch kann das Ansichstfenster in der dwt Vorlage richtig voreingestellt werden und bei neuen Ansichtfenstern mittels "eigenschaften übertragen" übernommen werden. Ist halt nicht ganz so automatisiert wies schön wär, aber geht...Hintergrund ist im übrigen dass die dwgs in so nem Autodesk webviewer gezeigt wereden sollen und der Viewer kann scheinbar nix darum muss das optische Erscheinungsbild im Ansichtsfenster eingestell ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Hilfe lisp Programm
Theodor Schoenwald am 13.03.2005 um 22:26 Uhr (0)
Hallo Wolfgang, so weit mir bekannt ist, hat es ein Lehrer von der Gewerbeschule in Mühlacker geschrieben. Es sind etliche Lispprogramme für die CNC-Bearbeitung enthalten. In diesem Buch ist der Quellcode mit vielen ----------- unterbrochen, damit der Leser nichts anfangen kann und unbedingt das Lösungsbuch haben will. Zu diesem Buch gab es ein Lösungsbuch (für etwas viel Geld), damit wollte der Verlag und der Autor sich nachbereichern . Ich fand das damals etwas unverschämt und habe das Buch und da ...
|
| In das Form AutoLisp 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 : Textsize mit Lisp steuern
CAD-Huebner am 17.11.2005 um 14:16 Uhr (0)
Ohne texthöhe.dcl kann man das Programm natürlich nicht test, aber der fehler liegt wohl hier: Zitat:... (if (= THohew "aktuelle Hoehe") ((setq Thoehe (atof (getvar textsize))) (command "_textsize" Thohe)Besser so: Zitat:... (if (= THohew "aktuelle Hoehe") (PROGN (setq Thohe (getvar "TEXTSIZE")) ; überflüssig Thohe ist doch gerade auf TEXTSIZE worden ; (command "_textsize" Thohe) ; ansonsten besser (SETVAR "TEXTSIZE" Thohe) ; statt command ... ); ende Progn );ende if------------------Mit ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Variable in Lisp aus Excel
Dolcetto am 21.03.2006 um 15:00 Uhr (1)
So funkitoniert bei mir mitlerweile auch soweit! Allerdings wenn ich die Excel einmal schliesse und wieder öffne, kommt AutoCAD jedesmal mit dieser meldung: VLA-OBJECT nilIch kann die Excel bearbeiten, speichern, aber sobald ich sie Schliesse und wieder egal ob diese oder eine andere öffne, und im AutoCAD die bisher Funkionierenen Lisps laufen lasse kommt immer diese Meldung. AutoCAD neustarten nützt nichts. Allerdings einen PC-Neustart behebt das problem, bis zum ersten schliessen der Excel.Ist das ein B ...
|
| In das Form Lisp 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 : Mechanical Partlist mit Lisp auslesen
CAD-Huebner am 24.06.2004 um 01:10 Uhr (0)
Die Zeichnung wurde mit AutoCAD Mechanical 2004 DX erstellt, ohne ACM 2004 DX hat man nur Proxy Entities.Hier mal ein paar Codeschnipsel, um die partlist auszulesenCode:(DEFUN C:PRINTPARTLIST ( / elname eliste acmbom acmbomrow) (SETQ elname (CAR (ENTSEL "
Teileliste wählen:")) eliste (ENTGET elname) ) (IF (AND elname (= "ACMPARTLIST" (CDR (ASSOC 0 eliste))) ) (PROGN ; ACMBOM = Bill of Material (SETQ acmbom (ENTGET (CDR (ASSOC 330 eliste)))) (FOREACH ele acmbom (IF (= (CAR ele) 350) ...
|
| In das Form Lisp 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 : Plotdialog in Lisp nutzen
mkl-cad am 25.07.2004 um 11:13 Uhr (0)
Hallo Tom Berger Das ist ja alles ziemlich prima. Nur habe ich ein Problem wenn ich in den Befehlen, die nach dem Plotten erfolgen soll ein command drin habe. Ich weis. Command mögt ihr alle nicht. Ist aber oft eine einfache und billige Lösung. Gibt es eine Möglichkeit das auch ein command erlaubt ist. ganz vestehe ich das sowieso nicht. Der Befehl plot ist doch dann eigendlich zu Ende. Wenn ich den gewünschten Befehl nach dem Plotten per Hand eingeben funzt alles. ACAD schreibt dann was von ungültigem com ...
|
| In das Form AutoLisp 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 |
