| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Z-Koordinaten (2012 mal gelesen)
|
Kathrin IKD Mitglied Bauzeichner
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Kathrin IKD](/foren/ubb/pmimages/gbu.gif) Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 14. Apr. 2008 09:52 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
hallo an alle, ich habe in meiner acad-zeichnung einen block dem unter anderem eine z-wert zugeordnet ist. nun meine frage: kann man diesen z-wert automatisch dranschreiben lassen? danke euch schon vorab für eure hilfe! lg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
captainfritz Mitglied Bauingenieur/Wasserbau
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für captainfritz](/foren/ubb/pmimages/gbu.gif) Beiträge: 270 Registriert: 07.05.2004 AutoCAD 2005/2006/2007 Map, AutoTerrain, bbsoft, Geotools, Windows XP
|
erstellt am: 14. Apr. 2008 10:10 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Kathrin IKD
was heisst zugeordnet? Hat der Block einen "Position z" Wert hilft dir folgendes lisp. Die Texthöhe kannst du in der lsp direkt ändern. (hier 0.5) (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 0.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) ) ) )
------------------ mit CADzerischen Grüßen Matthias ![](/foren/ubb/smokin.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
j-sc Ehrenmitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für j-sc](/foren/ubb/pmimages/gbu.gif) Beiträge: 1838 Registriert: 14.07.2003 W7 64Bit intel core I7 2,8GHz / 4GB ATI FIRE PRO V5800 acad2011 acad2015 acad2018 Athena Expresstools
|
erstellt am: 14. Apr. 2008 10:13 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Kathrin IKD
High, hat der Block nur ein Attribut, und soll da einfach nur der Z-Wert eingetragen werden dann funktioniert das (bei 1ZE=1mm und Höhen in m): Code: (command "_-insert" BLOCKNAME (setq TESTPOINT (getpoint "\nPunkt wählen: ")) SKALIERFAKTOR "" "" (rtos (/ (caddr TESTPOINT) 1000.000) 2 3))
------------------ Ciao J-SC ... geht's vielleicht doch? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kathrin IKD Mitglied Bauzeichner
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Kathrin IKD](/foren/ubb/pmimages/gbu.gif) Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 14. Apr. 2008 10:22 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, die lisp ist super und funktioniert auch. leider habe ich das problem, dass ich ca. 12.000 punkte beschriften muss. und wenn ich alle einzeln anklicken muss, ist das ziehmlich aufwendig. gibt es eine Möglichkeit, alle Punkte "automatische" beschriften zu lassen? danke für Hilfe.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
![](https://ww4.cad.de/Ads/adview.php?what=zone:16178&n=aee1ae73)
| Verkehrsplaner (w/m/d) | Waiblingen (ca. 57 000 Einwohner) liegt im Zentrum der Region Stuttgart, eine der bedeutenden Wirtschaftsregionen in Deutschland. Die Kreisstadt des Rems-Murr-Kreises verfügt über ein breites Kultur-, Schul- und Freizeitangebot sowie attraktive Einkaufsmöglichkeiten und bietet damit sämtliche Vorzüge einer modernen Mittelstadt mit hoher Lebensqualität. Die Stadt Waiblingen sucht einen ... | Anzeige ansehen | Feste Anstellung |
|
Kathrin IKD Mitglied Bauzeichner
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Kathrin IKD](/foren/ubb/pmimages/gbu.gif) Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 14. Apr. 2008 10:35 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
habe eine lsp von http://www.cad-huebner.de/lisp.htm#Z2TXT im forum gefunden gefunden. danke nochmal! (DEFUN C:Z2TXT ( / ANZAW1 ANZH AW1 ENTINSERT EPKT I TEMP Z) (PROMPT (STRCAT "\nZ2TXT.lsp - Objekte mit Höhentext/Z-Koordinate) versehen - V1.2 1999-2004" "\n(c) Ing.- Büro Hübner, info@CAD-Huebner.de" "\nTEXTSIZE = " (RTOS (GETVAR "TEXTSIZE")) ) ;_ Ende von STRCAT ) ;_ Ende von PROMPT (SETQ AW1 (SSGET) ; Objekte wählen Anzaw1 (SSLENGTH AW1) ; Anzahl der Objekte in AW1 AnzH 0 ; Anzahl der geänderten Elemente I 0 ; Zähler ) ;_ Ende von SETQ (INITGET 6) (Prompt "\nAugenblick, ich ich prüfe Objekte...") (while (> Anzaw1 0) (setq temp (ssname AW1 (setq AnzAw1 (1- AnzAW1))) entinsert (entget temp) epkt (cdr (assoc 10 entinsert)) z (RTOS (NTH 2 epkt) 2 2) ) ;_ Ende von setq (PRINC ".") (COMMAND "_MTEXT" (LIST (+ (* 0.75 (GETVAR "TEXTSIZE")) (NTH 0 epkt)) (+ (* 0.75 (GETVAR "TEXTSIZE")) (NTH 1 epkt)) 0.0 ) ;_ Ende von LIST "_justif" "_ML" ; Positionierung Mitte zentriert "_WID" 10.0 ; konstante Textfeldbreite - ist einfacher zu picken z "" ) ;_ Ende von COMMAND
) ; ende while (princ " Objekte beschriftet. ") (princ "Z2TXT beendet.") (PRIN1) ) ; ende defun [Diese Nachricht wurde von Kathrin IKD am 22. Apr. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |