| |
| 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 – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Nummerierung (394 mal gelesen)
|
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 AutoCAD 2004-2008 Autodesk Mechanical Desktop 2007 Inventor 11 Productstream Compass Windows XP Prof
|
erstellt am: 03. Feb. 2005 16:25 <-- editieren / zitieren --> Unities abgeben:
Kamm mir jemand sagen wie kann diese Code erweitern das die Zahlen in der Mitte des Kreises erscheinen. (defun C:Num (/ KREISRADIUS TXT_KORD TXT_KORD TXT_HOEHE TXT_XY START_NUMMER PKT) (setq KREISRADIUS 15.0) (setq TXT_KORD -2.0) (setq TXT_HOEHE 7.0) (setq TXT_XY (strcat "@" (rtos TXT_KORD 2 2) "," (rtos TXT_KORD 2 2))) (if (null START_NUMMER) (setq START_NUMMER (getint "\nStart Pkt-Nummer: ")) ) (setq PKT 't) (while PKT (setq PKT (getpoint (strcat "\nKoordinate für " (itoa START_NUMMER) " eingeben: " ) ) ) (if (/= PKT NIL) (progn (command "layer" "machen" "TEXT5" "") (command "_circle" PKT KREISRADIUS) (command "_text" TXT_XY TXT_HOEHE "0.0" START_NUMMER) (setq START_NUMMER (1+ START_NUMMER)) ) ;end progn ) ;end if );end while ) Gruß Bruno
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 03. Feb. 2005 16:31 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
ersetze mal die Zeile (command "_text" TXT_XY TXT_HOEHE "0.0" START_NUMMER) durch (command "_text" "p" "MZ" TXT_XY TXT_HOEHE "0.0" START_NUMMER) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
kist Mitglied
Beiträge: 78 Registriert: 20.01.2005 Acad 2012 Windows 7 64Bit
|
erstellt am: 03. Feb. 2005 16:38 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
ich glaube nicht ganz anstelle von CADmium s (command "_text" "p" "MZ" TXT_XY TXT_HOEHE "0.0" START_NUMMER) (command "_text" "p" "MZ" PKT TXT_HOEHE "0.0" START_NUMMER) oder (command "_text" "_J" "_MC" PKT TXT_HOEHE "0.0" START_NUMMER) ------------------ schöne Grüsse Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 AutoCAD 2004-2008 Autodesk Mechanical Desktop 2007 Inventor 11 Productstream Compass Windows XP Prof
|
erstellt am: 07. Feb. 2005 11:29 <-- editieren / zitieren --> Unities abgeben:
Es funktioniert perfekt aber ich hätte noch eine Frage. Wäre es möglich das die Zahlen mit einem Buchstaben erscheinen. Es soll nur ein Buchstabe sein und der soll konstant bleiben (z.B 1A, 2A...) nur die zahlen sollen sich ändern. Für eine Inspiration werde ich sehr dankbar!! Gruß Roy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 07. Feb. 2005 11:32 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
hier erweitern ungetestet) (command "_text" "_J" "_MC" PKT TXT_HOEHE "0.0" (strcat(itoa START_NUMMER)"A")) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 AutoCAD 2004-2008 Autodesk Mechanical Desktop 2007 Inventor 11 Productstream Compass Windows XP Prof
|
erstellt am: 07. Feb. 2005 12:06 <-- editieren / zitieren --> Unities abgeben:
|
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: 07. Feb. 2005 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
|