Textstil laden (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Textstil laden (1150 mal gelesen)
Dober Heinz Mitglied Technischer Zeichner Beiträge: 1143 Registriert: 20.12.2002	erstellt am: 25. Feb. 2010 11:09 <-- editieren / zitieren --> Unities abgeben: Hallo Brauche Hilfe Wie kann man einen Textstil, von einer anderen Zeichnung per Lisp laden. Suche brachte nichts zu Tage. Danke ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>	erstellt am: 25. Feb. 2010 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz Hallo Heinz, über das DesignCenter ist bestimmt nicht die gewünschte Antwort. Ganz einfach kann man das gestalten über eine separate Textdatei, in einer Zeichnung wird diese mit einem Textstil gespeichert, in einer anderen geladen. Code: (defun c:StyleStore ( / STIL) (if (and (setq stil (getstring "\nBitte Stilnamen eingeben:")) (tblsearch "STYLE" stil)) (JBf_list_sichern(list (cons 1 (vl-remove-if '(lambda(A) (member (car A)'(-1 5 330))) (entget(tblobjname "STYLE" stil))))) "c:\\StyleStore.lsp")) ) (defun c:StyleRestore ( / ) (entmake (cdr(assoc 1 (load "c:\\StyleStore.lsp"))))) (defun JBf_list_sichern (liste pfad / datei ) (setq datei (open pfad "w")) (write-line "'(" datei) (mapcar '(lambda(A) (prin1 A datei))liste) (write-line ")" datei) (close datei)) [Edit] Da gibt es auch noch eine Möglichkeit über ObjectDBX, da kannst Du etwas direkt aus einer geschlossenen Zeichnung beziehen. Ein Beispiel mit Blockdefinitionen hatte CADmium mir mal gezeigt: http://ww3.cad.de/foren/ubb/uploads/joern+bosse/Block-import.zip Das mußt Du nur auf Textstile übertragen. [/Edit] ------------------ viele Grüße Jörn http://www.bosse-engineering.com [Diese Nachricht wurde von joern bosse am 25. Feb. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dober Heinz Mitglied Technischer Zeichner Beiträge: 1143 Registriert: 20.12.2002	erstellt am: 25. Feb. 2010 11:54 <-- editieren / zitieren --> Unities abgeben: Hallo joern bosse Super 1000 mal danke ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dober Heinz Mitglied Technischer Zeichner Beiträge: 1143 Registriert: 20.12.2002 Autocad 2021/64B Win10 WORKSTATION Intel(R) CPU E5-1620 3.60GHz 32 GB Ram 64 Bit-Betriebssystem HP Designjet T7200 Grafik NVIDIA Quadro P4000 ZWCAD2021	erstellt am: 25. Feb. 2010 11:56 <-- editieren / zitieren --> Unities abgeben: @ joern U sind unterwegs ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dober Heinz Mitglied Technischer Zeichner Beiträge: 1143 Registriert: 20.12.2002	erstellt am: 25. Feb. 2010 12:03 <-- editieren / zitieren --> Unities abgeben: @ joern Das von CADmium ist mir zu hoch. Danke ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)