|
AutoLisp : Lisp für Polylinie+Pan
tillsen am 16.07.2004 um 14:25 Uhr (0)
DAs sieht nach einer sauberen Sache aus und trifft auch das Problem auf den Punkt. Grenzen abklicken. Aber ein gar so hübsches Tool wird sich sicher nicht für lau auf meinem Rechner versklaven lassen. Oder ist das anders? Gruß, tillsen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Additions- LISP
Helmut Wieser am 16.07.2004 um 14:48 Uhr (0)
Hallo Thomas! Ich versuche das Lisp so umzubasteln, dass ich einen fixen Wert addiere bzw. subtrahiere (addieren/subtrahieren über Benutzereingabe), hab auch eine Idee wie das gehen könnte aber die ganzen Klammern..... Kann leider nichts als Units bieten.... Helmut
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp für Polylinie+Pan
captainfritz am 16.07.2004 um 14:50 Uhr (0)
Stimmt, lad dir mal die Demo runter, läuft 30 Tage für Nüsse. kann ganz viel nützliche Dinge. Ich hab die 100$ investiert (lassen:-)) hat sich auf jeden Fall gelohnt. guckts du http://www.4d-technologies.com/ kannst die kommandos auch einzeln kaufen - bei dem DollarKurs ein Schnäppchen gruß Matthias
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attributseigenschaften übertragen mit entmode, entupd, was stimmt hier nicht ?
Juergen55 am 16.07.2004 um 18:21 Uhr (0)
Hallo, ich hab hier ein kleines Lisp das noch nicht ganz so funktioniert, im ersten Teil werden von einem bestehenden Attribut Eigenschaften gelesen, dann wird ein neues Attribut erstellt mit den Eigenschaften des bestehenden Attributs ! Im zweiten Teil werden dann mit entmod und entupd weitere Eigenschaften übertragen und das funktioniert noch nicht richtig es wird nur die erste Eigenschaft übertragen dann steigt das Ganze aus, woran kann es liegen ? Der Fehler hängt wohl mit dem entupd zusammen ! Hier de ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : kopieren und editieren
Proxy am 18.07.2004 um 15:52 Uhr (0)
Eigentlich reicht für deine Aufgabe ein einfaches Macro mit Objekt kopieren und editieren mit dem Aufruf des zuletzt (_last) verwendetes Objektes. Ein Lisp ist da wie mit Kanonen auf Ameisen schiessen. _copy; .... ; _ddedit;_last; ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mech6 Zeichnungen als reine R13 dwgs speichern
mapcar am 19.07.2004 um 09:59 Uhr (0)
http://ww3.cad.de/foren/ubb/Forum145/HTML/000673.shtml Da findest du eine Anleitung zum Thema Batch-Jobs. Die Lisp-Routine muss nur Zeile mit (command _saveas ...) enthalten. Auf FILEDIA achten. Und zum Thema LISP empfehle ich dir die erste Zeile in meiner Signatur;-) Gruß, Axel Strube-Zettler ------------------ Meine AutoLisp-Seiten Meine private Homepage Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Additions-LISP erweitern
Helmut Wieser am 19.07.2004 um 11:56 Uhr (0)
Hallo Leute! Ich habe vor kurzem hier ein Additions- Lisp nachgefragt und auch bekommen ( http://ww3.cad.de/foren/ubb/Forum145/HTML/000689.shtml )- nochmals meinen Dank an Thomas. Ich habe es für meine spezifische Anforderungen umgebastelt, es schaut jetzt so aus: (defun c:ADDSUB01 ( / Z1 Z2 OBJEKT OBJEKTDATEN ) (if (and(setq Z1 177.75) (setq OP(getstring Rechenoperation : )) (member OP ( + - )) ) (while (setq OBJEKT (car(entsel
Text wählen : ))) (setq O ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Additions-LISP erweitern
CADmium am 19.07.2004 um 12:21 Uhr (0)
Ok! Ersetze (setq OBJEKTDATEN (subst(cons 1 (if (= OP + )(rtos (+ Z2 Z1) 2 2)(rtos (- Z2 Z1) 2 2))) (assoc 1 OBJEKTDATEN) OBJEKTDATEN ) ) durch (setq OBJEKTDATEN (subst(cons 1 (strcat = (if (= OP + )(rtos (+ Z2 Z1) 2 2)(rtos (- Z2 Z1) 2 2)) ü.A. ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Additions-LISP erweitern
Erwin Fortelny am 19.07.2004 um 12:28 Uhr (0)
Hallo, Zitat: Original erstellt von Helmut Wieser: Ich habe vor kurzem hier ein Additions- Lisp nachgefragt und auch bekommen [...] Jetzt habe ich noch eine Frage: Wenn ich das Ausgabeformat = Ergebnis ü.A. also ein fixes Präfix ( = ) und Suffix ( ü.A. ) habe will, wie und wo sag ich das dem LISP? Da muß man das Ganze etaws Umstricken, wie folgt z.B.: (defun c:ADDSUB01 ( / Z1 Z2 OBJEKT OBJEKTDATEN Z3 TPRE TSUF ) ;*** (if (and (setq Z1 177.75) (setq OP(getstring Rechenoperati ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Additions-LISP erweitern
Helmut Wieser am 19.07.2004 um 12:54 Uhr (0)
Funktioniert beides! Herzlichen Dank Helmut
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Visuallisp
Kenny1 am 19.07.2004 um 20:47 Uhr (0)
Hallo, Das Thema Attribute hat sich für mich erledigt, da ich in der Auswertung der Listen nicht flexibel genug bin. Ebenso ist es ein absolutes Muß-Kriterium, das ich in die Teile nach ein Loch, ein Ausschnitt ect. hineinbekomme. Muß ich wohl den Weg über Lisp versuchen. Momentan tendiere ich stark zum Lisp. Die AutoCAD-Nähe ist genau das, was ich als den großen Vorteil ansehe und mag. Man kann alles in „command“ reinpacken. Mit VBA habe ich mich noch nicht so intensiv beschäftigt. Wie stark ist denn Lis ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : kopieren und editieren
Erwin Fortelny am 20.07.2004 um 09:13 Uhr (0)
Hallo, Zitat: Original erstellt von carmelli76: ich habe mal den orginal befehl von der schaltfläche kopieren kopiert und auf die neue eingefügt. das hat dann aber auch nicht geklappt. irgendwie beendet er den befehl sofort wieder, nachdem ich selbigen aufgerufen habe. Aha ... ?! Zitat: Original erstellt von carmelli76: vielleicht kannst du mir, ausser die hilfeseiten, mal eine nette zusammenstellung nenne, wo ich mal eine erklärung über die schaltflächenmakros mädchengerecht nachlesen kann? ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anfänger-Code mit unsichtbarem Problem
autocart am 20.07.2004 um 10:12 Uhr (0)
Hallo, folgender Code funktioniert bei mir nicht: ;Code soll prüfen, ob eine Zeichenkette Umlaute oder ß enthält (defun Umlautß-Pruefung (string01 / äs ös üs ßs) (setq äs 0 ös 0 üs 0 ßs 0) (repeat (strlen string01) (cond ((equal ä (substr string01 1 1)) (setq äs (1+ äs)) ) ((equal ö (substr string01 1 1)) (setq ös (1+ ös)) ) ((equal ü (substr string01 1 1)) (setq üs (1+ üs)) ) ((equal ß (substr string01 1 1)) (set ...
|
| In das Form AutoLisp wechseln |
