---

Weiß jemand zufällig wie ich aus meinen Plänen die mit irgendwelchen für mich unwichtigen Applikationen eingefügten Proxy-Elemente herauskriege, so dass bei Weitergabe an Dritte die Proxy Warnmeldung garantiert nicht mehr auftaucht ? Gibt es da ein Tool oder einen Befehl ?

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

---

bitte

(defun c:KillProxy (/ *error* ss i n proxy)
  (vl-load-com)
  (defun *error* (error)
    (vla-endundomark *doc*)
    (cond ((not error))
          ((wcmatch (strcase error) "*QUIT*,*CANCEL*"))
          (1 (princ (strcat "\nERROR: " error)))
          ) ;_ end of cond
    (princ)
    ) ;_ end of defun
  (or *acad* (setq *acad* (vlax-get-acad-object)))
  (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*)))
  (vla-endundomark *doc*)
  (vla-startundomark *doc*)
  (or (and (setq i 0
                n 0
                ) ;_ end of setq
          (setq ss (ssget "X" '((0 . "*PROXY*"))))
          (while (< i (sslength ss))
            (setq proxy (vlax-ename->vla-object (ssname ss i)))
            (and (not (vl-catch-all-error-p
                        (vl-catch-all-apply 'vla-delete (list proxy))
                        ) ;_ end of vl-catch-all-error-p
                      ) ;_ end of not
                  (setq n (1+ n))
                  ) ;_ end of and
            (setq i (1+ i))
            ) ;_ end of while
          (princ (strcat "\nDeleted " (itoa n) " proxy objects."))
          ) ;_ end of and
      (princ "\nNo proxy objects found.")
      ) ;_ end of or
  (*error* nil)
  ) ;_ end of defun

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

Vielen Dank für die schnelle Antwort. Funktioniert zwar programmtechnisch, aber die Proxys werden leider nicht aus der DWG entfernt. Sind offenbar aus ADT. Meldung 3 Anwendungen AEC... mit jeweils 1 Proxy (ohne sichtbare Elemente). Vielleicht noch eine andere Idee ??

Gruß KBM

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

---

Versuch das mal:

(defun c:KillProxy (/ *error* ss i n proxy)
  (vl-load-com)
  (defun *error* (error)
    (vla-endundomark *doc*)
    (cond ((not error))
          ((wcmatch (strcase error) "*QUIT*,*CANCEL*"))
          (1 (princ (strcat "\nERROR: " error)))
          ) ;_ end of cond
    (princ)
    ) ;_ end of defun
  (or *acad* (setq *acad* (vlax-get-acad-object)))
  (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*)))
  (vla-endundomark *doc*)
  (vla-startundomark *doc*)
  (or (and (setq i 0
                n 0
                ) ;_ end of setq
          (setq ss (ssget "X" '((0 . "*PROXY*"))))
          (while (< i (sslength ss))
            (setq proxy (vlax-ename->vla-object (ssname ss i)))
            (and (not (vl-catch-all-error-p
                        (vl-catch-all-apply 'vla-delete (list proxy))
                        ) ;_ end of vl-catch-all-error-p
                      ) ;_ end of not
                  (setq n (1+ n))
                  ) ;_ end of and
            (setq i (1+ i))
            ) ;_ end of while
          (setq n-b(search-Blocktable))
          (setq n (+ n n-b))
          (princ (strcat "\nDeleted " (itoa n) " proxy objects."))
          ) ;_ end of and
      (princ "\nNo proxy objects found.")
      ) ;_ end of or
  (command "_regenall")
  (*error* nil)
  ) ;_ end of defun

(defun search-Blocktable (/ i EARX_BTAA elem elist elem_vor)
  (setq EARX_BTAA (tblnext "BLOCK" T)
        elist    nil
        i 0
        ) ;_ end of setq
  (while
    (/= EARX_BTAA nil)
    (setq elem (cdr (assoc -2 EARX_BTAA)))
    (while (/= elem NIL)
      (cond
        ((wcmatch (cdr (assoc 0 (entget elem))) "*PROXY*")
                  (vla-Delete(vlax-ename->vla-object elem))
            (setq elem elem_vor)
          ) ;_ end of if
        ) ;_ end of cond
      (setq elem_vor elem
            elem (entnext elem))
      ) ;_ end of while
    (setq EARX_BTAA (tblnext "BLOCK"))
    ) ;_ end of while
  i
  )

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

Servus,

hab gerade CADconv Suite 2003 von Kazmierczak bekommen.
Unter Bereinigungsfunktionen steht was von wegen "Proxys in
einfache Elemente zerlegen". Mußt halt bei Interresse mal gucken. www.dxf.de Da bekommst ne Version die 7 Tage laufen müßte.

Gruß Ralle

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

Wir dürfen jetzt nur nicht den Sand in den Kopf stecken!

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

---

@Cadwisel

Topp & und spitze  2*10 U's
Solche infos sind gold wert !

machts gut

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

Rechtschreibfehler sind im Preis enthalten und können nicht einzeln zurückgegeben werden.

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