farbe ohne explode ändern???? (Autodesk/Rund um AutoCAD)

Hey Kickdown,
AutoCAD2000 hat IMHO noch keinen Blockeditor.
Also würde ich die klassische Methode verwenden:
# Block über Befehl: WBlock als eigene DWG-Datei exportieren
# Diese Datei in AutoCAD öffen
# Objekteigenschaften je nach Wunsch ändern und speichern.
(unbedingt die Hilfe zum Thema Blöcke lesen: Besondere Bedeutung des Layers "0", Objekteigenschaften "VonLayer" und "VonBlock")
# Bearbeitete Zeichnung als Block über den Befehl: Einfüge in die Ursprungszeichnung einfügen, Frage nach neudefinition bejahen, bei der Aufforderung zum positionieren "ESC" betätigen. Damit wird keine Blockreferenz hinzugefügt die Blockdefinition jedoch gemäß der externen Zeichnung aktualisiert.

Zum Verständnis dieses Mechanismus vielleicht auch mal lesen: http://ww3.cad.de/foren/ubb/Forum54/HTML/013223.shtml

Zum exportieren ALLER internen Blöcke verwende ich immer dieses hier:

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