---

hallo,

zwei fragen ...

1.) kann man layer aus xls importieren ? ohne umwege?
oder eventuell txt dateien?

2.) kann man Xrefs 1:1 aus einer zeichnung mit der gleich skalierung und einfügepunkt in eine andere dwg kopieren

grüße
sleepi

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

---

zu 1. Ja! ...
zu 2. auch Ja!
Frage ist, was ist für dich ein Umweg? ACAD bringt die Schnittstellen (Programmierung) dazu mit. Ein Knöpfen dafür gibt's nicht.

------------------
- 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

---

programmierung ist ein umweg ...

ein lisp oder express tools wäre toll

hast du einen typ ?

grüße
sleepi

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

---

sleepy, ein lisp hab ich nicht, aber einen Typ [Achtung-Umweg]:

Code:

---

Sub add_layers()
  Dim lay As AcadLayer
  Dim s$, arr
  Open "d:\cad\deinfile.txt" For Input As #1
      While Not EOF(1)
        Line Input #1, s
        arr = Split(s, ";")
        Set lay = ThisDrawing.Layers.Add(arr(0))
        lay.Color = arr(1)
      Wend
  Close #1
End Sub

---

Vorraussetzung ein Textfile das genau so aufgebaut ist, Layername;Color:

bla1;5
bla2;3
bla3;7

usw. ...
Fini an der Stelle - keiner kennt die Struktur deines Files.
Oder bemühe mal die Suche, bin mir sicher, da gibts auch ein lisp.

Gruss Nancy

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

---

hallo,

seid mir nicht böse ... aber mit programmcode kann ich wenig anfangen

wie kann ich diesen verwenden?

grüße
sleepi

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

---

hallo schlafender,

Alt+F11 drücken > Menue einfügen > Modul > Code da reinkopieren > VBE schliessen
in Acad > Alt+F8 > Makro ausführen

ansonsten:
Oder bemühe mal die Suche, bin mir sicher, da gibts auch ein lisp.

Gruss Nancy
           

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

---

hi sleepi,

schreibt dir xrefs in eine scriptdatei.
in der anderen dwg das script wieder einlesen.

ciao georg

===================================================================

;xrefs rausschreiben in scriptdatei
;gmk@cad.de

(DEFUN c:gmk_xref_out ( /
;==============variablen==============
datei
filedia_alt
aws
zaehler
laws
ele
bl_tb
)

(SETQ datei (OPEN (getfiled "Scriptdatei für XREF" (GETVAR "dwgprefix") "scr" 1) "w"))
(WRITE-LINE "_ucs _w" datei)
(WRITE-LINE "aunits 3" datei)  ;bogenmass fuer scriptdatei
(SETQ filedia_alt (GETVAR "filedia"))
(SETVAR "filedia" 0)
(SETQ aws (SSGET  '((0 . "INSERT"))))
(SETQ laws (SSLENGTH aws))                ; anzahl elemente im auswahlsatz
(SETQ zaehler 0)                          ; lfdnr initialisieren
(WHILE (< zaehler laws)
    (SETQ ele (ENTGET (SSNAME aws zaehler)))
    (SETQ bl_tb (TBLSEARCH "BLOCK" (CDR(ASSOC 2 ele))))
    (IF (= (CDR(ASSOC 70 bl_tb)) 36)
      (PROGN
        (WRITE-LINE (STRCAT "_-layer _m " (CDR(ASSOC 8 ele)))  datei)
        (WRITE-LINE "" datei)
        (SETQ einfp (CDR(ASSOC 10 ele)))
        (WRITE-LINE (STRCAT "_-xref z " "\"" (CDR(ASSOC 1 bl_tb)) "\" "
                            (RTOS (NTH 0 einfp) 2 16) "," 
                            (RTOS (NTH 1 einfp) 2 16) ","
                            (RTOS (NTH 2 einfp) 2 16) " "
                            (RTOS (CDR(ASSOC 41 ele)) 2 16) " "
                            (RTOS (CDR(ASSOC 42 ele)) 2 16) " "
                            (RTOS (CDR(ASSOC 50 ele)) 2 16)) datei)
      ) ;PROGN
    ) ;IF
    (SETQ zaehler (+ zaehler 1))
) ; ende WHILE
(SETVAR "filedia" filedia_alt)
(CLOSE datei)
(PRINC)
) ;DEFUN

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

---

hallo gmk,

kann es sein das die erstelle scriptdatei nur diese informationen enthält

_ucs _w
aunits 3

beim einlesen in eine neue dwg funktioniert es nicht

grüße
sleepi

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

---

    (SETQ bl_tb (TBLSEARCH "BLOCK" (CDR(ASSOC 2 ele))))
    ; hier reinkopieren
    (ALERT (ITOA (CDR(ASSOC 70 bl_tb))))
    ; hier reinkopieren
    (IF (= (CDR(ASSOC 70 bl_tb)) 36)

kopier mal die >>>>ALERT-zeile<<<<< zwischen die beiden zeilen, lisp neu laden, eine xref anklicken und poste den wert, den das fenster anzeigt.
bei mir läuft's ohne probleme.

ciao georg

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

---

hallo,

funktioniert nicht ... jetzt schreibt er meldung 44

ich habe das eingefügte xref varriert und über die x-achse gedreht und in den raum gestellt ... kann es deswegen nicht funktionieren?

grüße
sleepi

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

---

machmal schreibt autocad den pfad hin wenn er das xref nicht findet ... wie bekomme ich autocad dazu das es den pfad hinschreibt ?

dann kann ich den text kopieren und in eine neue zeichnung einfügen

grüße
sleepi

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

---

ha ... ich hab die lösung

xrefs per zwischaenablage kopieren und in der neuen dwg mit orig. koordinaten einfügen

dannach express tools --> blocks --> convert block to xref

den block auswählen --> dannach das dwg file wählen und fertig

übernimmt alle daten !!! x,y,z, skalierung, usw.

grüße
sleepi

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

---

hallo...!!

also ich für meinen teil fang mit den ganzen programm-codes nix an, das geht einfach über meinen horizont hinaus:

hier die "idioten-lösung" wie ich es immer mache:

gleiche x-ref in neuen plan:

mit dem befehl "_copybase" = kopieren mit basispunkt, als basispunkt 0,0,0 eingeben und dann in den neuen plan mit basispunkt 0,0,0 wieder einfügen, ist dann automatisch wieder eine x-ref.

layer in einen neuen plan kopieren:

über das designcenter:

funktioniert wie ein explorer (für alle dieŽs nicht wissen) layer auswählen und per "drag&drop" in den neuen plan ziehen.

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