---

bem_aenderung.JPG

Hallo,
ich habe mir eine Bem. Stil erstellt damit ich gleich die komplette Bem. wenden kann. Nun wollte ich der vollständigkeitshalber in ACAD mein befehl einfügen unter (auf Bem. klicken > rechte Maustaste > unter wiederholen) mein lisp Zeile (Befehl) Bem.wenden einfügen. Zwischen wiederholen und Position Maßtext.
Aber Wie mache ich das ?
Bitte schaut mal im Anhang auf dem Bild ! evtl. versteht ihrs dann   

Gruß Pally

[Diese Nachricht wurde von Kleiner_pally am 20. Jul. 2004 editiert.]

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

---

aktuelle MNU/MNS ...

***POP504
**OBJECTS_DIMENSION
[Kontextmenü für Bemaßungsobjekte]
.
.
.
<< hier kommt deine Erweiterung rein >>
.
.
.
.
.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

dim.gif

hier eintragen

siehe Anhang

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

---

Servus

Hab meine Änderungen erst nach dem Eintrage
----------------------------------------------------
ID_DimSty9       [<-&Andere...]^C^C_aidimstyle _O
----------------------------------------------------

Da sonst beim Kontextmenü Problem auftraten (wurde nicht alles angezeigt)

PS.: Wie meinst du das den Bemstil wenden ? Würde mich auch interessieren.

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P. 

[Diese Nachricht wurde von Bernd P am 20. Jul. 2004 editiert.]

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

---

vorschlag.JPG

Hallo Bernd P,
anbei das Bild mit meiner Idee.
Evtl. weißt du jetzt was ich meine 
Das mit dem Kontextmenü hat super geklappt danke euch für die schnelle hilfe !

Gruß pally

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

---

Ja sowas such ich auch

hast du das mit Umstellung des Bemassungstiles oder durch Lisp erreicht?

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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

---

Hallo Bernd das umdrehen selber habe ich durch eine Lisp erreicht aber das einstellen von dem Bemaßung müsstest du dann in den Bem.Stilen selber machen !
Fals du interesse ander Lisp hast kann ich sie gerne hier mal einfügen.

Gruß pally

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

---

Jau wäre gut

Hab nämlich das Prob das er die benutzerspezifischen Pfeilspitzen "umdreht" (so wie bei deinem Anhang).

Hab selber schon herumgebastelt, ein Ansatz von mir war die Pfeilspitzen zu tauschen, leider sind meine Lispkenntnisse dafür etwas zu gering.

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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

---

so hier die Bem. wend lisp  :)

vl-load-com)
(defun c:BEMWEND(/)
  (abdn:switch_dim_arrowhead_block)
  (princ)
) 
 
(defun bemwend:switch_dim_arrowhead_block ( / )
  (setq satz (ssget (list (cons 0 "DIMENSION"))))
  (setq n -1)
  (repeat (if satz (sslength satz) 0)
    (setq obj (vlax-ename->vla-object (ssname satz (setq n (1+ n)))))
    (setq block1 (vla-get-arrowhead1block obj))
    (setq block2 (vla-get-arrowhead2block obj))
    ;;
    (cond
      ((not (= (type block1) 'STR)))
      ((= (strcase block1) "BEM_STRICH1")
      (vla-put-arrowhead1block obj "BEM_STRICH2")
      )
      ((= (strcase block1) "BEM_STRICH2")
      (vla-put-arrowhead1block obj "BEM_STRICH1")
      )
      (T ;|Kein Block im ArrowHead|
    )
    (cond
      ((not (= (type block2) 'STR)))
      ((= (strcase block2) "BEM_STRICH1")
      (vla-put-arrowhead2block obj "BEM_STRICH2")
      )
      ((= (strcase block2) "BEM_STRICH2")
      (vla-put-arrowhead2block obj "BEM_STRICH1")
      )
      (T ;|Kein Block im ArrowHead|
    )
  )
  (princ)
) 

Gruß pally
 

[Diese Nachricht wurde von Kleiner_pally am 21. Jul. 2004 editiert.]

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

---

Servus

kann sein das da noch was fehlt

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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

---

Servus hier nochmal ein bisschen geändert

Jetzt ist egal wie die Blöcke heissen, sie werden einfach gedreht

(vl-load-com)
(defun c:BEMWEND(/)
  (abdn:switch_dim_arrowhead_block)
  (princ)
) 
 
(defun abdn:switch_dim_arrowhead_block ( / )
  (setq satz (ssget (list (cons 0 "DIMENSION"))))
  (setq n -1)
  (repeat (if satz (sslength satz) 0)
    (setq obj (vlax-ename->vla-object (ssname satz (setq n (1+ n)))))
    (setq block1 (vla-get-arrowhead1block obj))
    (setq block2 (vla-get-arrowhead2block obj))
    ;;
    (cond
      ((not (= (type block1) 'STR)))
      ((= (strcase block1) (strcase block1))
      (vla-put-arrowhead1block obj (strcase block2))
      )
      ((= (strcase block1) (strcase block2))
      (vla-put-arrowhead1block obj (strcase block1))
      )
      (T ;|Kein Block im ArrowHead|  
    )
    (cond
      ((not (= (type block2) 'STR)))
      ((= (strcase block2) (strcase block1))
      (vla-put-arrowhead2block obj (strcase block2))
      )
      ((= (strcase block2) (strcase block2))
      (vla-put-arrowhead2block obj (strcase block1))
      )
      (T ;|Kein Block im ArrowHead|  
    )
  )
  (princ)
)

die  dur Strichpunkt und klammer ersetzen (weis nicht wieso das deaktiviernen der Smilie nicht gefunkt hat
------------------
schöne Grüsse aus der Steiermark  Bernd P. 

Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 09. Aug. 2004 editiert.]

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