---

Hallo Leute ich habe wieder mal ein Problem
Ich möchte mit VBA allen Blöcken in einer Zeichung eine Linieweight-Eigenschaft zuweisen.

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

---

Den Wunsch zu haben ist doch ok.    Woran hapert es nun?

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Mein Problem ist das meine Progammierkenntnisse noch nicht so gut sind in VBA und das Problem habe das ich nicht weis wie ich eine schleife programmieren soll. In Lisp währe es ja kein Problem aber in VBA.

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

---

Hi,

Schon mal die Sucher angeworfen?! Da kommt z.B. das dabei raus. Nur mal als Anfang.

Gruß, Carsten

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

---

Hallo,

ich dachte das wäre gelöst ?

Da brauchst du doch nur schauen was es für Elemente sind und denen dann die Liniestärke zuweisen.

entity.Lineweight =acLnWt035

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

 
Hi,

Das hab ich bei der Suche übersehen. 

Gruß, Carsten

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

---

mit dieser Schleife werden all Objekte die in den Blöcken entalten sind geändert, aber ich möchten den Block selber ändern

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

---

Dann brauchst du doch nur mit der AutoCAD Schnellauswahl alle Blöcke selektieren und im Eigenschaftsfenster ändern.

Wenn in einer Blockdefinition die Linienstärke fix angegeben wurde musst du sie auch in der Definition ändern. Dann ändern sich logischerweise auch die Abbilder (Einfügungen)

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Das Problem dabei ist das ich es für den Batchbetrieb benötige. Darum müsse ich es programmieren.

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

---

Wie machst du es denn mit dem Batchbetrieb ?

Im Sucher gibt es da eine Menge:

-Zeichnung öffnen
-Selectionset anlegen
-Selectionset füllen mit SelectAll und Filter für Blöcke
-Alle Elemente im Selectionset durchlaufen und Linienstärke ändern
-Speichern

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Ich habe es jetzt so geschrieben aber funktioiert nicht.

  Dim sset As AcadSelectionSet
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  Dim Object As AcadObject

  Set sset = ThisDrawing.SelectionSets.Add("SS2") 'Auswahlsatz erstellen
  FilterType(0) = 0
  FilterData(0) = "INSERT"    'Filter setzen ungleich
 
  sset.Select acSelectionSetAll, , , FilterType, FilterData 'Alle Elemente laut Filter in Auswahlsatz

For Each Object In sset 'Für jedes Element im Auswahlsatz
    Object.Lineweight = acLnWtByBlock
Next

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

---

Und was funktioniert nicht ?

Abgesehen davon, wo liegt der Sinn darin die Linienstärke auf byBlock zu setzen. Das wäre bei Erzeugen der Blockelemente sinnvoll aber doch nicht bei den Einfügungen. Oder sollen die keine Linienstärke haben ?

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Mir fällt nur noch ein das nur Elemente gefunden werden die im aktuellen Bildschirmausschnitt liegen.

Vielleicht vorher mal Zoom Grenzen

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Der Sinn des ganzen ist mir auch nicht ganz klar.
Funktionieren sollte es auf jeden Fall. Allerdings solltest bei den Selectionsets immer prüfen, ob es den schon in der Zeichnung gibt, das du sonst ne Fehlermeldung bekommst.

Schreib doch was nicht funktioniert, oder was für eine Fehlermeldung du bekommst.

Gruß, Carsten

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

---

Die Problemstellung schaut so aus das ich sehr viele Zeichnungen von den verschiedensten Lieferanten bekomme und die schauen total verscheiden aus und die sollen aber mit nur einer CTB aus gedruckt werden. Und jetzt schreibe ich ein Programm mit dem man allen Objekten eine Linieweight eigenschaft zuweist. Das Programm liest einen Text File ein, wo die Linieweight den Faben zugeordnet ist und die kann ich mir dann an die Lieferanten anpassen.

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

---

Hi,

Bei Selectionsetall werden auch die Elemente ausserhlab des Bildschirmausschnitts mit in den Selectionset gepackt. Dara dürfte es nicht liegen.

Gruß, Carsten

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

---

Hi,

Bei der Aufgabenstellung musst du aber auch alle Elemente in den Blöcken durchlaufen, damit diese geändert werden und nicht nur der Blockreferenz einen geänderten Wert geben.

Gruß, Carsten

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

---

Ich bin gerade darauf gekommen das meine SChleife funktioniert, habe jetzt nur noch eine Frage wie kann ich den Auswahl satz wieder löschen.

Sonst läuft das Prgramm schon einwandfrei aber nur beim ersten durchlauf.

beim zweiten habe ich das Problem das ich eine Fehlermeldung bekomme
wo es heist das der Auswahlsatz schon besteht.

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

---

Hi,

Hier hast du ein Beispiel zum erstellen von Selectionsets.

Gruß, Carsten

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