| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Cideon Sparify - der digitale Ersatzteilkatalog für alle, ein Webinar am 15.10.2024
|
Autor
|
Thema: Z-wert beschriften (822 mal gelesen)
|
TB3 Mitglied Dipl.-Ing.
Beiträge: 96 Registriert: 17.11.2004 Windows XP Pro CIVIL 3D 2008 VESTRACIVIL AMD ATHLON XP3000+ 1GB
|
erstellt am: 28. Feb. 2005 08:22 <-- editieren / zitieren --> Unities abgeben:
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 28. Feb. 2005 08:38 <-- editieren / zitieren --> Unities abgeben: Nur für TB3
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 28. Feb. 2005 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für TB3
Hallo Holger, ja, das ist möglich. Die folgenden Lispzeilen erledigen das für dich. (Fehlerabfang etc. fehlen) Code:
(defun c:InsZWert ( / ins zw pt inspt) (princ "\nBlock wählen: " ) (setq ins (entsel)) (if ins (progn (setq ins(car ins) zw (caddr(setq inspt (cdr(assoc 10 (entget ins))))) ) (initget 1) (setq pt (getpoint inspt "\nTexteinfügepunkt: ")) ;(mk:text LAYER STIL STARTPUNKT DREHW HÖHE BREITE TEXT (mk:text "0" "Standard" pt 0.0 2.5 1.0 (rtos zw 2 2)) ) ) (princ) )(defun mk:text (layer stil ipt w ho br wert /) (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(8 . "0") '(100 . "AcDbText") (cons 10 ipt) (cons 40 ho) (cons 1 wert) (cons 50 w) (cons 41 br) '(51 . 0.0) (cons 7 stil) '(71 . 0) '(72 . 0) '(11 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 0) ) ) )
------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland [Diese Nachricht wurde von Brischke am 28. Feb. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |