|
Lisp : Autocad 2010 - kleines lisp geht nicht mehr
Bernd10 am 04.10.2010 um 08:40 Uhr (0)
Hallo Jonny, Zitat:Original erstellt von jonnymaier1: Ich hab jetzt einfach ein (command) eingefügt um die Vorauswahl aufzuheben und es funktioniert!(defun c:lay_1 () (setq temp (ssget "I")) (if (= temp nil) (command "-layer" "se" "Layer_1" "") (progn [b] (command) (command "eigändr" temp "" "la" "Layer_1" "f" "vonlayer" "") ) ) )[/B]ein Auswahl von Objekten setzen ich so zurück:( defun auswahl_zuruecksetzen ( / cpauswahl ) ; Die Auswahl der Objekte zurücksetzen (set ...
|
| In das Form Lisp wechseln |
|
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 |
|
Lisp : dialodbox schliessen in lisp
cadffm am 05.12.2019 um 10:44 Uhr (1)
Falscher Weg und nein, mit AutoLisp kontrolliert man nicht so einfach Dialogfenster.Lösche die Daten doch direkt und falls die Befehlszeilenversion nicht auch denselben Effekt hat wie von dir beschrieben (mit dem konvertieren von alt nach neu),dann solltest du genug Beispiele im Forum (oder www) finden. Eigentlich alle Treffer bis Jahr2002, danach muß man schauen ob es um den Expresstools oder schonden neuen AutoCAD Befehl geht in den Artikeln/Codes.Oder was Fertiges nehmen, aber selbst ist der Wissbegier ...
|
| 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 |
