---

Hallo

Möchte einen Text mittels Lisp erzeugen, um die Texthöhe und Stil vorzudefinieren. Den Text selbst soll der User dann wie gewohnt eintippen und dabei soll die Multifunktionsleiste auf den Texteditor umschalten. Soweit schaffe ich es mit folgender Befehlsreihenfolge:
(initdia "mtext")
(command "_mtext" pause "_s" "textstil" "_h" hoehe)

Nun möchte ich jedoch auch, dass ich für die Erstellung des Textes nicht beide Eckpunkte antippen muss, sondern nur den oberen Rechten Punkt antippe und dass ich anschliessend den Text eintippen kann. Dies hatte ich in Autocad 2009 folgendermassen gelöst:
(initdia "mtext")
(command "_mtext" pause "_s" "textstil" "_h" hoehe "" "_w" "")

Dabei wird nun leider, ab Autocad 2010, das initdia ignoriert, und die Multifunktionsleiste bleibt auf dem Menü Start. Ich habe leider keine Idee wie ich diese Befehlsreihenfolge anders realisieren könnte. Möchte auch den Aufruf über Lisp belassen, weil anschliessend noch eine Anpassung bzgl. Layer ebenfalls mittels Lisp durchgeführt wird.

Bitt um Anregungen wie ich mein Problem lösen kann.

mfg Kamehama

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

---

Sicher das dies SO in irgendeiner Acad-Version lief 

(command "_mtext" pause "_s" "textstil" "_h" hoehe "" "_w" "")

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Sorry

Habe beim verallgemeinern vom Textstil und Höhe leider einen kleinen Fehler eingebaut.
So sollte es klappen. Allerdings mit den vorhin beschriebenen Fehlern.

(setq textstil "standard")
(setq hoehe "5")
(initdia)
(command "_mtext" pause "_s"  textstil  "_h" hoehe "_w" "")

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

---

ok, nach der Korrektur des Schreibfehlers: Lasse das Initdia mal weg, ich denke das meinst du ! (es wird nämlich garnicht ignoriert, es regelt die Sache aber anders herum wie früher  )

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Leider klappts ohne initdia auch nicht.
Ohne initdia wird nicht mal eine Voransicht des erstellten Textes gemacht.

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

---

so ?

(setq textstil "standard")
(setq hoehe 5)
(initdia)
(command "_mtext" (setq P(getpoint "\nunten Links:"))  "_st"  textstil  "_h" hoehe (mapcar '+ P (list (* 5 Hoehe) Hoehe 0)))

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

ok, JETZT habe ich dich verstanden, du meinst die Einblendung der (Ribbon)Gruppen
für die MText-Bearbeitung.. [Gruppen: Stil,Formatierung,Absatz,Einfügen,Optionen,schließen]

Ich konnte das Problem nachvollziehen, falls ich Lust&Zeit finde schau ich mal nach,
spontan fällt mir aber nichts dazu ein.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Danke für euere Bemühungen

Ich hätte gerne dass die Multifunktionsleiste (Ribbon) auf die, sonst verborgene, Registerkarte "Texteditor" umschaltet.
Ich kann mir auch vorstellen, dies manuell über Lisp oder VBA zu machen, allerdings habe ich da auch keine Ahnung wie ich dies machen könnte.

@CADium  Leider auch dasselbe Ergebnis wie mit meinem Code.
@cadffm  Genau das ist mein Anliegen, Danke

[Diese Nachricht wurde von kamehama am 16. Dez. 2009 editiert.]

[Diese Nachricht wurde von kamehama am 16. Dez. 2009 editiert.]

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

---

Hi,

ich habe mal kurz nachgeschaut. Über LISP oder ActiveX scheint es keine dokumentierte Möglichkeit zu geben, auf das Ribbon zuzugreifen.

Was bleibt wären zwei Workarounds:
1. Vorher die Systemvariable MTEXTTOOLBAR auf 1 setzen. Dadurch wir der altbekannte Werkzeugkasten eingeblendet.
2. mit der Methode SendCommand arbeiten. Und damit's nicht zu unübersichtlich wird und sicherer läuft, sollten die verwendeten Variablen im Vorfeld gesetzt und abgefragt sein. So oder ähnlich:

Code:

---

(setvar "TEXTSTYLE" "Standard"); Horror
(setq hoehe 5)
(setq P (getpoint "\nunten Links:"))
(vlax-invoke-method
  (vlax-get-property
    (vlax-get-acad-object)
    'ActiveDocument)
  'SendCommand
  "_mtext
  !P
  _h
  !hoehe
  (mapcar '+ P (list (* 5 hoehe) hoehe 0)) "
  )

---

Gruß
CADchup

------------------
CADmaro.de

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

---

Danke, das ist genau das was ich erreichen wollte.
Nun habe ich nur noch das Problem,  dass die nachfolgenden Befehle in meiner Funtion leider nicht mehr ausgeführt werden, weil der Befehl nach meiner Texteingabe abgebrochen wird.

mfg Kamehama

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

---

RIB_Tabact.zip

Hallo Kamehama!

"Ich hätte gerne dass die Multifunktionsleiste (Ribbon) auf die, sonst verborgene, Registerkarte "Texteditor" umschaltet."

-> Das ist nur über die API möglich -> im Anhang stelle ich Dir
  die RIB_Tabact.dll rein, mit der es möglich ist, einen Tab
  direkt über den Namen zu aktivieren (auch verborgene)
  ->z.b. Befehl: (Ribtabact "Texteditor")
  - mit Klammern, Tabname in Anführungszeichen.

Der Befehl: Ribtablist  listet alle im Ribbon vorhandenen Tabs auf.

Der C#-Quellcode ist beigefügt und Du kannst ihn, wenn notwendig,
an Deine Bedürfnisse anpassen.

RIB_Tabact.dll mit Befehl: netload laden, dann stehen die 2 Befehle
zur verfügung. (Benützung auf eigene Gefahr)

Gruß Claudio

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