Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  entmake text

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:  entmake text (1269 mal gelesen)
fca_mi2
Mitglied
Bauingenieur


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

Beiträge: 505
Registriert: 10.01.2003

ACAD2018

erstellt am: 14. Apr. 2011 16:01    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

hi, irgendwie schaffe ich es nicht, einen text in einem gedrhten und verschobenen koordinatensystem richtig zu platzieren.

hier der code:

  (entmake (list
    '(0 . "TEXT")
    (cons 1 zeile)
    (cons 7 textstil)
    (cons 8 layername)
    (cons 10 p1)
    (cons 40 texthoehe)
    (cons 50 (* winkelgrad (/ 3.1415927 180)))
    (cons 62 farbnr)
    '(72 . 1)
    (cons 73 ausrichtung)
    (cons 11 ep)
    ))

------------------
MfG
Frank

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



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

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 - 2014
Arcibem
System:
Windows 2000, XP, NO VISTA
Internet-Startseite:
http://www.archi.de

erstellt am: 14. Apr. 2011 16:35    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 fca_mi2 10 Unities + Antwort hilfreich

Hallo Frank,
woher und wie kommen denn die Koordinaten in P1 zustande?
Schau Dir mal den Befehl TRANS an.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 14. Apr. 2011 editiert.]

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 14. Apr. 2011 20:28    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 fca_mi2 10 Unities + Antwort hilfreich

Problemunabhängig: Und nutze ruhig Pi statts 3,irgendwas zur Berechnung. Auf TRANS wurde ja schon verwiesen.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

fca_mi2
Mitglied
Bauingenieur


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

Beiträge: 505
Registriert: 10.01.2003

ACAD2018

erstellt am: 15. Apr. 2011 07:21    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

danke für die hilfe

hier noch ene weitere frage:

wie kann ich den winkel vom gedrehten benutzerkoordinatensystem ermitteln ?

------------------
MfG
Frank

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: 15. Apr. 2011 07:44    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 fca_mi2 10 Unities + Antwort hilfreich

Hallo Frank,
der Winkel des aktuellen BKS's in der XY-Ebenen läßt wie folgt berechnen:
(setq w (angle '(0.0 0.0 0.0)(getvar "UCSXDIR")))

Nachtrag:
Die Rückgabe von angle ist grundsätzlich in RAD, d.h. Du brauchst nicht mehr umzurechnen bezüglich der aktuellen Winkeleinheit, einfach in den GC 50 einsetzen.

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

Jörn
http://www.bosse-engineering.com

[Diese Nachricht wurde von joern bosse am 15. Apr. 2011 editiert.]

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

chris888
Mitglied
Technischer Zeichner


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

Beiträge: 141
Registriert: 11.11.2010

AutoCAD 2002, 2005, 2008, 09, 10, 11

erstellt am: 17. Apr. 2011 22:33    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 fca_mi2 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von fca_mi2:

  (entmake (list
     '(0 . "TEXT")
     (cons 1 zeile)
     (cons 7 textstil)
     (cons 8 layername)
     (cons 10 p1)
     (cons 40 texthoehe)
     (cons 50 (* winkelgrad (/ 3.1415927 180)))
     (cons 62 farbnr)
     '(72 . 1)
     (cons 73 ausrichtung)
     (cons 11 ep)
     ))


Hab hierzu mal ne reine Verständnisfrage:
Warum schreibt Frank hier manchmal (cons ....) und manchmal '(....) theoretisch würde es doch auch nur mit der 2 Methode funktionieren. Oder gibt es da einen Unterschied bei der Eingabe???

mfg chris

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

archtools
Mitglied



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

Beiträge: 823
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 17. Apr. 2011 23:13    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 fca_mi2 10 Unities + Antwort hilfreich

   
Zitat:
Original erstellt von chris888:
Hab hierzu mal ne reine Verständnisfrage:
Warum schreibt Frank hier manchmal (cons ....) und manchmal '(....) theoretisch würde es doch auch nur mit der 2 Methode funktionieren. Oder gibt es da einen Unterschied bei der Eingabe???

mfg chris


Du brauchst nur mal zu sehen, was das jeweils ergibt:
(setq hoehe 100)
(cons 1 hoehe)
und alternativ
'(1 hoehe)

Na, siehst Du den Unterschied?

'(1 2 3) ist dasselbe wie und nur eine verkürzte Schreibweise für (quote (1 2 3)). Das Quoten verhindert das, was Lisp normalerweise macht: Ausdrücke zu evaluieren. Du kannst (1 2 3) nicht direkt verwenden, weil Lisp Listen so zu evaluieren versucht, dass das erste Element ein gültiger Funktionsname ist, bzw genauer: selbst zu einer gültigen Funktion evaluiert, die dann auf den Rest der Liste angewendet wird. Bei (1 2 3) kommt demnach die Fehlermeldung, dass 1 kein gültiger Funktionsname ist.

Um Listen eingeben zu können, musst Du also verhindern, dass diese evaluiert werden, und das geht mit dem Quoten. Der Haken ist nun, dass so eine quotierte Liste überhaupt nicht evaluiert wird. Darin stehende Symbole wie Variablennamen werden also auch nicht evaluiert, sondern bleiben als Symbol in der Liste stehen. Du willst aber, dass in der Liste (1 hoehe) das Symbol hoehe als Variable zu 100 evaluiert wird, und dass dann die Liste (1 100) weiter verwendet wird. Also darfst Du nicht quoten, sondern musst die Liste aus ihren zukünftigen Eleemnten erst mal konstruieren, und das geht beispielsweise mit (list 1 hoehe). Mit cons erzeugt man aus zwei Elementen ein sogenanntes Dotted Pair, falls das zweite Element keine Liste ist.

Ein Dotted Pair ist eine besondere Form einer Liste, genau genommen die elementare Form einer Liste. Eigentlich ist nämlich jede Liste ein Dotted Pair aus dem CAR der Liste und dem CDR der Liste. Aber das führt für jetzt zu weit ...

Mehr findest Du bei Mapcar: http://www.autolisp-tutorial.mapcar.net/

[Diese Nachricht wurde von archtools am 17. Apr. 2011 editiert.]

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