|
Lisp : Liniendicke von 2D-Polylinien
vision am 16.01.2009 um 10:18 Uhr (0)
Hallo,ich muss in vielen Zeichnungen die 2D-Polylinien mit der Liniendicke von 0,7 in 0,9 ändern. Das Programm muss alle 2D-Polylinien mit der Stärke 0,7 suchen und in 0,9 ändern. Das sollte automatisch per Lisp-Programm geschehen.Wer wäre so nett und schreibt mir das Lisp-Programm in Kurzform?Für Eure Bemühungen bedanke ich mich im Voraus.
|
| In das Form Lisp wechseln |
|
Lisp : Umbenennen von Blöcken!
vision am 14.05.2004 um 11:08 Uhr (0)
Hallo,ich muss Blöcke vor dem Einfügen in einer anderen Zeichnung umbennen. (Die Blocknamen von ganz unterschiedlichen Blöcken könnten evtl. mit denen in der neuen Zeichnung gleich sein!)Das untere Lisp BLOCK-RENAME von Th.Krüger konnte ich soweit anpassen, dass es mit einem Block klappt. Bei mehren Blöcken kommt aber die Fehlermeldung: "Automatisierungsfehler Doppelter Datensatzname"Wer kann Helfen?
|
| In das Form Lisp wechseln |
LINE_BRUCH.txt |
Lisp : Lisp beenden!
vision am 04.06.2015 um 09:57 Uhr (1)
Hallo,das Lisp-Programm bricht eine überkreuzende Linie um 2.5 mm auf. Das funktioniert auch. Was aber nicht geht, ist das Programm mit der rechten Maustaste zu beenden (nur mit ESC-Taste).Für Eure Unterstützung bedanke ich mich schon im Voraus.
|
| In das Form Lisp wechseln |
|
Lisp : Fehlfunktion
vision am 27.03.2016 um 14:45 Uhr (1)
Sorry,das Lisp ist schon etwas älter und hatte es damals so "zusammen gewurschtelt"!Der Fehler mit EXPLODE kommt vermutlich daher, dass ich ein anderes Lisp-Prg. verändert hatte und ein COMMAND Befehl evtl. noch ansteht.Wenn einer das Programm mal sinnvoll überarbeiten würde (z. B. Abbruch mit ESC und mit Rechtsklick) wäre Ostern gerettet!Für Eure Unterstützung bedanke ich mich im Voraus.
|
| In das Form Lisp wechseln |
Att-Clone.txt |
Lisp : Attributwerte kopieren & einfügen
vision am 10.03.2017 um 19:46 Uhr (1)
Hallo,ich möchte die Attributwerte von einem Block in einen anderen Block kopieren und einfügen.Das funktioniert mit dem Lisp Att-Clone von CADwiesel soweit einwandfrei, wenn die Attributnamen bei beiden Blöcken gleicht sind. Ich möchte aber, wenn AutoCAD das zulässt, in einen Block kopieren der andere Attributnamen hat.Besteht die Möglichkeit, im Programmabschnitt ";;; Funktion tauscht Attributwerte aus. / (setq ATTNAME ... " andere Attributnamen anzugeben und wenn ja, wie.Für Eure Unterstützung bedanke i ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributwerte kopieren & einfügen
vision am 11.03.2017 um 12:59 Uhr (1)
Zitat:Original erstellt von CADmium:und woher soll das Programm wissen, welcher Inhalt auf welches Attributübertragen werden soll ?Hallo,am Besten wäre es natürlich, die jeweiligen Attributnamen im Lisp vorzugeben!Oder wenn es passt, dem 1. Attribut (Block 1) dem 1. Attribut (Block 2) zuzuordnen usw.!Ich bin ja in der Hoffnung, dass es mit dem CADwiesel Lisp evtl. geht.Für Eure Unterstützung bedanke ich mich im Voraus.
|
| In das Form Lisp wechseln |
|
Lisp : Attributwerte kopieren & einfügen
vision am 11.03.2017 um 13:31 Uhr (1)
Zitat:Original erstellt von Dober Heinz:Das muss ich CADmium recht gebenSuche mal nach dem Lisp "Matchatts" das geht mal mit gleichem Blöcknamen und ATTsHallo,habe "matchatts.lsp" getestet. Kommt aber leider nicht mit unterschiedlichen Attributnamen klar!
|
| In das Form Lisp wechseln |
|
Lisp : Attribute abfragen
vision am 06.11.2018 um 12:37 Uhr (1)
Hallo,in dem Lisp möchte ich noch den Wert vom Attribut BEZEICHNUNG2 im Block abfragen.Für ein Beispiel hierzu währe ich sehr dankbar.(if(and(SETQ ent (car(ENTSEL "
Text-Block anklicken: "))) (setq gg (assoc 10 (entget ent))) (=(cdr(assoc 66 (entget ENT)))1) ) (WHILE (AND (SETQ ent (ENTNEXT ent)) (/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND") ) (IF(AND (=(CDR (ASSOC 0 (ENTGET ent))) "ATTRIB") (=(strcase(CDR (ASSOC 2 (ENTGET ent)))) "BEZEICHNUNG1") ;Attributname 1! ) (progn (SETQ BLATT ...
|
| In das Form Lisp wechseln |
 |
Lisp : Attribute abfragen
vision am 06.11.2018 um 15:53 Uhr (1)
Hallo,hier die Eigenschaften vom Block!Die Attributbezeichnungen: BEZEICH1 + BEZEICH6 hatte ich im Lisp angepasst![Diese Nachricht wurde von vision am 06. Nov. 2018 editiert.]
|
| In das Form Lisp wechseln |
|
Mechanical Desktop : AutoCAD 2015 + AutoCAD Mechanical 2015
vision am 12.02.2016 um 18:49 Uhr (1)
Hallo,ist es möglich beide Versionen ohne Probleme zusammen zu installieren und zu betreiben?Oder besteht auch die möglichkeit nur AutoCAD Mechanical 2015 zu nehmen mit der Vorraussetzung, das alle meine LISP-Tools weiterhin funktionieren.Sehe ich das richtig, AutoCAD Mechanical eigentlich ein normales AutoCAD ist mit erweiterten Funktionen?Für Eure Unterstützung bedanke ich mich im Voraus.
|
| In das Form Mechanical Desktop wechseln |
|
Rund um Autocad : Textausrichten
vision am 20.01.2004 um 19:46 Uhr (0)
Hallo, da mir in diesem Forum schon viel geholfen wurde, möchte ich auch mal was konstruktives beisteuern. Das Tool erzeugt ein Auswahl-Listenfeld. ;Das LISP-Programm: ListeDN.lsp (defun C:ListeDN () (setq NAMES ("DN10" "DN20" "DN25" "DN30" "DN40" "DN50" "DN65" "DN80" "DN100" "DN125" "DN150" "DN200") ) (setq dcl_id (load_dialog "ListeDN.dcl")) (if (not (new_dialog "ListeDN" dcl_id) ) (exit) ) (start_list "selections") (mapcar add_list NAMES) (end_list) (action_tile "ac ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text kopieren und ändern
vision am 11.02.2004 um 18:12 Uhr (0)
Hallo, habe das LISP zum drehen (90°) von Blöcken geändert. Es funktioniert auch, bekomme aber nach jedem Schleifendurchlauf die Fehlermeldung: Unbekannter Befehl BLOCK_DREHEN90 . Wer hat einen Rat? (defun C:BLOCK_DREHEN90 (/ OBJEKT UCSFLAG) (setq UCSFLAG (WORLD-UCS)) (while (setq OBJEKT (ssget _:S ((0 . INSERT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.rotate OBJEKT (cdr (assoc (if ( 0 (cdr (assoc 72 ...
|
| In das Form Rund um Autocad wechseln |
