---

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

---

Hallo,

wozu brauchst du das; als Vorlage?
Dann gibt es aber andere Wege.

Ciao

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

PERFEKT!
30U 4U!
Danke!

------------------
Gruß aus Wien
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

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

---

Im Dialogfeld eine *.bks Datei anlegen.

Dann mit BKS-IMPORT in die Zielzeichnung importieren.

------------------
Gruß aus Wien
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Ja, so warŽs gemeint!

------------------
Gruß aus Wien
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

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

---

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

---

UCS-Export.VLX.txt

@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

---

Guten Morgen,
danke, funzt wunderbar. Die U's sind Dir gewiss.

Grüße Lutz

------------------
May the force be with you! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Läuft perfekt, auch die Dateidialoge verweisen jetzt aufŽs aktuelle Verzeichnis 10U 4U!
(auf 5U für Dig15 ...)

------------------
Gruß aus Wien
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

unter den neuen versionen von autocad läuft dieses tool nicht.

gibt es da ein update?

gruß theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hast Du das mal getestet? Aber ohne Garantie...

------------------
Viele Grüße Lutz

Glück Auf!

[Diese Nachricht wurde von Dig15 am 18. Sep. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

ich grab das Thema nochmal aus. Gibt es die Lisp-Tools irgendwo zu download? Bei mir sagt's gleich beim Laden, dass der Testzeitraum abgelaufen ist.

Besten Dank und Gruß,
Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

171023-Anforderungscode.png

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