| |
| 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: Felder (407 mal gelesen)
|
CADBasti Mitglied
Beiträge: 91 Registriert: 18.09.2006 Acad 2006
|
erstellt am: 31. Mrz. 2008 09:28 <-- editieren / zitieren --> Unities abgeben:
HAllo Zusammen ich habe in einer Zeichnung in der Draufsicht im Raster von ca. 2,0m Pfosten für ein Geländer gezeichnet Nun wollte ich die 65 Felder zwischen den pfosten mit 1 - 65 beziffern Ich habe über den Befehl Reihe das erste Feld mit 1 Beziffert und 65 Spalten gemacht Nun habe ich über den einzelnen Feldern eine 1 Nun müsste ich jede Zahl ändern Geht es auch evtl einfacher? Gruss CADBasti
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hilda Mitglied
Beiträge: 11 Registriert: 18.10.2007 Windows XP 2GB RAM Autocad Civil 3D 2007 SP 3 VestraCad Build 028
|
erstellt am: 31. Mrz. 2008 11:17 <-- editieren / zitieren --> Unities abgeben: Nur für CADBasti
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 31. Mrz. 2008 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für CADBasti
|
CADBasti Mitglied
Beiträge: 91 Registriert: 18.09.2006 Acad 2006
|
erstellt am: 31. Mrz. 2008 12:21 <-- editieren / zitieren --> Unities abgeben:
;====================================================================== ; TEXT hochzählen ;====================================================================== (defun c:hz (/ prefix nr ant ipt th schtil ) (setq prefix (getstring "\nTextprefix: ") nr (if (setq ant (getint "\nStartnummer <0>")) (1- ant) 0 ) schtil (getvar "textstyle") ) (while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (1+ nr))) ":"))) (entmake (list '(0 . "TEXT") '(410 . "Model") (cons 10 ipt) (cons 40 1) ; Texthöhe (cons 1 (strcat prefix (itoa nr))) '(50 . 0.0) (cons 41 0.75) ; Breitenfaktor (cons 7 schtil) (cons 11 ipt) ) ) (command "_move" (entlast) "" ipt pause) ) ) kann ich denn in dem Lisp die Texthöhe verändern? Gruss CADBasti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM ATI FirePro V (FireGL V) Graphics Adapter Treiberversion: 15.201.1151.1008
|
erstellt am: 31. Mrz. 2008 12:59 <-- editieren / zitieren --> Unities abgeben: Nur für CADBasti
|
CADBasti Mitglied
Beiträge: 91 Registriert: 18.09.2006 Acad 2006
|
erstellt am: 31. Mrz. 2008 13:09 <-- editieren / zitieren --> Unities abgeben:
|
Hilda Mitglied
Beiträge: 11 Registriert: 18.10.2007 Windows XP 2GB RAM Autocad Civil 3D 2007 SP 3 VestraCad Build 028
|
erstellt am: 31. Mrz. 2008 16:30 <-- editieren / zitieren --> Unities abgeben: Nur für CADBasti
@AsSchu Find ich super mit den Expresstools, man lernt eben nie aus!!! @CADBasti Bin leider im lispeln 'ne Niete, aber wieso probierst Du's nicht einfach aus, sind doch nur 2 mögliche Werte? ------------------ Je genauer Du planst, desto härter trifft Dich der Zufall! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADBasti Mitglied
Beiträge: 91 Registriert: 18.09.2006 Acad 2006
|
erstellt am: 31. Mrz. 2008 16:38 <-- editieren / zitieren --> Unities abgeben:
|
Hilda Mitglied
Beiträge: 11 Registriert: 18.10.2007 Windows XP 2GB RAM Autocad Civil 3D 2007 SP 3 VestraCad Build 028
|
erstellt am: 01. Apr. 2008 07:37 <-- editieren / zitieren --> Unities abgeben: Nur für CADBasti
Moin, in dem Beitrag aus dem Du das Lisp kopiert hast, steht doch ganz genau drin, dass die 1 die Texthöhe ist. Du musst das Lisp neu laden, nachdem Du die Texthöhe geändert hast, dann funktioniert es. ------------------ Je genauer Du planst, desto härter trifft Dich der Zufall! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |