| |
| 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
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
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
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
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
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 10. Feb. 2004 11:47 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
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.
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
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
Beiträge: 135 Registriert: 06.02.2004
|
erstellt am: 10. Feb. 2004 12:16 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
@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
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 10. Feb. 2004 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
@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
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 / zitieren --> Unities abgeben:
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 10. Feb. 2004 13:06 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
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
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 / zitieren --> Unities abgeben:
|
newcad Mitglied Abteilungsleiter in der AV
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
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 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 10. Feb. 2004 13:29 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Caladia Ehrenmitglied V.I.P. h.c.
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
newcad Mitglied Abteilungsleiter in der AV
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 10. Feb. 2004 14:03 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
Wie wäre es mit einer "dynamischen" Top 10 Verlinkung vor dem Forum ? So nach dem Motto "Erst die FAQ" dann das Posting. BTW. 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
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 / zitieren --> Unities abgeben:
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
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 10. Feb. 2004 15:01 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
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
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
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
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 11. Feb. 2004 10:19 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
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 / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
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 / zitieren --> Unities abgeben: Nur für Alpschorsch
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
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 / zitieren --> Unities abgeben:
@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 |