Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Alle Blöcke exportieren/importieren?

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Alle Blöcke exportieren/importieren? (15599 mal gelesen)
Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 09:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

kann man alle Blöcke einer Zeichnung gleichzeitig in einzelne wblöcke exportieren?
Ich hab ca. 500 Blöcke die chronologisch nach Namen sortiert sind.
Jetzt muß ich die exportieren und mit einem Filemanager namentlich neusortieren, weil mittendrin etwas durcheinander geraten ist.
Dann wieder importieren.

Ähnliche Themen gab es schon, aber wie bekomme ich alle Blöcke einzelt exportiert/importiert?

Mfg Alpschorsch

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 09:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Erster!
Code:

;;; Block-Out.LSP
;;; Erzeugt aus jedem internen Block eine eigene DWG-Datei in einem
;;; automatisch angelegten Unterverzeichnis des Windows-Temp-Ordners,
;;; das anschließend im Explorer angezeigt wird.
;;; (In der Explorer-Grundeinstellung wird der Temp-Ordner bei den
;;;  meisten Windows-Versionen NICHT angezeigt)
;;;
;;; Autor: Marc Scherer (marc.scherer@zvo.com)
;;;        Bestandteil der HERDT-Schulungsunterlage
;;;        AutoCAD 2004 - 2D-Aufbaukurs (Autor: Peter Tropf)

(defun C:BLOCK-OUT (/ PATH XREF-LST OLD-CMD OLD-FDIA MAP-CHK)
  (setq XREF-LST (VON-TABLE 14)) ;_ Liste erstellen, nur interne Blocks
  (if (not XREF-LST)
    (alert
      "Keine Blöcke in aktueller Zeichnung definiert! Funktionsende."
    ) ;_ end of princ
    (progn
      (setq OLD-FDIA (getvar "filedia") ;_ save sysvars
    OLD-CMD  (getvar "cmddia")
      ) ;_ end setq
      (setvar "filedia" 0)
      (setvar "cmddia" 0)
      (setq PATH    (CREATE-PATH)
    MAP-CHK (findfile "acadmap.arx")
      ) ;_ end setq
      (WAIT-A-LITTLE) ;_ Warten auf Ordner-Erstellung....
      (foreach ELEM XREF-LST
(if MAP-CHK ;_ Acad-Map aktiv!
  ;; Kommandozeile bei Autodesk Map 5
  (command "_.-wblock"
  (strcat PATH "\\" ELEM ".dwg")
  ELEM
  "_n"
  ) ;_ end of command
  ;; Komandozeile ohne Map
  (command "_.-wblock" (strcat PATH "\\" ELEM ".dwg") ELEM)
) ;_ end of if
      ) ;_ end of foreach
      (alert
(strcat
  "OK, die lokalen Blöcken wurden in Ordner: \""
  (strcase PATH)
  "\" exportiert !"
  "\n\nDer Ordner wird nach dem Schliessen dieses Dialogfeldes"
  "\n\tin einem neuen, zweispaltigen Explorer-Fenster für Sie geöffnet..."
) ;_ end of strcat
      ) ;_ end of alert
      (startapp (strcat "explorer.exe /n,/e," "\"" PATH "\"")) ;_ öffnet den Explorer mit dem neuen Ordner
      (setvar "filedia" OLD-FDIA) ;_ restore sysvars
      (setvar "cmddia" OLD-CMD)
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun


;;; Pgm muss 'n Waitstate einlegen, weil die Erstellung des Export-Ordners über die Shell
;;; eben 'n bischen dauert...
(defun wait-a-little (/ WAITCURSOR WAITTIME)
  (setq waittime (+ (getvar "cdate") 0.000006))
  (while (<= (getvar "cdate") waittime)
    (princ)
    )
  )

;;; erzeugt 'nen "Timestamp"-Ordner
;;; Dies sollte eigentlich reichen, um diesen "unique" im Temp-Verzeichnis zu haben zu haben
(defun create-path (/ RETVAL SHELLCMD)
  (setq retval  (strcat
                  (vl-filename-directory (vl-filename-mktemp)) ;_ finde Temp-Verzeichnis
                  "\\"
                  (menucmd
                    "M=$(edtime,$(getvar,date),DD MONTH YYYY-HH.MM.SS)" ;_ erzeuge Timestamp-Ordner Namen
                  ) ;_ end menucmd
                ) ;_ end strcat
        shellcmd (strcat "md " "\"" retval "\"")
  ) ;_ end setq
  (command "_.shell" shellcmd)
  retval
) ;_ end defun

;;; Auszug aus AI_TABLE:
;;; (ai_table <table name> <bit> )
;;;
;;; Returns a list of items in the specified table.  The bit values have the
;;; following meaning:
;;;  0  List all items in the specified table.
;;;  1  Do not list Layer 0 and Linetype CONTINUOUS.
;;;  2  Do not list anonymous blocks or anonymous groups.
;;;        A check against the 70 flag for the following bit:
;;;                  1  anonymous block/group
;;;  4  Do not list externally dependant items.
;;;        A check against the 70 flag is made for any of the following
;;;        bits, which add up to 48:
;;;                16  externally dependant
;;;                32  resolved external or dependant
;;;  8  Do not list Xrefs.
;;;        A check against the 70 flag for the following bit:
;;;                  4  external reference
;;;  16 Add BYBLOCK and BYLAYER items to list.
;;;
 
(defun VON-TABLE (Bit / BLCK-LST RES-LST TABLDATA FFIND SUPP-DAT)
  (setq supp-dat "ai_utils.lsp")
  (if (null AI_TABLE)
    (progn
      (setq ffind (findfile supp-dat))
      (if (not ffind)
        (progn
          (alert (strcat "Kann \"" (strcase supp-dat) "\" nicht finden."
              "\nÜberprüfen Sie Ihre Suchpfadeinstellungen..."
                      "\n\n....Funktionsabbruch !")
              )
          (exit)
          )
          (load supp-dat)
        )
      )
    )
  (setq RES-LST '()
BLCK-LST (AI_TABLE "BLOCK" bit)
  ) ;_ end of setq
  (if (and BLCK-LST (= bit 6)) ;_ Handling nur für Xref
    (progn
      (foreach ELEM BLCK-LST
(setq TABLDATA (entget (tblobjname "BLOCK" ELEM)))
(if (not (zerop (logand 4 (cdr (assoc 70 TABLDATA)))))
  (setq RES-LST (cons ELEM RES-LST))
) ;_ end of if
      ) ;_ end of foreach
    ) ;_ end of progn
    (setq RES-LST BLCK-LST)
  ) ;_ end of if
  (setq BLCK-LST RES-LST)
) ;_ end of defun

(princ "\nBlock-Out.lsp - erzeugt DWG-Dateien aus internen Blöcken im Temp-Ordner...")
(c:block-out) ;_ Autorun, when loaded
(princ)



.

------------------
Ciao,
Marc

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 10:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ marc.scherer,

sieht aus als wäre das in die Richtung!

Aber ACAD fängt an auszulagern und dann Systemabsturz!

Wie kommt's?

Mfg

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 10:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Weiß nicht...
Hast 'n Scheiß Rechner?
Bei mir läuft's problemlos.

------------------
Ciao,
Marc

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 10:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Heul!

Das sah so gut aus! Probier's nochmal!

Sagt sowas wie : Systemfehler Access Violation Reading 0x0004 Exeption at 644free80h

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 10:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Hast Du das SP1a für Acad installiert?
Sonst dreh mal die Zeit im "wait-a-little" ein wenig höher.
Scheint mir aber ein Acad-Fehler zu sein.

------------------
Ciao,
Marc

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 10:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ marc.scherer,

SP1a hab ich noch nicht!
Sollte ich das machen?

Schraub noch mal dran rum!

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 10:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Hi Schorsch,
man sagt ja: "Es gibt keine blöden Fragen."

Aber bei:
"SP1a hab ich noch nicht! Sollte ich das machen?"

bin ich versucht die Allgemeingültigkeit dieser Phrase in Abrede zu stellen...

------------------
Ciao,
Marc

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 10:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ marc.scherer,

Kann das mit Attributen und Verschachtelungen ein Problem sein?

Mfg

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 10:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Nein. Function benutzt WBLOCK. Was der Befehl kann, kann die Function auch.

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 10. Feb. 2004 editiert.]

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 11:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Keine Chance!
Läuft nicht!
Dann such ich mir wohl mal ein SP!

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 11:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Ey,
gleich werde ich mal meine Säge auf Dich apply'n...
Ich denke das SP hast Du VOR weiteren Tests schon drauf gepackt.
<kopfschüttel>
Willst Du mich ärgern?

------------------
Ciao,
Marc

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 11:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Nö!
Was ist los! Verstehe die Aufregung nicht ganz!

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 10. Feb. 2004 11:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Hallo,

nicht ganz so umfangreich, auch nicht so komfortabel. Eine Lösung von mir:

Code:

;|Exportiert alle in der Zeichnung gefundenen BLÖCKE unter gleichem Namen als Zeichnung
Existiert eine Datei diesen Namens bereits, wird eine 0 an den Namen angehängt
Version: ACAD2004
|;
(defun c:wblockall ( / blks PFAD)
(setvar "CMDECHO" 0)
(setq PFAD "c:\\TEMP\\");Hier den Zielpfad eintragen
(if (setq blks (vl-remove-if
'(lambda (A) (wcmatch A "`**"))
(mapcar 'car (get_allnames_table "BLOCKS"))
)
)
(mapcar '(lambda (NAME / nam)
(setq nam NAME)
(while (findfile (strcat PFAD NAME ".dwg"))
(setq NAME (strcat NAME "0"))
)
(command "_.-wblock" (strcat PFAD NAME) nam)
)
blks
)
)
(princ)
)

(defun drawing ()
(vlax-get-property
(vlax-get-acad-object)
"ActiveDocument"
)
)
(defun get_count_table (table /)
(vlax-get-property
(vlax-get-property
(drawing)
table
)
'count
)
)
(defun get_allnames_table (table / names z)
(repeat (get_count_table table)
(setq z (if z (1+ z) 0)
names (cons(cons (vlax-get-property
(setq dimobjtmp(vlax-invoke-method
(vlax-get-property
(drawing)
table
)
'item
z
)
)
'name
)
dimobjtmp)
names)
)
)
(if names (reverse names))
)
(princ"\n(defun - Lisp over night!")
(princ"\nhttp://www.defun.de")
(princ"\nBlock-WBLOCKEXPORT")
(princ"\nStart mit: wblockall")


Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

Caladia
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Caladia an!   Senden Sie eine Private Message an Caladia  Schreiben Sie einen Gästebucheintrag für Caladia

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 10. Feb. 2004 12:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Also ich kann aus eigener Erfahrung sagen (und das ist schon vor Wochen gewesen), das alle Blöcke rausexportieren (Lisp hängt schon lange hier im Forum rum) ohne den SP1a einen Systemabsturz verursacht.

------------------
Gruss
Caladia

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

charly9
Mitglied



Sehen Sie sich das Profil von charly9 an!   Senden Sie eine Private Message an charly9  Schreiben Sie einen Gästebucheintrag für charly9

Beiträge: 135
Registriert: 06.02.2004

erstellt am: 10. Feb. 2004 12:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

@marc.scherer

Danke Dir,
Klappt Super.

Grüße Charly

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 12:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@Brischke,

vielleicht stelle ich mich ja ein bischen dumm an, aber es kommt folgende Fehlermeldung:

"C:\Dokumente und EinstellungenReimannEigene Dateie_Test\W_EB-004-LR_SEITE_1": 
Ungültiger Dateiname.
Unbekannter Befehl "W_EB-004-LR_SEITE_1". Drücken Sie F1-Taste für Hilfe.

Es ist zum heulen!
Jaja ich stelle mich zu dumm an!

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 10. Feb. 2004 12:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Vielleicht solltest du als Zielpfad
"C:\\Dokumente und Einstellungen\\Reimann\\Eigene\\"
eintragen ??
Thomas

------------------

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 10. Feb. 2004 12:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

@Alpschorch

Dann hast du wahrscheinlich bei deinem Zielpfad versäumt die Backslash's durch Doppel-Backslashs zu ersetzen
also so:
"C:\\Dokumente und Einstellungen\\Reimann\\Eigene Dateien\\W_EB-004-LR_SEITE_1\\"
Auch nicht vergessen, dass die Verzeichnisangabe mit dem \\ beendet werden muss.

Grüße Holger 

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 12:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@marc.scherer,

ich werd zum Elch!

Hab es an einem anderen Rechner getestet!
Läuft einwandfrei!
Super Tool!

Ich schmeiß jetzt meinen Rechner aus dem Fenster!

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 12:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@Brischke,

läuft auch super!

Aber nach dem Erstellen der Blöcke - Systemabsturz- auf meinem Rechner!

Also, es liegt an meinem Rechner!

Muß ich mal überlegen was zu tun ist!

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

Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer


Sehen Sie sich das Profil von Proxy an!   Senden Sie eine Private Message an Proxy  Schreiben Sie einen Gästebucheintrag für Proxy

Beiträge: 1629
Registriert: 13.11.2003

Tastaturen, Mäuse,
Pladden, Monitore, ...

erstellt am: 10. Feb. 2004 13:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Beide Funktionen laufen 1a unter Acad 2000, 2002 und 2004. Habe es mit einer Zeichnung versucht die über 1600 verschachtelte Blöcke hat (eine kleine Horror-DWG). SPs sind natürlich alle drauf  und der PC ist recht schnell mit VIEEEELLL Speicher.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 13:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hurra! Hurra!
Super! Super! Super!

Es läuft! Es läuft! Es läuft! Es läuft!

Sp1a installiert!

Beide Tools laufen Perfekt! Der Tag ist gerettet!

Ich danke euch!

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

newcad
Mitglied
Abteilungsleiter in der AV


Sehen Sie sich das Profil von newcad an!   Senden Sie eine Private Message an newcad  Schreiben Sie einen Gästebucheintrag für newcad

Beiträge: 260
Registriert: 12.11.2003

Acad 2008 DE SP1
Expresstools DE
Acad LT 2008 DE SP1<P>Intel Core2Quad
Q6600 2,4GHz
Windows xp pro, SP3
2GB DDR2 Ram
GeForce GT 220 1024MB
Zwei-Bildschirm-Arbeitsplatz
TFT=V7 22"Wide
TFT=V7 22"Wide
AutoCAD OEM 2010
CAD+T Konstruktionsmodul

erstellt am: 10. Feb. 2004 13:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Hallo zusammen,

ich war neugierig, habe das Lisp geladen und ausgeführt.
Dann kam der Systemfehler.
Habe den PC komplett neu gestartet.
Wenn ich jetzt eine Zeichnung aus dem AutoCad heraus öffnen, oder eine neue erstellen will, sagt AutoCad:
"Namen der zu öffnenden Zeichnung eingeben".?? Warum??
Aus dem Windows-Explorer heraus kann ich alle Zeichnungen öffnen.
Hat sich etwas am Pfad verändert??
Was, wie und wo muss ich ändern??

Danke
Ansgar

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 10. Feb. 2004 13:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 10. Feb. 2004 13:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Hi,
setze sysvar "Filedia" auf 1

------------------
Ciao,
Marc

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

Caladia
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Caladia an!   Senden Sie eine Private Message an Caladia  Schreiben Sie einen Gästebucheintrag für Caladia

Beiträge: 2546
Registriert: 04.03.2002

ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3

erstellt am: 10. Feb. 2004 13:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Wir haben erst Dienstag. Wie oft ist in dieser Woche schon die Frage nach Filedia gekommen?

------------------
Gruss
Caladia

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

newcad
Mitglied
Abteilungsleiter in der AV


Sehen Sie sich das Profil von newcad an!   Senden Sie eine Private Message an newcad  Schreiben Sie einen Gästebucheintrag für newcad

Beiträge: 260
Registriert: 12.11.2003

Acad 2008 DE SP1
Expresstools DE
Acad LT 2008 DE SP1<P>Intel Core2Quad
Q6600 2,4GHz
Windows xp pro, SP3
2GB DDR2 Ram
GeForce GT 220 1024MB
Zwei-Bildschirm-Arbeitsplatz
TFT=V7 22"Wide
TFT=V7 22"Wide
AutoCAD OEM 2010
CAD+T Konstruktionsmodul

erstellt am: 10. Feb. 2004 14:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Besten Dank,

ich hatte schon leichte Panik.
Man kann halt nicht alles wissen. (FILEDIA=1).
Habe davon noch nicht gehört und gesehen.
Erfahrung ist die Summe der gemachten Fehler.

Ansgar

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

Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer


Sehen Sie sich das Profil von Proxy an!   Senden Sie eine Private Message an Proxy  Schreiben Sie einen Gästebucheintrag für Proxy

Beiträge: 1629
Registriert: 13.11.2003

Tastaturen, Mäuse,
Pladden, Monitore, ...

erstellt am: 10. Feb. 2004 14:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Wie wäre es mit einer "dynamischen" Top 10 Verlinkung vor dem  Forum ?

So nach dem Motto "Erst die FAQFrequently asked questions = Häufig gestellte Fragen" dann das Posting.


BTWBy the way = Nebenbei bemerkt. Filedia führt knapp vor textfill

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 10. Feb. 2004 14:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

möchte mal kurz ein rieseniges  Lob an das Forum los werden!
Seit ich dieses Forum kenne habe ich hier eine Menge gelernt und mir wurde immer geholfen!
Wirklich Klasse!

Hier gilt noch der Grundsatz : Hier werden Sie geholfen!

Von wem stammt noch dieses Zitat? Egal! Stimmt hier aber!

Perfekt! Danke!

Mfg Alpschorsch

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

AsSchu
Ehrenmitglied
Konstrukteur


Sehen Sie sich das Profil von AsSchu an!   Senden Sie eine Private Message an AsSchu  Schreiben Sie einen Gästebucheintrag für AsSchu

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 10. Feb. 2004 15:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Original erstellt von newcad:
Besten Dank,

ich hatte schon leichte Panik.
Man kann halt nicht alles wissen. (FILEDIA=1).
Habe davon noch nicht gehört und gesehen.
Erfahrung ist die Summe der gemachten Fehler.

Ansgar
immer wieder der TIPP:
schreibe folgende Zeile in deine acaddoc.lsp:(setvar "FILEDIA" 1)
.Falls die Datei in deinem Acadverzeichnis nicht vorhanden ist: eine einfache Textdatei so umbenennen.
Acad liest die acaddoc.lsp automatisch ein.
Die Sysvar wird dann beim Öffnen automatich auf 1 gesetzt.

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 11. Feb. 2004 10:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Moin,
hat noch jemand einen Tip!

Ich muß jetzt meine umbenannten Blöcke importieren und ersetzen!
Ich dachte an blocktoxref! Sind nur ca. 500 Stück !
Hat einer eine bessere Idee?

Gruß Alpschorsch

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 11. Feb. 2004 10:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Erster!
Code:

(defun C:BLRED (/    ALT-OS     ALT_BL BLCKLIST   BLLIST
INDEX    MADE_IT    NEU_BL OBJ_DAT    OBJ_KORD
OBJ_LAY    OBJ_NAME   OBJ_SC1 OBJ_SC2    OBJ_SC3
OBJ_WINK   SGET       SGET_NAME SLENG
       )
  (setvar "CMDECHO" 0)
  (setvar "FILEDIA" 0)
  (setq ALT-OS (getvar "osmode"))
  (setvar "OSMODE" 0)
  (command "_.ucs" "_w")
;;;  (setq BLLIST (list (cons "$TEMP$" "PFEIL")
;;;        ) ;_ end LIST
;;;  )
;;;  (setq BLLIST (list (cons "SS_HD" "G_SS")
;;;      (cons "SS_MD" "G_SS")
;;;      (cons "SS_ND" "G_SS")
;;;      (cons "S_HD" "G_S")
;;;      (cons "S_MD" "G_S")
;;;      (cons "S_ND" "G_S")
;;;      (cons "VS_HD" "G_VS")
;;;      (cons "VS_MD" "G_VS")
;;;      (cons "VS_ND" "G_VS")
;;;      (cons "AS_HD" "G_AS")
;;;      (cons "AS_MD" "G_AS")
;;;      (cons "AS_ND" "G_AS")
;;;      (cons "HAS_HD" "G_HAS")
;;;      (cons "HAS_MD" "G_HAS")
;;;      (cons "HAS_ND" "G_HAS")
;;;      (cons "WT_HD" "G_WT")
;;;      (cons "WT_MD" "G_WT")
;;;      (cons "WT_ND" "G_WT")
;;;      (cons "LS_HD" "G_LS")
;;;      (cons "LS_MD" "G_LS")
;;;      (cons "LS_ND" "G_LS")
;;;      (cons "VBS_HD" "G_VBS")
;;;      (cons "VBS_MD" "G_VBS")
;;;      (cons "VBS_ND" "G_VBS")
;;;      (cons "PFAHL_HD" "G_PFAHL")
;;;      (cons "PFAHL_MD" "G_PFAHL")
;;;      (cons "PFAHL_ND" "G_PFAHL")
;;;        ) ;_ end LIST
;;;  ) ;_ end setq
;;; Abwasserliste
  (setq bllist (list (cons "pfahlinf1" "pfahlinf")
                     (cons "0" "030")
;;;                     (cons "STUTZO" "S_STUTZO")
;;;      (cons "STUTZR" "S_STUTZ")
;;;      (cons "STUTZL" "S_STUTZ")
;;;      (cons "ABZWL" "S_ABZW")
;;;      (cons "ABZWR" "S_ABZW")
;;;      (cons "ABZWO" "s_ABZWOB")
     )
)
  (foreach ELEMENT BLLIST
    (setq ALT_BL (car ELEMENT)
  NEU_BL (cdr ELEMENT)
  SGET (ssget "X" (list (cons 0 "INSERT") (cons 2 ALT_BL))) ;_ end ssget
    ) ;_ end setq
    (if SGET
      (progn (setq SLENG (sslength SGET)
   INDEX 0
     ) ;_ end setq
     (if (= (tblsearch "BLOCK" NEU_BL) NIL)
       (progn (command "_.insert" NEU_BL "0,0" "1" "" "") ;_ end command
      (entdel (entlast))
       ) ;_ end progn
     ) ;_ end if
     (while (< INDEX SLENG)
       (setq SGET_NAME (ssname SGET INDEX)
     OBJ_DAT   (entget SGET_NAME)
     OBJ_LAY   (assoc 8 OBJ_DAT)
     OBJ_NAME  (assoc 2 OBJ_DAT)
     OBJ_KORD  (assoc 10 OBJ_DAT)
     OBJ_SC1   (assoc 41 OBJ_DAT)
     OBJ_SC2   (assoc 42 OBJ_DAT)
     OBJ_SC3   (assoc 43 OBJ_DAT)
     OBJ_WINK  (assoc 50 OBJ_DAT)
     BLCKLIST  (list '(0 . "INSERT")
     (cons 2 NEU_BL)
     OBJ_LAY
     OBJ_KORD
     OBJ_SC1
     OBJ_SC2
     OBJ_SC3
     OBJ_WINK
       ) ;_ end list
       ) ;_ end setq
       (setq MADE_IT (entmake BLCKLIST))
       (if (/= MADE_IT NIL)
(entdel SGET_NAME)
       ) ;_ end if
       (setq INDEX (1+ INDEX))
     ) ;_ end while
     (princ (strcat "\n"
    (itoa INDEX)
    "x "
    ALT_BL
    " durch "
    NEU_BL
    " ersetzt!"
    ) ;_ end strcat
     ) ;_ end princ
      ) ;_ end progn
      (princ (strcat "\nKein Block: \"" ALT_BL "\" vorhanden!"))
    ) ;_ end if
  ) ;_ end foreach
  (setvar "OSMODE" ALT-OS)
  (setvar "CMDECHO" 1)
  (setvar "FILEDIA" 1)
  (princ)
) ;_ end defun
(princ "\nBlöcke austauschen, Start mit \"BLRED\" !")
(princ)

Mußt im Code die Namen der ersetzenden Blöcke angeben:
(cons "AlterName" "NeuerName")

Edit: Handelt KEINE Blöcke mit Attributen!

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 11. Feb. 2004 editiert.]

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 11. Feb. 2004 10:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

UPS! Schneller als die Feuerwehr!

@marc.scherer,

Edit: Handelt KEINE Blöcke mit Attributen!

Meine Blöcke haben alle Attribute!
Und nun?

Mfg


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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 11. Feb. 2004 10:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

In den Arsch gekniffen :-)
Frag Holger. Ich hab' jetzt die Lust an diesem Thread verloren.

------------------
Ciao,
Marc

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 11. Feb. 2004 10:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

benenn sie einfach mit _rename um  

------------------
- Sebastian -

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 11. Feb. 2004 10:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@marc.scherer,

sei doch nicht gleich so gereizt!
Kann nichts dafür das da Attribute drin sind!
War nur ne Frage! Wenn es nicht geht, dann geht's nicht!

Dann mach ich es zu Fuß!

Gruß Alpschorsch

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 11. Feb. 2004 10:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Alpi: "sei doch nicht gleich so gereizt!"

Wer ist gereizt? Was glaubst Du wofür das >>>> :-) <<<< hier steht?
Für Gereiztheit?

------------------
Ciao,
Marc

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 11. Feb. 2004 10:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

>>>> :-) <<<<  Sorry ! Ne!

Geht das wirklich nicht mit Attributen?
Hab ja nichts geändert außer den Namen des Blockes!

Gruß Alpschorsch

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 11. Feb. 2004 11:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alpschorsch 10 Unities + Antwort hilfreich

Einen Block "nur" umbenennen geht mit :

(defun BLOCK_RENAME (  ALTERNAME NEUERNAME  / )
  (if (and (=(type ALTERNAME) 'STR)(tblsearch "BLOCK" ALTERNAME)
          (=(type NEUERNAME) 'STR)(snvalid NEUERNAME)
          (not(tblsearch "BLOCK" NEUERNAME))
      )
    (progn
      (vla-put-name
        (vla-item
          (vla-get-blocks
            (vla-get-ActiveDocument
              (vlax-get-acad-object)
            )
          )
          ALTERNAME
        )
        NEUERNAME
      )
      (not(not(tblsearch "BLOCK" NEUERNAME))); Rückgabewert der Funktion
    ) 
  ) 

Die Logik AlterName -> Neuername muß du festlegen!

Gruß Thomas

------------------

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

Alpschorsch
Mitglied
Dipl.-Ing.(FH) Architektur


Sehen Sie sich das Profil von Alpschorsch an!   Senden Sie eine Private Message an Alpschorsch  Schreiben Sie einen Gästebucheintrag für Alpschorsch

Beiträge: 735
Registriert: 18.11.2003

Grafikkarte: Rage128 Fury ProII 32MB
Prozzesor ~1,5MHz
Arbeitsspeicher~1,3GB
Windows 2000 Professional
ACAD 2004
Express Tools(deutsch)
Photoshop 7.0
Quark Express 5.5
Acrobat 5.0

erstellt am: 14. Feb. 2004 18:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@marc.scherer,

hat mit Deiner Lisp hervorragend funktioniert alle meine Blöcke zu importieren.
Auch mit Attributen!
Wollte die Attribute ja nicht ändern, sondern nur die Blöcke überschreiben.

Also, nochmal Danke!

Nur die verschachtelten Blöcke wurden leider nicht mit ausgetauscht, aber man kann ja nich talles haben.

Danke

Gruß Jörg

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz