---

Liebe Forumsteilnehmer !

Je nach selektiertem Objekt, kommen ja verschiedene Kontextmenüs

z.B.: Text selektiert , rechte Maustaste gibts es den Menüpunkt "Text bearbeiten"

das wird in den POP500 und aufwärts definiert.
Kann man das bei selektierten INSERTS auch auf den Blocknamen ausweiten ?

ich habe bei meiner applikation blöcke die mit Blocknamen 72BN* beginnen (das sind Büromöbel , Tische schränke usw) und welche die mit 72BT* beginnen (das sind Trennwände)

für diese 2 Arten von Blöcken gib es verschiedene Programme zum Manipulieren dieser Teile. Jetzt möchte ich wenn ein 72BN* oder ein 72BT* Block selektiert ist ein anderes Kontxetmenü.

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

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

---

Also schnell die ACADhilfe durchgelesen und da steht das die Objektspez. Menüeinträge hinzukommen wenn
1. (nur) EIN Objekt markiert ist.
2. wenn ein Objekt-Menüeintrag für dieses Objekt existiert.

Beim Vergleich mit Objekt-MenüŽs wird geprüft um was für ein Objekt es sich handelt (gc 0) [Ausnahme bei INSERTŽs]
-und auf nichts anderes wird geprüft!-

Soll bedeuten: Nein, kann man nicht.

------------------
- Sebastian -

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

---

schade , aber hab ich mir eh so gedacht.

na werd mal testen ob ichs mit nem mouse-reaktor (beginrightclick)
mit auswertung des impl. Auswahlsatzes und (menucmd) irgendwie hinbiegen kann
glaubs aber eher nicht

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

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

---

wand.jpg moebel.jpg

hab jetzt mal ein bisschen gebastelt

(vlr-mouse-reactor nil '((:vlr-beginRightClick . rclick)))
(defun rclick ( a1 a2 / ss en ed na )

  (if (and (setq ss (ssget "_i"))
  (= (sslength ss) 1)
  (setq en (ssname ss 0))
  (setq ed (entget en))
  (= (cdr (assoc 0 ed)) "INSERT")
  (setq na (cdr (assoc 2 ed)))
      )
      (cond ((wcmatch na "72BN*") (menucmd "P=POP600") (menucmd "P=*"))
    ((wcmatch na "72BT*") (menucmd "P=POP601") (menucmd "P=*"))
      )
  )
  nil
)

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

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