| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Rahmen um Text mit gleichem Layer (4374 mal gelesen)
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 09:19 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe das Makro Code: ^C^C_.select;\_.tcircle;_p;;0.3;_r;_v
um schnell und einfach einen Rahmen um einen Text zu zeichnen. Gibt es auch die Möglichkeit das Makro so anzupassen (oder ein LISP), daß der Rahmen auf den gleichen Layer liegt wie der Text? Denn so muß ich vorher oder nachher immer den Layer auswählen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 09:25 <-- editieren / zitieren --> Unities abgeben: Nur für xem
tcircle ist ein Befehl der Expresstools und wird in der acettxt.lsp definiert .... dein wunsch kann man da in den code integrieren. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 19. Mai. 2009 09:35 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 09:51 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von wronzky: bei dem Makro kannst Du ja MEHRERE Objekte wählen, die auf unterschiedlichen Layern liegen können - welcher Layer sollte da eingestellt werden?Grüsse, Henning
Der Layer soll immer passend zum Text sein.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 09:59 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: tcircle ist ein Befehl der Expresstools und wird in der acettxt.lsp definiert .... dein wunsch kann man da in den code integrieren.
Ich habe mir mal die acettxt.lsp angeschaut und muß ehrlich sagen ich hab überhaupt nicht durchgesehen. Einfache LISP verstehe ich ja Stück für Stück, aber das ist doch zu hoch. Ich gehe mal davon aus das bei einem so großen LISP der Einbau nicht mal fix erledigt ist und sich keiner die Arbeit macht.? Gibts denn was anderes, schon fertiges? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 10:06 <-- editieren / zitieren --> Unities abgeben: Nur für xem
Zitat: Original erstellt von xem: Ich habe mir mal die acettxt.lsp angeschaut und muß ehrlich sagen ich hab überhaupt nicht durchgesehen. Einfache LISP verstehe ich ja Stück für Stück, aber das ist doch zu hoch.Ich gehe mal davon aus das bei einem so großen LISP der Einbau nicht mal fix erledigt ist und sich keiner die Arbeit macht.? Gibts denn was anderes, schon fertiges?
letztendlich brauchst du ca 3 Zeilen in der Funktion bns_tcircle ergänzen: ... Layer des Textobjektes auslesen ... und bei den beiden Entmake-Funktionen die Zeile mit dem LAYER-GC einfügen.
Einbauen mußt du dir das selbst da der CODE von Adesk kommt. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 11:40 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: letztendlich brauchst du ca 3 Zeilen in der Funktion bns_tcircle ergänzen: ... Layer des Textobjektes auslesen ... und bei den beiden Entmake-Funktionen die Zeile mit dem LAYER-GC einfügen. Einbauen mußt du dir das selbst da der CODE von Adesk kommt.
Danke CADmium, könntest du mir noch sagen wie diese 3 Zeilen aussehen müssen? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 11:43 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 13:32 <-- editieren / zitieren --> Unities abgeben:
Hm - bekomme jetzt einen Fehler Befehl: _.tcircle
Startet... Select TEXT, MTEXT or ATTDEF objects... Objekte wählen: _p 1 gefunden Objekte wählen: Enter distance offset factor <0.3500>: 0.3 Enclose text with [Circles/Slots/Rectangles] <Circles>: _r Create rectangles of constant or variable size [Constant/Variable] <Variable>: _v Creating Rectangles... Fehlerhafte DXF-Gruppe: (8) Befehl: Befehl: *Abbruch* habe das mal so eingefügt:
Code: (setq j 0) (setq LAYER (cdr(assoc 8 e1))) (if (equal "Variable" rad) (progn (princ (strcat "\nCreating " ent "...")) (setq n 0);setq (repeat (sslength ss) (setq na (ssname ss n) e1 (entget na) a (acet-geom-textbox e1 offset) b (acet-geom-midpoint (car a) (caddr a)) );setq (if (equal "Circles" ent) (entmake (list '(0 . "CIRCLE") (cons 10 (trans b 1 (cdr (assoc 210 e1)))) (cons 40 (distance (car a) b)) (assoc 210 e1) (cons 8 LAYER) );list );entmake (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) (cons 38 (last (cdr (assoc 10 e1)))) '(70 . 1) (cons 10 (trans (nth 0 a) 1 (cdr (assoc 210 e1)))) (if (equal ent "Rectangles") '(42 . 0.0) '(42 . -1.0) );if (cons 10 (trans (nth 3 a) 1 (cdr (assoc 210 e1)))) '(42 . 0.0) (cons 10 (trans (nth 2 a) 1 (cdr (assoc 210 e1)))) (if (equal ent "Rectangles") '(42 . 0.0) '(42 . -1.0) );if (cons 10 (trans (nth 1 a) 1 (cdr (assoc 210 e1)))) '(42 . 0.0) (assoc 210 e1) (cons 8 LAYER) ) );entmake
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 13:49 <-- editieren / zitieren --> Unities abgeben: Nur für xem
... (repeat (sslength ss) (setq na (ssname ss n) e1 (entget na) a (acet-geom-textbox e1 offset) Layer (cdr(assoc 8 e1)) .... (entmake (list '(0 . "CIRCLE") (cons 8 LAYER) .... (entmake (list '(0 . "LWPOLYLINE") (cons 8 LAYER) '(100 . "AcDbEntity") .... d.h. erst Entgetliste erzeugen und dann daraus den Layer ermitteln und beim entmake auf die richtige GC-Reihenfolge auchten ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 13:58 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 14:04 <-- editieren / zitieren --> Unities abgeben: Nur für xem
das wäre der GC 62 .... also nach Layer ... (or(setq FARBE (cdr (assoc 62 e1))) (setq FARBE 256) ) und im entmake (cons 62 FARBE) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 14:10 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 14:15 <-- editieren / zitieren --> Unities abgeben: Nur für xem
jo , F1 ... Autolisp .... DXF-Referenz ... Abschnitt Entities .. gängige Gruppencodes für Elemente ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 14:26 <-- editieren / zitieren --> Unities abgeben:
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 14:57 <-- editieren / zitieren --> Unities abgeben:
so ging es, ABER nicht wenn der Text auf Farbe VONLAYER steht Code: (setq na (ssname ss n) e1 (entget na) a (acet-geom-textbox e1 offset) b (acet-geom-midpoint (car a) (caddr a)) Layer (cdr(assoc 8 e1)) FARBE (cdr (assoc 62 e1)) FARBE (cdr (assoc 62 e1)) );setq
Creating Rectangles... Fehlerhafte DXF-Gruppe: (62) und so ging es gar nicht :( Code: (setq na (ssname ss n) e1 (entget na) a (acet-geom-textbox e1 offset) b (acet-geom-midpoint (car a) (caddr a)) Layer (cdr(assoc 8 e1)) FARBE (cdr (assoc 62 e1)) (or(setq FARBE (cdr (assoc 62 e1))) (setq FARBE 256) ) );setq
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mai. 2009 15:04 <-- editieren / zitieren --> Unities abgeben: Nur für xem
.... Fang mit dem Anfang, d.h. Mapcars Tutorial an ... du schmeißt ja alles durcheinander! ... (setq na (ssname ss n) e1 (entget na) a (acet-geom-textbox e1 offset) b (acet-geom-midpoint (car a) (caddr a)) Layer (cdr(assoc 8 e1)) ) (or(setq FARBE (cdr (assoc 62 e1))) (setq FARBE 256) ) ... so wird entweder die Farbe , wenn vorhanden, d.h. nicht "von Layer" ausgelesen oderdie Farbe auf 256, d.h. auf "von Layer" gesetzt. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 19. Mai. 2009 15:14 <-- editieren / zitieren --> Unities abgeben:
so wurde ein Schuh drauß Code: (repeat (sslength ss) (setq na (ssname ss n) e1 (entget na) a (acet-geom-textbox e1 offset) b (acet-geom-midpoint (car a) (caddr a)) Layer (cdr(assoc 8 e1)) ) (or(setq FARBE (cdr (assoc 62 e1))) (setq FARBE 256) );setq (if (equal "Circles" ent)
es war eine Klammer zu viel drin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 26. Apr. 2010 17:05 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe versucht die kleine Anpassung in AutoCAD 2011 zu übernehmen, aber irgend wie funktioniert es nicht. Muß man da noch was anpaßen? -------------- Ich sollte Feierabend machen ... falsch kopiert Jetzt läuft wieder alles!!! ------------------ [Diese Nachricht wurde von xem am 26. Apr. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |