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

	NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Textstil laden (1333 mal gelesen)
Dober Heinz Mitglied Technischer Zeichner Beiträge: 1149 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 und AutoLISPler Beiträge: 1781 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<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: 1149 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: 1149 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: 1149 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 >>)