---

Hallo zusammen,

Ich nutze folgenden Programmteil zum einfügen von Blockdefinitionen,
bzw. ersetze ich die Definition wenn diese in meiner aktuellen Zeichnung
bereits voranden ist. Anschließend wird natürlich gleich eine Referenz erstellt.
Das ganze arbeitet gut wenn der Block nicht dynamisch ist.

Hat der Block aber z. B. einen Sichtbarkeitsparameter reicht die Else Bedingung
(Blockdefinition vorhanden) so nicht aus.
Obwohl beide Parameter (intern und extern) gleich spezifiziert sind verlieren die neuen
Objekte den Bezug zu ihrem Sichtbarkeitsstatus.

Frage wie wie kann ich diese Verbindung wieder herstellen?
Oder wie kann ich den internen Blockparameter mit dem externen Parameter
ersetzen, wie die grafischen Objekte.

    (defun blkreplace (blknam / )   
 
      (if (setq finlib (findfile "library.dwg"))
        (progn
          (setq docu (vla-get-activedocument (vlax-get-acad-object)))
          (setq odbx (vla-getinterfaceobject (vlax-get-acad-object) "ObjectDBX.AxDbDocument.19"))   
          (vla-open odbx finlib)
          (setq exblks (vla-get-blocks odbx))
          (setq inblks (vla-get-blocks docu))
          (setq extblk (vla-item exblks blknam))
          (if (not (tblsearch "Block" blknam)) 
            (vla-copyobjects odbx (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list extblk)) inblks)
            (progn
              (setq blkcou (vla-get-Count extblk))
              (setq intblk (vla-item inblks blknam))
              (vlax-for blkele intblk
                (vla-Delete blkele)
              )
              (setq elearray (vlax-make-safearray vlax-vbobject (cons 0 (1- blkcou))) blklis nil)
              (vlax-for blkele extblk
                (setq blklis (append blklis (list blkele)))       
              )
              (vlax-safearray-fill elearray blklis)
              (vla-copyobjects odbx elearray intblk)
              (vlax-for blkele intblk
                (vla-Update blkele)
              )           
              (vlax-put-property intblk 'Explodable :vlax-false)
            ) 
          )   
          (vlax-release-object odbx)
          (command "Regen")
        )
      )
    ) 

Vielen Dank für etwaige Hilfe!

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

---

Hallo CADlsp,

ich würde mal behaupten, da hast du mit Lisp schlechte Karten. Ich habe selbiges Problem in c#.Net gelöst. Allerdings war es auch dort arg tricky.
Kurz umrissen mein Weg, den ich gegangen bin:
Zunächst habe ich mir die eingestellten Sichtbarkeitsparameter je Blockreferenz gemerkt, dann ausgetauscht, dann die Sichtbarkeitsparameter wieder gesetzt.
Der Haken an der Sache ist, dass die Intelligenz der dyn. Blöcke in irgendwelchen Dictionaries und Reactoren gespeichert sind. Diese werden nicht unbedingt aktualisiert, weshalb ich diese Aktualisierung über den Befehl ATTSYNC realisiert habe. Wenn aber nun ein Block keine Attribute hatte, usw .. ein Rattenschwanz, den es zu erledigen galt.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo CADlsp,
das Thema hab ich auch noch auf meiner Liste.

Wie Holger schon gesagt hat werden die ganzen dynamischen Sachen in Dictionaries gespeichert. Mit denen schlag ich mich grade in anderer Weise herum und die wehren sich wirklich.

Ich würde die aktuelle Blockdefinition separat reinholen und dann in der ganzen Zeichnung die Inserts austauschen.
Klar musst du dann noch einiges "Restaurieren" (Attribute, Parameter,...) aber ich seh im Moment auch keine einfache Lösung.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 25. Jul. 2014 editiert.]

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