---

Guten Morgen zusammen, ich arbeite mit AutoCAD 2010 und habe ca. 100 Zeichnungen zu erstellen, bei denen oftmals die gleichen Blöcke (von Namen und dem Aufbau her) vorhanden sind.
In der Originalzeichnung sind die einzelnen Blöcke verschiedenen Layern, mit unterschiedlicher Farbe,  zugeordnet. in der bearbeiteten Autocadzeichnung sollen diese dem Layer "0" zugeordnet werden und obendrein alle unschuldig weiß sein.
Mit Skripten (Lisp(?)) kenne ich mich nicht so aus und wenn es bei ACAD in die Tiefe geht, brauche ich halt Unterstützung.
Wie kann ich diese Aufgabe automatisieren?

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

---

Zieh dir folgendes Lisp in deine ACAD-Zeichnung , ruf den Befehl BLUNI auf .. und alle Blockelemente haben die Farbe "Von BLOCK"  und die Blockreferenzen liegen auf Layer "0" und sind "weiß"

(defun C:BLUNI()
  (vl-load-com)
  (vlax-for B (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))   
    (if(=(vla-get-islayout B):vlax-false)
      (vlax-for I B
        (if (=(strcase(vla-get-objectname I))"ACDBBLOCKREFERENCE")
          (progn
            (vla-put-color I 7)
            (vla-put-layer I "0")
          )
          (vla-put-color I 0)
        )
      )           
      (vlax-for I B
        (if (=(strcase(vla-get-objectname I))"ACDBBLOCKREFERENCE")
          (progn
            (vla-put-color I 7)
            (vla-put-layer I "0")
          ) 
        ) 
      )
    )   
  )
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Lisp.JPG

Danke, CADmium, das ist ein guter Anfang.
Habe das Skript ausprobiert.
Da sind am Block Zahlen vorhanden (also es ist beispielsweise eine Mehrstockklemme angegeben und bi dieser Klemme alphanumerisch folgende Angaben vorhanden: Brücke links (BL); Brücke rechts (BR) und die jeweiligen Anschlussbezeichnungen (A,B,C).
Diese Anschlussbezeichnungen werden jedoch durch das Skript nicht abgeändert. Wie kann ich das bewerkstelligen?

(siehe Anhang)

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

---

Schau dir mal den Befehl SETBYLAYER an (und entsprechend SetByLayerMode).

Ich denke ja NICHT das du den Objekten wirklich die Farbe Weiss(7) zugeordnet haben wolltest,
aber so war deine Aufgabenstellung beschrieben. Ich hoffe der oben genannte Befehl hilft dir 'dennoch'.

PS: Benenne deine Anhänge bitte eindeutiger, das nächste mit hängst du wieder ein Lisp.jpg an und
überschreibst damit dieses hier! Du hast als CAD.de User nur ein Uploadverzeichnis (siehe Profil)
und dort wird ohne Rückfrage überschrieben.Das naäachst eml Nummerieren und Datum dazu oder so.. 

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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