| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Felder (406 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 |
Foren auf CAD.de (alle Foren)
| 
