---

Hallo zusammen,

ich habe hier eine ganze Menge Zeichnungen mit gesprengten Bemaßungen.
Die Bemaßungspfeile sind gefüllt und werden im Acad als Körper angezeigt.
Kennt jemand eine Möglichkeit wie ich es anstellen könnte, dass die Füllung der Pfeile verschwindet?
Die Pfeile sollen also nur noch als Striche dargestellt sein.

Viele Grüße
Ralph

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

---

Hallo Ralph,

wo soll denn geantwortet werden
hier oder hier ?   

Du sprichst von Körpern ?? Du meinst Flächen, oder ?

Wilfried Stelberg

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

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

---

Sorry, aber mein Browser hat nicht weitergeleitet und dann hab ich den ersten Beitrag nicht mehr gefunden und nochmal gepostet.

In den Objekteigenschaften zeigt er Körper an.
Löse doch mal eine Bemaßung auf und klicke auf den Bemaßungspfeil.
Im Eigenschaftenfenster wird Körper mit Erhebung 0 angezeigt.

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

---

Hallo Ralph,

reicht es nicht wenn du vor dem Auflösen der Bemassung die Eigenschaften der "Pfeile" von geschlossen/gefüllt auf offen stellst.
Dann wird der Pfeil zum Block.

Wilfried Stelberg

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

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

---

Zu dem was in der deutschen AutoCAD Version "Körper" sind und wie man sie wegbekommt, hier mal ein etwas älterer, aber immer noch lesenswerter Beitrag: http://ww3.cad.de/foren/ubb/Forum54/HTML/008331.shtml#000011

(Gruß an mapcar, wo immer er sich jetzt auch aufhält)

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Ralph,

hab nochmal nachgeschaut.

Code:

---

    Dim insPkt As Variant
    Dim Solid As AcadSolid
    ThisDrawing.Utility.GetEntity Solid, insPkt, Chr(10) & "Bemassungspfeil wählen: "

    insPkt = Solid.Coordinates
    Debug.Print UBound(insPkt)
    ' Pfeilspitze
    If insPkt(6) = insPkt(9) And insPkt(7) = insPkt(10) Then
      Debug.Print "Pfeilspitze bei " & insPkt(6) & " / " & insPkt(7)
    End If

---

Du bräuchtest noch die Richtung die du aus den Restkoordinaten herausbekommst. (R1 = thisdrawing.Utility.AngleFromXAxis (StartPkt,EndPkt).
Damit könntest du deinen Block an der richtigen Stelle und im richtigen Winkel einfügen.

Wilfried Stelberg

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

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