---

26-10-27_Bemassung-unsichtbar.dwg

Hallo zusammen.
Im Anhang befindet sich eine DWG mit einer Bemassung.
Die Bemassung ist vorhanden, aber nicht zu sehen.
Wenn man die Bemassung kopiert, wird eine Bemassung mit 0-Länge daraus.
Mir ist diese leere Bemassung erst aufgefallen, nachdem ein Lisp nicht mehr durch gelaufen ist.

Code:

---

(if (ssget "_X" (list '(0 . "DIMENSION")(cons 410 (getvar 'CTAB))))(progn (initcommandversion)(command "_.EXPLODE" "_P" "" "_.CHPROP" "_P" "" "_Layer" "_BEMASSUNG" "")))

---

Er findet eine Bemassung die aber nach explode komplett verschwindet, CHPROP _P findet nichts mehr und das Lisp crasht.
Ich habe lange gesucht die Bemassung in einem Script zu Filtern und vorher zu löschen, aber nichts gefunden.

Hat jemand von euch eine Idee?

------------------
Gruß
Manuel

[Diese Nachricht wurde von Manuel486 am 27. Okt. 2026 editiert.]

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

---

Teste das mal...

Code:

---

(defun c:expldims (/ oldQa wahl)
  (vl-load-com)
  (setq oldQa (getvar "QAFLAGS"))
  (if(not(tblobjname"Layer" "Bemassung"))
    (vla-add (vla-get-layers
                          (vla-get-activedocument
                            (vlax-get-acad-object)
                          )
                        )
                        "Bemassung"
                )
  )
  (mapcar '(lambda (x / bemobjs item)
            (vl-catch-all-apply
                'vla-put-color
                (list (vlax-ename->vla-object x) 2)
              )
            (setvar "QAFLAGS" 1)
                  (command "._explode" x)
                  (setvar "QAFLAGS" oldQa)
            (if (setq bemobjs (ssget "_P"))
              (setq bemobjs (mapcar 'vlax-ename->vla-object
                                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex bemobjs)))
                            )
              )
            )
            (foreach item bemobjs
              (vl-catch-all-apply
                'vla-put-layer
                (list item "Bemassung")
              )
            )
          )
    (if (setq wahl (ssget "_X" (list '(0 . "DIMENSION")
                                    (cons 410 (getvar 'CTAB))
                              )
                  )
        )
      (vl-remove-if 'listp (mapcar
                            'cadr (ssnamex wahl)
                          )
      )
    )
  )
(setvar "QAFLAGS" oldQa)
)

---

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

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

---

Der zugehörige Bemaßungsblock enthält keine Objekte.
Warum das so ist ... keine Ahnung.

Wenn du vor Explode checkst ob Objekte im Block sind kannst du ggf. einen anderen Stil zuweisen und danach wieder den Stil zurückstellen. Dabei wird alles aktualisiert und die Bemaßung hat wieder Objekte.

Wenn du die Bemaßung nicht brauchst kannst du vor dem Zuweisen des Layers checken ob nach Explode Objekte da sind.

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

Gruß
Andreas

http://kraus-cad.de

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