| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Mal zum probieren Text erzeugen (1253 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 29. Jun. 2011 08:51 <-- editieren / zitieren --> Unities abgeben:
(defun c:zh () (command "_-text" (setq PKT (getpoint "\nPunkt wählen: ")) "" "" (strcat (rtos (caddr PKT) 2 3))) ) Ich stosse hier auf das Problem, dass der Text in manchen Zeichnungen gar nicht erzeugt wird "unknown command" usw. Weiss einer woran das liegen kann? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 29. Jun. 2011 09:12 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 29. Jun. 2011 09:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 29. Jun. 2011 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo Cadplayer, und dann ist noch zu beachten, dass je nach dem welcher Textstil aktuell ist, der Befehlsablauf für den Textbefehl unterschiedlich ist. Bei Textstilen mit vorgegebener Texthöhe entfällt diese Anfrage und man braucht ein Argument weniger. Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 29. Jun. 2011 09:29 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 29. Jun. 2011 09:36 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 29. Jun. 2011 09:47 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 29. Jun. 2011 11:21 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 29. Jun. 2011 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 29. Jun. 2011 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Alternative: Code:
(if(setq PKT (getpoint "\nPunkt wählen: ")) (entmake (LIST '(0 . "TEXT") (cons 8 (getvar"clayer")) (CONS 10 PKT) (cons 40 (getvar "textsize")) '(50 . 0.0) (CONS 1 (rtos (caddr PKT) 2 3)) ) ;_ end of LIST ) )
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 29. Jun. 2011 16:07 <-- editieren / zitieren --> Unities abgeben:
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 30. Jun. 2011 20:54 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hi, wenn das so ist, machen wir's doch komplett:
Code:
(vlax-invoke-method (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument ) 'ModelSpace ) ;Bereich für Text 'AddText "Bin ein Text." ; Textstring (vlax-3d-point '(0.0 0.0 0.0)) ; Einfügepunkt 3.5 ; Texthöhe )
------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Jun. 2011 21:50 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 30. Jun. 2011 22:05 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Menschmenschmensch. Es geht doch um's Prinzip. Gibt so viele, die mit ActiveX-Code noch Schwierigkeiten haben. Eine komplette AddText-Funktion, die auch den aktuellen Bereich analysiert, lenkt den Blick vom Wesentlichen ab. ------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 30. Jun. 2011 22:16 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|