|
AutoLisp : Reaktor-Prg.
vision am 27.01.2004 um 14:01 Uhr (0)
Hallo Holger, Du hast (wie meistens) recht! Mit (wcmatch value *XXX ) bzw. XXX* funktionierts mit allem! Vielen DANK! PS: bekomme beim LISP laden noch folgende Meldung: Befehl: _textscr ; Fehler: Einstellung für AutoCAD-Variable zurückgewiesen: CLAYER 0
|
| In das Form AutoLisp 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 |
|
AutoLisp : Linien-Bruch
vision am 09.12.2003 um 19:33 Uhr (0)
Hallo CADwiesel, ich versuche in dem LISP-Prg. den Fang Schnittpunkt mit (setvar OSMODE 32) vorzugeben. Leider ohne Erfolg! (Je nach dem in welcher Zeile ich das einsetze, kommt entweder eine Fehlermeldung oder es kommt kein Schnittpunkt-Fang) Wie funktioniert es? MfG Klaus
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinien
vision am 09.12.2003 um 10:37 Uhr (0)
Hallo Thomas (CADmium), das LISP "Explode_2D_Blocks" funktioniert 100-prozentig. Vielen Dank! Eine bitte hätte ich aber noch: Könntes Du noch eine Abfrage einbauen, das nur Blöcke mit 2DPolylinien mit einer globalen Breite 0.3 und 0.7 mm aufgelöst werden? Für Deine Bemühungen bedanke ich mich schon im Voraus.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlswiederholung
vision am 20.01.2005 um 13:42 Uhr (0)
Hallo, das untere Lisp-Programm zeichnet eine Linie mit der festen Länge von 5mm und einen vom Benutzer angegeben Winkel. Leider funktioniert es nicht mehr richtig mit der Schleifenfunktion while ! Wer kann mir einen Tip geben? ;;; 5mm Verbindungslinie für Messstelle! (defun c:LINMSR () ;(while (command _line (setq pt (getpoint)) (mapcar + (-5 0 0) pt ) ) (command _rotate (ENTLAST) pt ) ;end while ) );defun
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Variable
vision am 18.02.2005 um 12:47 Uhr (0)
Hallo, ich möchte die 5mm Linienlänge in ...(mapcar + (-5 0 0)... nicht fest vorgeben, sondern mit getreal über die Tastatur eingeben. Wie müsste ich das Lisp ändern? Für Eure Bemühungen bedanke ich mich schon im Voraus. ;5mm Verbindungslinie für Messstelle! (defun c:LINMSR () (setq pt T) (while pt (command _line (setq pt (getpoint)) (mapcar + (-5 0 0) pt ) ) (if pt(command _rotate (ENTLAST) pt pause )) ) )
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textausrichten
vision am 23.12.2003 um 12:16 Uhr (0)
Hallo gmk, erst mal Danke für Deine Anwort. Mit dem Lisp-Prg. wird der Einfügepunkt unten links gesetzt, aber der Text verschiebt sich auch auf den Nullpunkt (unten links in der Zeichnung)! Er sollte sich aber nur um den neuen Einfügepunkt verschieben (wie es auch bei der Ausführung in dem Eigenschaftsfenster passiert)!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinie > Eigenschaften übernehmen!
vision am 25.07.2005 um 14:51 Uhr (0)
Hallo, in einem Lisp-Programm werden Polylinien-Eigenschaften von einer Musterleitung auf die Ausgewählte Polylinie übertragen. Die Eigenschaften ...(-3 ( LTNR_00042 (1000 . Leitung ))) zum übertragen fehlen leider noch. Wie kann man die Werte mit dem Lisp-Prg. auslesen und Übertragen? Die Eigenschaften einer Linie: ---------- Befehl: (entget(car(entsel)) ( * )) Objekt wählen: ((-1 . Objektname: 7ecfb498 ) (0 . POLYLINE ) (330 . Objektname: 7ef7ac50 ) (5 . 548B ) (100 . AcDbEntity ) (67 . ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textausrichten
vision am 26.12.2003 um 09:43 Uhr (0)
Hallo spider_dd, ich bekomme mit (entupd (entmod ct)) folgende Fehlermeldung: Fehlerhafter Argumenttyp: ... Mit nur (entmod ct) kommt kein Fehler u. das Progr. funktioniert damit auch!!! Wie kann man noch folgende funktionen umsetzen: Um nicht ein noch angewählten Text bei dem Lisp-Prg.-Aufruf zu versetzen, sollte eine evtl. Auswahl in der Zeichnung gelöscht werden. Das Programm in einer Wiederholschleife laufen lassen. MfG
|
| In das Form AutoLisp 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 |
|
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 |
|
AutoLisp : Schräge Linie ausrichten!
vision am 30.03.2004 um 19:36 Uhr (0)
Hallo, leider habe ich keine Lösung für das Ausrichten von schrägen Linien bzw. 2DPolylinien gefunden. Ich habe Zeichnungen, wo etliche Linien/2DPolylinien minimal schräg verlaufen. Bei normalen Linien geht es noch über Eigenschaften, bei 2DPolylinien nicht mehr so einfach! Wer kann mir helfen, einen Lösungsmöglichkeit wie oben im ersten Beitrag beschrieben, in Lisp zu realisieren? Für Eure Bemühungen bedanke ich mich schon im Voraus.
|
| In das Form AutoLisp 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 |
