| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Digitale Fabrik: Projekte disziplinübergreifend koordinieren, ein Webinar am 06.11.2024
|
Autor
|
Thema: Benannte BKS (11819 mal gelesen)
|
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 21. Apr. 2004 14:15 <-- editieren / zitieren --> Unities abgeben:
Wie kann man benannte BKS exportierieren und in eine andere Zeichnung importieren. (Notlösung: Zeichnung temporär spechern, Inhalt löschen, ev. Bereinigen, die Elemente der 'Zielzeichnung' hineinkopieren, Layouts hineinkopieren.) Wer weiß was besseres? Danke! ------------------ Gruß aus Wien Bernhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 21. Apr. 2004 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
|
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 21. Apr. 2004 14:49 <-- editieren / zitieren --> Unities abgeben:
Es gibt von einem Gebäude mehrere Geschosspläne. Während der Bearbeitung ergeben sich mehrere nicht orthogonale Zeichenbereiche in die mittels benannter BKS gewechselt wird. Einige sind von Anfang bekannt (Straßenzüge...) einige ergeben sich später. Diese wären in alle Zeichnungen zu übertragen.... ------------------ Gruß aus Wien Bernhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 21. Apr. 2004 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Also wie mein Vorredner, entweder einmalig in der *.dwt deffinieren oder wenns immer die gleichen sind wäre auch eine Toolbox dafür geeignet oder ein Menüeintrag. Aber so einfach über DC per D+D geht das nicht CU cw okay damit fallen meine Vorschläge schon raus
[Diese Nachricht wurde von cadwomen am 21. Apr. 2004 editiert.] 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: 22. Apr. 2004 08:36 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Ein BKS ist ein Table-Objekt wie Layer auch. Tools , die Layer ex- und importieren gibt es, warum nicht auch eins für BKS ... (defun BKS-export(DATEINAME / BKS UCSDATA LISTE DATEI) (While (setq BKS (tblnext "UCS" (null BKS))) (setq UCSDATA (vl-remove-if '(lambda (L)(member(car L) '(-1 330 -2 5))) (entget(tblobjname "UCS" (cdr(assoc 2 BKS))) '("*")) ) ) (setq LISTE (cons UCSDATA LISTE)) ) (if(setq DATEI(open DATEINAME "w")) (progn (foreach BKS LISTE (princ "(entmake '" DATEI) (prin1 BKS DATEI) (princ ")\n" DATEI) ) (close DATEI) ) ) ) (defun c:BKS-EXPORT ( / DATEINAME ) (if (setq DATEINAME (getfiled "BKS-EXPORT" (getvar "SAVEFILEPATH") "BKS" 1)) (BKS-EXPORT DATEINAME) (princ "\nAbgebrochen ..............\n") ) (princ) ) (defun c:BKS-IMPORT ( / DATEINAME ) (if (setq DATEINAME (getfiled "BKS-IMPORT" (getvar "SAVEFILEPATH") "BKS" 8)) (load DATEINAME) (princ "\nAbgebrochen ..............\n") ) (princ) ) (nur mal kurz angetestet..) Wen es interessiert, der Algorithmus funz sö ähnlich auch für den Ex/Import von Layer / Linetypes / Textstilen. für Layer würde es z.B. so aussehen : (defun LAYER-export(DATEINAME / LAYER LAYDATA LISTE DATEI) (While (setq LAYER (tblnext "LAYER" (null LAYER))) (setq LAYDATA (vl-remove-if '(lambda (L)(member(car L) '(-1 330 -2 5 390))) (entget(tblobjname "LAYER" (cdr(assoc 2 LAYER))) '("*")) ) ) (setq LISTE (cons LAYDATA LISTE)) ) (if(setq DATEI(open DATEINAME "w")) (progn (foreach LAYER LISTE (princ "(entmake '" DATEI) (prin1 LAYER DATEI) (princ ")\n" DATEI) ) (close DATEI) ) ) ) (defun c:LAYER-EXPORT ( / DATEINAME ) (if (setq DATEINAME (getfiled "LAYER-EXPORT" (getvar "SAVEFILEPATH") "LAY" 1)) (LAYER-EXPORT DATEINAME) (princ "\nAbgebrochen ..............\n") ) (princ) ) (defun c:LAYER-IMPORT ( / DATEINAME ) (if (setq DATEINAME (getfiled "LAYER-IMPORT" (getvar "SAVEFILEPATH") "LAY" 8)) (load DATEINAME) (princ "\nAbgebrochen ..............\n") ) (princ) ) ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 22. Apr. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 22. Apr. 2004 09:07 <-- editieren / zitieren --> Unities abgeben:
|
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 22. Apr. 2004 11:37 <-- editieren / zitieren --> Unities abgeben:
Ergänzung: Es kann in den BKS zu einer Fehlermeldung kommen: Nicht einheitliche BKS-Y-Achse; wird normalisiert. Folgendes Programm behebt den Fehler: (defun bks-regen (/ ucsname ucslist flag ucsfollow) (setq ucsfollow (getvar "ucsfollow")) (setvar "ucsfollow" 0) (setq flag t) (setq ucsname T) (while ucsname (setq ucsname (tblnext "UCS" flag)) (setq flag nil) (if ucsname (setq ucslist (cons (CDR (ASSOC 2 ucsname)) ucslist)) ) ) (foreach ucsname ucslist (command "_ucs" "_restore" ucsname "_ucs" "_save" ucsname "_yes") ) (setvar "ucsfollow" ucsfollow) ) (defun c:bks-regen () (bks-regen)) und im Programm von CADmium (BKS-IMPORT) kann folgende Zeile (load DATEINAME) durch (PROGN (load DATEINAME) (bks-regen))
Beim Programmablauf (Setzen des BKS) tritt die Fehlermeldung dann letztmalig auf, das BKS wird unter gleichen Namen erneut gespeichert. Ergebnis: Keine Fehlermelungen mehr! ------------------ Gruß aus Wien Bernhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CB_ Mitglied Bauingenieur
Beiträge: 163 Registriert: 20.01.2004 ACAD 2002, W2k, P4 1800Mhz, 512 MB RAM, 20GB HD, Matrox, 2 Bildschirme
|
erstellt am: 29. Apr. 2004 09:20 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Bitte mal langsam für mich.. Sind das jetzt 3 Lisps die ich erstellen muss ? oder 2 (bks-export und bks-import) zeichnug mit exportierenden bks öffnen und dann? wenn ich das lisp aufrufe kann ich es nur abbrechen...??? MfG
Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 29. Apr. 2004 09:29 <-- editieren / zitieren --> Unities abgeben:
Du kannst alle Lisp-Scrips in eine Datei speichern und danach mit Appload laden (alternativ auch einfach per drag&drop) In Appload gibt es auch eine Startgruppe. Alle dort eingetragenen Files werden beim Start geladen. ------------------ Gruß aus Wien Bernhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CB_ Mitglied Bauingenieur
Beiträge: 163 Registriert: 20.01.2004 ACAD 2002, W2k, P4 1800Mhz, 512 MB RAM, 20GB HD, Matrox, 2 Bildschirme
|
erstellt am: 29. Apr. 2004 10:08 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Ja und dann? 1. zeichnung mit den 10 benannten bks zum exportieren öffnen 2. bks-export aufrufen 3. nun kann ich nichts machen, außer das lisp beenden... oder muss ich den dateinamen im lisp irgendwie anpassen?? MfG Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 29. Apr. 2004 10:20 <-- editieren / zitieren --> Unities abgeben:
|
helmut51 Mitglied bautechniker
Beiträge: 244 Registriert: 12.08.2003 ACAD2008 deutsch
|
erstellt am: 24. Nov. 2004 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von Bernhard GSD: Im Dialogfeld eine *.bks Datei anlegen.Dann mit BKS-IMPORT in die Zielzeichnung importieren.
Aber dazu muss ich doch in der zieldatei zuerst BKS-EXPORT aufrufen, abbrechen und dann mit BKS-IMPORT die *.bks-datei importieren. Zumindest funktioniert es bei mir NUR so. Trotzdem Spitzen-lisp für in meinem Fall grossflächige Planungen mit vielen X-refs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 24. Nov. 2004 13:14 <-- 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: 24. Nov. 2004 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von helmut51: Aber dazu muss ich doch in der zieldatei zuerst BKS-EXPORT aufrufen, abbrechen und dann mit BKS-IMPORT die *.bks-datei importieren. Zumindest funktioniert es bei mir NUR so. Trotzdem Spitzen-lisp für in meinem Fall grossflächige Planungen mit vielen X-refs
in der Quelldatei das Lisp laden und bks-export ausführen dann in der Zieldatei das Lispladen und bks-import ausführen ------------------ - 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 |
helmut51 Mitglied bautechniker
Beiträge: 244 Registriert: 12.08.2003 ACAD2008 deutsch
|
erstellt am: 24. Nov. 2004 15:00 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von CADmium: in der Quelldatei das Lisp laden und bks-export ausführen dann in der Zieldatei das Lispladen und bks-import ausführen
das problem war, dass ich BKS-export mit dem Starten der DWG gleich mitlade und in diesem fall BKS-import ein unbekanntes Kommando ist, erst das explizite Laden der lsp-datei führt zum Erfolg. Das Laden der LSP-routine gleich mir dem Start der Sitzung erfordert die von mir beschriebene Vorgansgsweise in Zieldatei BKS-export->abbrechen->BKS-import Warum ist das so? 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: 24. Nov. 2004 15:07 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Hintergrundinfos und Stichworte für die Hilfe findest du u.a. hier ... ist also abhängig, wie du die Lisps lädtst und wie die Sysvar "Lispinit" steht... zu letzterem ist das hier auch ganz interessant. ------------------ - 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 |
helmut51 Mitglied bautechniker
Beiträge: 244 Registriert: 12.08.2003 ACAD2008 deutsch
|
erstellt am: 24. Nov. 2004 15:34 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von CADmium: Hintergrundinfos und Stichworte für die Hilfe findest du u.a. hier ... ist also abhängig, wie du die Lisps lädtst und wie die Sysvar "Lispinit" steht... zu letzterem ist das hier auch ganz interessant.
Vielleicht nicht der eleganteste, aber für mich komfortablere Weg ist der, AUCH eine datei BKS-import.lsp(ident mit BSP-export ausser in 1.Zeile) abzuspeichern und gleich beim Start mitzuladen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 04. Apr. 2005 17:05 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Ich muss das Thema nochmal aufgreifen, da im Lisp von CADmium ein kleiner Bug zu sein scheint. Ich habe ein BKS erstellt mit dem Ursprung: 4400021.879,5600589.226,0 Wenn ich nun mittels des Programmes das BKS abspeichere und in eine andere Datei importiere, bekomme ich folgende Ursprungskoordinaten: 4400022,5600590,0. Es wird also gerundet. In der erstellten *.bks Datei stehen die Koordinaten wie folgt drin: ...(10 4.40002e+006 5.60059e+006 0.0)... Kann man das Lisp so umschreiben, dass es mit Nachkommastellen auch funktioniert? Grüße Lutz ------------------ May the force be with you! 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: 04. Apr. 2005 20:59 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
@Dig15 : Hab ich mal gemacht, und die Ungenauigkeit, die zur Meldung "Nicht einheitliche BKS-Y-Achse; wird normalisiert" führt, auch gleich rausgenommen. (Erforderte einen etwas anderen Ansatz). Das Ergebnis findest du im Anhang. ------------------ - 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 |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 05. Apr. 2005 07:16 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
|
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 05. Apr. 2005 08:10 <-- editieren / zitieren --> Unities abgeben:
|
GottesGeschenk Mitglied Bauingenieur
Beiträge: 229 Registriert: 23.02.2007 win7 CAD 13
|
erstellt am: 18. Sep. 2012 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 18. Sep. 2012 13:25 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
|
Osawa Mitglied Architekt
Beiträge: 58 Registriert: 11.10.2014 Fujitsu Celsius H780 Intel Core i7-8850H 32GB Ram Quadro P3200 Windows 10 Enterprise Revit 2018-20 AutoCAD 2019
|
erstellt am: 23. Okt. 2017 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023
|
erstellt am: 23. Okt. 2017 16:44 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von Osawa:
Gibt es die Lisp-Tools irgendwo zu download? Bei mir sagt's gleich beim Laden, dass der Testzeitraum abgelaufen ist.
Runtergeladen hast Du ja schon erfolgreich. Wenn Du die Tools nun über den Testzeitraum hinaus benutzen willst wirst Du wohl beim Autor einen kleinen Obolus hinterlegen müssen (?). BTW: Ich an Deiner Stelle würde mich mit einer PM an Thomas wenden. (Ob er hier immer mitliest ist unsicher). Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joeycool Mitglied Ingenieur TGA
Beiträge: 1455 Registriert: 01.06.2004 MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017 REVIT MEP 2017 WIN7 64 bit i7 3,4 GHZ, SSD Platte, 16 GB Ram NVDIA Quadro K 2200
|
erstellt am: 23. Okt. 2017 17:33 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von jupa:
Runtergeladen hast Du ja schon erfolgreich. Wenn Du die Tools nun über den Testzeitraum hinaus benutzen willst wirst Du wohl beim Autor einen kleinen Obolus hinterlegen müssen (?). BTW: Ich an Deiner Stelle würde mich mit einer PM an Thomas wenden. (Ob er hier immer mitliest ist unsicher). Jürgen
ja, gibt es dort gegen kleines Geld, heißt ucsimport
Joeycool Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023
|
erstellt am: 23. Okt. 2017 18:31 <-- editieren / zitieren --> Unities abgeben: Nur für Bernhard GSD
Zitat: Original erstellt von jupa:
BTW: Ich an Deiner Stelle würde mich mit einer PM an Thomas wenden.
Ich korrigiere mich ergänzend wie folgt: Bei den meisten (allen?) zum Testen vorgestellten VLX-Codes von Thomas erscheint ein Hinweisfenster analog dem im Bild gezeigten. Falls das Fenster bei Dir auch erscheint, ist das weitere Vorgehen ja selbsterklärend ... Wenn nicht, bleibt mein Vorschlag mit der PM oder nimmst die E-Mail-Adresse aus dem angehängten Bild. Jürgen
------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |