Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Multitext in Lisp starten

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Multitext in Lisp starten (944 mal gelesen)
kist
Mitglied



Sehen Sie sich das Profil von kist an!   Senden Sie eine Private Message an kist  Schreiben Sie einen Gästebucheintrag für kist

Beiträge: 78
Registriert: 20.01.2005

Acad 2010
Windows XP SP3

erstellt am: 03. Aug. 2005 17:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


bild1a.jpg


bild2a.jpg

 
Hallo zussammen !

Wie kann ich in so einer Routine
den Befehl MTEXT (Absatztext)
starten, das die Abfrage ganz normal abläuft.

"ERSTE ECKE"
wie in Bild 1a

dann wie Bild 2a

dann kann ich schreiben
dann drück ich ok.

dann wird Lisp beendet.


(defun c:kist_text ()
  (startErrorHandler "Multitext erstellen" 'T
  '(("CLAYER" . "TEXT")
    ("ORTHOMODE" . 0)
    ("TEXTSIZE" . 1)
    ("CECOLOR" . "256")
    )
  );Ende startErrorHandler von MAPCAR


  (setvar "CECOLOR" col) ;Farbe des Textes setzen (col aus Button)
  (setvar "TEXTSIZE" hg) ;Höhe des Textes setzen (hg aus Button)


  HIER SOLLTE (Command "MTEXT" ....) STARTEN
 
  (endErrorHandler) ;von MAPCAR
)

------------------
schöne Grüsse

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

mapcar
Mitglied
CADmin



Sehen Sie sich das Profil von mapcar an!   Senden Sie eine Private Message an mapcar  Schreiben Sie einen Gästebucheintrag für mapcar

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 03. Aug. 2005 23:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kist 10 Unities + Antwort hilfreich

Ich weiss ja nicht, was für dich "normal" ist...

Nee, "normal" ist das alles nicht. Das Verhalten von AutoCAD-Befehlen ist eindeutig vielfältiger als die Schöpfung: Da gibt es zwar Regenwürmer und Schmetterlinge, Flechten und Riesenmammutbäume, Grippeviren und Albatrosse - aber bei AutoCAD-Befehlen ist das Überraschungsmoment einfach größer.

Da gibt es welche mit Minuszeichen oder DD davor, es gibt welche, die kann man aus Lisp heraus nie oder nur eingeschränkt aufrufen, und schließlich gibt's welche, die sind wie Katharinasittiche: Immer freundlich. Dazu gehört auch MTEXT! Einfach aufrufen, ohne Minus usw.:

Code:

(defun test( / )
  (command "mtext" '(0 0) '(100 100)
          "Dies ist ein\n mehrzeiliger Text." "")
)

 

Was die Schriftgröße betrifft, würde ich mich nicht auf die Schöpfung verlassen, bei mir war's 2.5! Jedenfalls kann ich kein Problem feststellen.

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

kist
Mitglied



Sehen Sie sich das Profil von kist an!   Senden Sie eine Private Message an kist  Schreiben Sie einen Gästebucheintrag für kist

Beiträge: 78
Registriert: 20.01.2005

Acad 2010
Windows XP SP3

erstellt am: 04. Aug. 2005 08:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Sorry, ich glaube das ist nicht richtig rübergekommen was ich meine

ich möchte im Lisp den Befehl "_mtext" aufrufen.
dann kommen die Aufforderungen:

"Erste Ecke:"
"Gegenüberliegende Ecke oder [Höhe/Ausrichten/Zeilenabstand/Drehen/Stil/Breite]: "

und dann erscheint eben (siehe "bild2a.jpg"), wo ich meinen Text eingebe
dann mit OK beenden kann
und das Lisp fertig abarbeite.

Ich hoffe es ist klar was ich mit "NORMAL" meine

Danke schon mal

PS.: übrigens dein ERRORHANDLER passt bei mir perfekt.

------------------
schöne Grüsse

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 04. Aug. 2005 09:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für kist 10 Unities + Antwort hilfreich

vielleicht geht für Dich ja auch "fast normal", d.h. Du wirst aufgefordert die Eckpunkte des Mtextes zu wählen, danach kommt aber nicht  das Mtext-Editorfenster, sondern die Texteingaben werden über die Befehlseingabe eingegeben.
(defun test( / pkt1)
  (command "mtext" (setq pkt1(getpoint "\nerste Ecke wählen"))
  (getcorner pkt1 "\nzweite Ecke wählen")))

------------------
viele Grüße

Jörn

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz