---

hi, na leute bei euch auch so'n sch.... wetter?

hab mal ne frage zu blöcken...
habe einen block in dem der ges. Grundriss eines gebäudes drinnen ist, gibts ne mögl. dass ich die farben des blockes alle auf eine bestimmte farbe stellen kann ??? ... probl ist der plan hat knappe 30 mb wenn ich zuerst mir refbearb den block bearbeite und dann alles auswähle farbe ändere und dann wieder abspeichern muss dauert das urlange ...bzw. beim ersten mal ist der rechner abgeschmiert.... wills nicht noch mal prob...

ideen??

und wolfgang keine antwort aufs wetter bitte, danke bin schon gereizt genug ,.....

------------------
ciao
dominik
---------------------

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

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

---

Probiers mal damit, Farbnummer ist
im Moment auf 1 also Rot:

Public Sub NewColor()

Dim strRefName As String
Dim objBlock As AcadBlock
Dim objEntity As AcadEntity

strRefName = ThisDrawing.Utility.GetString(1, "Blockname eingeben: ")

On Error Resume Next

Set objBlock = ThisDrawing.Blocks(strRefName)

If Err.Number <> 0 Then
  MsgBox "Ungültiger Blockname"
  Exit Sub
End If

For Each objEntity In objBlock
    objEntity.Color = 1 'Farbnummer
Next

Set objBlock = Nothing

ThisDrawing.Regen acActiveViewport

End Sub

------------------
Bernd Cuder
Cad&Co makes CAD easy

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

---

Hallo Dominik,

meine Kiste wäre schon längst zusammengebrochen...
Ich würde Block in anderer Datei bearbeiten und nochmals einfügen.

Gruß Lothar

Bernds Antwort hört sich auch ganz gut an

------------------
Lothar Kramer

[Diese Nachricht wurde von Kramer24 am 31. Oktober 2002 editiert.]

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

---

wenn ich das richtig verstehe dann den oberen text nehmen ne lsp daraus machen und dann laden...oder?

folgendes kommt dann ...

-----------------
Befehl: APPLOAD
blockfarbe.lsp erfolgreich geladen.

Befehl:
Abbruch : no function definition: 1,
Befehl:
-----------------

bis ich das endlich herausen habe mit diesn lsp's vergehen noch jahre glaube ich ...
ach ja mit welchem befehl rufe ich das dann auf??

danke

------------------
ciao
dominik
---------------------

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

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

---

Ist keine Lisp, ist VBA:

In AutoCAD
ALT-F11 um VBA Editor zu starten,
im Menü Einfügen->Modul wählen,
Modul öffnen und Code reinkopieren.
In AutoCAD unter Extras->Makro->Makros
NewColor starten.

------------------
Bernd Cuder
Cad&Co makes CAD easy

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

---

lässige sache pc 4x abgeschmiert in den letzten 15 min. ..dauerte deshalb ein wenig ....
prog funkt bedingt ...gibts ne möglichkeit das er alle im block enthaltenen blöcke auch mitnimmt??

------------------
ciao
dominik
---------------------

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

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

---

oder noch was vielleicht ist es so einfacher habe den block mittels wblock eh schon in ne eigene datei gespielt ... müsste jetzt aber jeden einzelnen blocknamen raussuch und eintippen von den blöcken die im 1sten block drinnen waren um dieses prob benutzen zu können ....

gibts ne mögl. dass er alle blöcke die er findet einfach durchlaufen lässt??? und ich ihm nicht jeden extra ansagen muss??

vielleicht hilft das irgendwie (keine ahnung wie) ... ist ein lsp dass sämtliche in einem plan enthaltenen blöcke mittels wblock rausspeichert ... kann man das irgendwie verbinden ?? (so dass er einen block nach dem anderen nimmt und die farbe ändert ...??
-----------------
(defun C:BDAT ()
(setq blo (tblnext "BLOCK" T))
(while blo
(if (not (wcmatch (cdr (assoc 2 blo)) ".*"))
    (progn
      (setq bname (cdr (assoc 2 blo)))
      (if (> (strlen bname) 40)(setq bn (substr bname 1 40))(setq bn bname))
      (setq datname (strcat "d:\0" bn ".DWG"))
      (setvar "FILEDIA" 0)
      (command "_-WBLOCK" datname bname))
      (command)
      )
(setq blo (tblnext "BLOCK"))
)
(setvar "FILEDIA" 1)
)

--------------------------
oder 2te mögl. die nicht schlecht wäre dass man den gewünschten block anklicken kann ....

habe leider null kenntnis über vba....

danke einstweilen

------------------
ciao
dominik
---------------------

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

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

---

einefarb.zip cswap-new.zip

Hy Versuchs damit

bei mir funkts wunderbar

cw

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

---

Hier ist es, ebenfalls in VBA.

Code:

---

Public Sub BlockToColor()
' Setzt alle Elemente eines Blocks auf eingegebene Farbe

    Dim SS As AcadSelectionSet
    Dim FltTypes(0) As Integer
    Dim FltData(0) As Variant
   
    Dim BlRef As AcadBlockReference    ' gewählte Blockreferenz
    Dim Bl As AcadBlock                ' Block ( --> Blockreferenz)
    Dim pt As Variant                  ' Auswahlpunkt
    Dim BlElem As AcadEntity            ' Elemente des Blocks
   
    Dim Bag As Collection
    Dim Search As Object
   
    Dim Farbe As Long
     
    ' Frage nach den zu bearbeitenden Blöcken
    Set SS = CreateSelectionSet("BlöckeNeuzeichAuswahl")
    FltTypes(0) = 0: FltData(0) = "INSERT"
   
    ' Selectionset erstellen, Benutzer fragen und Filter anwenden
    SS.SelectOnScreen FltTypes, FltData
   
    If SS.Count = 0 Then GoTo ENDE
   
    On Error GoTo ENDE
    Farbe = ThisDrawing.Utility.GetReal("Farbnummer: ")
   
    If Farbe < 0 Or Farbe > 256 Then GoTo ENDE
   
    Set Bag = New Collection
    For Each BlRef In SS
   
        On Error Resume Next
        Set Search = Bag(BlRef.Name)
        If Err Then Bag.Add BlRef, BlRef.Name
       
    Next BlRef
   
    Dim Anzahl As Integer
    Dim I As Integer
   
    Anzahl = Bag.Count
    Do
        I = I + 1
        Set BlRef = Bag(I)
        Set Bl = ThisDrawing.Blocks(BlRef.Name)
       
        For Each BlElem In Bl
           
            If BlElem.ObjectName = "AcDbBlockReference" Then
                On Error Resume Next
                Set Search = Bag(BlElem.Name)
                If Err Then
                    Bag.Add BlElem, BlElem.Name
                    Anzahl = Anzahl + 1
                End If
               
            End If

            BlElem.Color = Farbe
       
        Next BlElem
   
    Loop Until I = Anzahl
    ThisDrawing.Regen acAllViewports
       
ENDE:
    SS.Delete
   
End Sub

---

------------------
Roland

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

---

globalc.lsp mit global.dcl
ändert die Farben aller Objekte auch in Blöcken.

findest Du bei:
caddepot.com
->Autodesk
->Autolisp
->page 17
->globalc.zip

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

ich könnt dich umarmen cadwoman *umarm*

du glaubst ja gar nicht wieviel zeit du mir erspart hast ... die beiden progs rechneten zusammen zwar ca. 15 min aber das war es allemal wert *smile*

danke dir

------------------
ciao
dominik
---------------------

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

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

---

die anderen progs werde ich bei gelegenheit auch ausprob. danke ......
hab sie erst jetzt gesehen ... (war so begeistert von dem cswap und einefarb das ich eure noch nicht gelesen hatte)

danke auf jeden fall....

------------------
ciao
dominik
---------------------

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

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

---

@domda danke,

aber die Teile sind von mir nur korr. und weitergereicht.
Bin selbst erst seit kurzen in ihrem Besitz.

Kommen eigentlich von Holger :-)

mfg cw

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

---

bin ich auch schon drauf gekommen, hab mich ein wenig im forum umgesehen und den eintrag von holger gefunden,
bin grad beim pläne plotten...somit morgen 6uhr alles auf der baustelle und termingerecht *freu*
danke trotzdem

------------------
ciao
dominik
---------------------

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

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

---

Hallo,

die Progi's sind auch nicht von mir - hab sie ebenfalls nur korrigiert und wieder reingestellt.
einefarb.lsp ist von Martin (CADWiesel).
Nur der Ordnung wegen.

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night

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

---

Hallo Cadwomen und Kollegen,

ich will eigentlich nur alle Zeichenelemente in einer Zeichnung auf Farbe VonLayer setzen, egal ob Block oder nicht.
Mit cswap.lsp funktioniert das gut nur das Auswählen der allbylayer.csf hätte ich gerne automatisch in das cswap eingebaut so dass ich nen Pfad zur csf nicht immer herpfrimeln muß.
z.B. csf auf p:/cswap/allbylayer.csf

Danke und Gruß Wolfgang

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

---

sorry, ich kann das tool mit globalc nicht starten - es gibt mir eine Fehlermeldung:

Scanning drawing for colors... please wait
Select colors to change...
Error: Beenden/Verlassen abbrechen
Befehl:

was mache ich falsch ?

------------------
Gruss David

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

---

Es ist zwar schon ein älterer Beitrag, aber eine Frage ist hier noch offen und genau diese bräuchte ich jetzt.

Und zwar habe ich mit den beiden Lisp-Programmen cswap.lsp und einfarb.lsp erreicht das ein Plan in eine bestimmte Farbe umgewandelt wird. cswap.lsp will während dem Vorgang immer eine bestimmte Datei (allbylayer.csf) angezeigt bekommen manuell. Wie kann man dies automatisieren?

(Siehe auch Beitrag von wolli)

Grüsse
CeZet

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

---

Zusätzlich habe ich jetzt gerade bemerkt,dass es bei "normalen" Zeichnunge wunderbar klappt, bei XRefs aber nicht.

Bei XRef werden Texte und Attribute nicht umgewandelt, der Rest schon. WIe kann man das steuern das alles behandelt wird?

CeZet

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

---

globalc.zip

Hallo CAD-ler,
ich habe mir heute die globalc.zip besorgt und versuche seither, die globalc.lsp zum laufen zu bringen. Bisher leider ohne Erfolg unter ACAD2004, 2005 und 2007. Alles was passiert ist folgendes:

>>Befehl: globalc
>>Scanning drawing for colors... please wait
>>Select colors to change...
>>Error: Beenden/Verlassen abbrechen

Irgendwas scheint da nicht zu klappen - wer hat nen Tipp für mich?

DANKE im Voraus!

Ludger

P.S.: Die verwendeten Dateien globalc.lsp und global.dcl hänge ich mal an...

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

---

einfarb_2.zip einfarb_2.zip

Ich habe mal eine neue Version von Einfarb die um einiges schneller ist angehängt.
funzt auch unter 2008

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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