|
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
cadffm am 06.11.2018 um 23:16 Uhr (1)
Dann geh über das activeX Modell, damit klappt es ganz sicher:(vla-put-TextString myvlaobj "hier mein Schriftfeldcode")
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp zur Attributweitergabe an ein Schriftfeld
Bernhard GSD am 07.11.2018 um 07:17 Uhr (15)
Super, das war´s!Ich muss also nur mehr mitCode:(vla-put-TextString (VLAX-ENAME-VLA-OBJECT(ENTLAST)) textx)den Text nochmals einschreiben und es pfeift!Danke nochmals! ------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
|
Lisp : Blockhuckepack
cadoc am 07.11.2018 um 10:39 Uhr (1)
Hallo Andreas,leider funktioniert das Lisp irgendwie nicht so ganz bei mir (Acad Map 2017).Bekomme immer ein "nil".Wozu das Ganze?A-Blöcke repräsentieren digitalisierte Objekte mit vielen Attributen die noch ihre richtige Lage suchen.B-Blöcke sind vermessene Punkte, davon haben aber nicht alle immer eine/die richtige Bezeichnung(deswegen die Identifikation mit dem nächstgelegenen B-Block) und es werden auch nicht immer alle Objekte in der Natur gefunden(deswegen bleiben immer ein paar A-Blöcke übrig).Beim ...
|
| In das Form Lisp wechseln |
|
Lisp : Block auflösen - Elemente auf Layer setzen
Bernhard GSD am 21.11.2018 um 11:53 Uhr (15)
Versuche es einfach mal mit dem Autocad-Befehl "BURST" Burst ist Bestandteil der Express-Tools. Aufruf aus Lisp: (C:BURST)------------------Gruß aus WienBernhard [Diese Nachricht wurde von Bernhard GSD am 21. Nov. 2018 editiert.][Diese Nachricht wurde von Bernhard GSD am 21. Nov. 2018 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Block auflösen - Elemente auf Layer setzen
cadffm am 21.11.2018 um 11:54 Uhr (15)
Du erstellst einen Auswahlsatz von Blockreferenzen, denke daran: Explode löst in der automatisierten Anwendung nur eine Blockreferenz auf.Lösung: Verwenden eine Schleife für alle Objekte in dem Auswahlsatz oder kontrollierter Einsatz von qaflags.Frage: Muß es Lisp sein?Muß es ganz neu sein?Wenn einfach nur Befehl XPLODE nutzen würdest, mit der Option "von Hauptblock übernehmen" wird genau das gemacht.In der Automatisierung etwas schwierig zu nutzen, entweder über Macro, Script oder Lisp-Workaround gehen (v ...
|
| In das Form Lisp wechseln |
|
Lisp : Block auflösen - Elemente auf Layer setzen
silcono am 21.11.2018 um 12:06 Uhr (1)
Danke CADwiesel!Dies ist auf jeden Fall interessant für zukünftige LISP-Projekte.Danke GrußSilcono
|
| In das Form Lisp wechseln |
|
Lisp : Suche Lisp um ausgeschaltete Layer auch zu frieren
joern bosse am 03.12.2018 um 12:51 Uhr (1)
Hallo Wölfin,mit folgendem Code müßte es funktionieren, alles was aus ist wird dann auch gefroren.Code:(defun c:test ( / ) (vl-load-com) (vlax-for item (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))) (if (=(vla-get-LayerOn item):vlax-false) (vla-put-Freeze item :vlax-true)) ) )------------------viele GrüßeJörnhttp://www.bosse-engineering.comFoto-Manager Youtube
|
| In das Form Lisp wechseln |
|
Lisp : Suche Lisp um ausgeschaltete Layer auch zu frieren
die wölfin am 03.12.2018 um 13:01 Uhr (15)
Oooh, Du bist ein Engel!!!Super!!! Ein gaaaanz dickes Dankeschön!!! *megafreu* ------------------Sollte ich eines Tages erfahren, dass ich schon morgen sterben muss, will ich mich nicht darüber ärgern, mir nicht genügend Zeit für die schönen Dinge im Leben genommen zu haben, sondern lächelnd in Erinnerungen schwelgen...
|
| In das Form Lisp wechseln |
|
Lisp : Markieren mit vla-get-...
Emu1989 am 03.12.2018 um 18:10 Uhr (1)
TagchenHabe eine Lisp gefunden, in welcher ich die Blöcke sperren und wieder freigeben kann. Die ist ganz gut und würde mir auch viel Zeit ersparen, allerdings sperrt sie mir die Blöcke im ganzen Dokument.(vl-load-com) (princ) (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (if (and (= :vlax-false (vla-get-islayout blk)) (= :vlax-false (vla-get-isxref blk)) ) (vla-put-explodable blk :vlax-false) ) ) (princ))Die Auswahlfunktion mit setq ... (car (ent ...
|
| In das Form Lisp wechseln |
|
Lisp : Markieren mit vla-get-...
C4DP4P57 am 04.12.2018 um 14:02 Uhr (1)
Hallo,beziehst du das AutoCAD-Magazin? Im Heft 2/2008 gab es eine LISP namens Blockade.lsp mit fünf Befehlen (blocklock, blockunlock, blocklockall, blockunlockall, Switch-Blocklock). Schreib einfach mal die Redaktion an.P.S. Da steht zwar "getestet unter 2006 bis 2008", aber bei mir unter AutoCAD 2019 läuft es ohne Probleme.GrußJörg------------------Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.
|
| In das Form Lisp wechseln |
|
Lisp : Ignoriere alles außer...
C4DP4P57 am 07.12.2018 um 16:33 Uhr (15)
Hallo,kann man in Lisp irgendwie sagen "ignoriere alles außer..."?Hintergrund ist folgender: Das LISP schaltet mir in allen Layouts die Layer entsprechend der ersten zwei Zeichen des Layoutnamens (diese sind in der Regel bei Layout und Layernamen gleich).Das Problem sind Layoutbezeichnungen zu denen es keine Layerentsprechung gibt. Im Fall dieses Codes wären das alle Layouts außer die mit "E_*" und "Sm_*" beginnen.Ich will praktisch erreichen, dass der Code nicht nach Layernamen sucht, die nicht mit "E_*" ...
|
| In das Form Lisp wechseln |
|
Lisp : Informationen aus einer TTF-Schrift auslesen
cadffm am 12.12.2018 um 13:45 Uhr (1)
"Beim Erstellen des Textstils kann ich bei Schriftstil nur Normal auswählen.""In der Zwischenzeit habe ich noch die TTF-Datei mit dem Programm TTFEdit geöffnet. Dabei sehe ich keinen Hinweis auf bold oder fett."" um eine bold-Schrift handelt. Das ist aber nicht der Fall. Unser Lieferant der Schrift hat diese kontrolliert und keinen Fehler gefunden."Die drei Punkte passen super zusammen, das ist gut.Du solltest einfach noch mal "ganz frisch" testen.Rechnerneustart, falls nach Schriftart-Installatioon noch n ...
|
| In das Form Lisp wechseln |
 |
Lisp : Informationen aus einer TTF-Schrift auslesen
Bernd10 am 12.12.2018 um 15:03 Uhr (1)
Hallo cadffm,Zitat:Original erstellt von cadffm:Du solltest einfach noch mal "ganz frisch" testen.Rechnerneustart, falls nach Schriftart-Installatioon noch nicht geschehen. Wir wollen doch allen unnötigen Ärger vermeiden.Acadneustart, hat sich erledigt falls der Rechner neu gestartet wurde :-)Eine DWG neu erstellen, ohne Vorlage (damit sind Fehler in der Vorlage ausgeschlossen - nur so kann ICH 100% sicher sein was bei dir vorgeht)Textstil anlegen, die Schriftart zuordnen, Schriftstil Normal.Neu abfragen p ...
|
| In das Form Lisp wechseln |
