| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Positionsnummern (1902 mal gelesen)
|
besele Mitglied
Beiträge: 62 Registriert: 14.07.2011
|
erstellt am: 13. Sep. 2011 19:26 <-- editieren / zitieren --> Unities abgeben:
Hallo habe hier eine LISP Datei gefunden, die aber nicht richtig funktioniert. werden immer nur Nullen geschrieben?? (Defun C:ZAHLEN () (START) (prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...") (Setq A (Getint "\nStartnummer: ")) (Setq E 1) (Setq I 0) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch"))) (While(/= P1T "A") (Setq F (Itoa A)) (Command "Text" "z" P1 "" I F) (Setq A (+ A E)) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch"))) ) (end) (Princ) ) (defun *error* (em) (end) (princ "\nAbbruch : ") (princ em) ) (defun end() (if clay (progn (command "LAYER" "SE" clay "") (setvar "BLIPMODE" bmod) (setvar "CMDECHO" 1) (setvar "MENUECHO" mech) (setvar "OSMODE" mosm) (setvar "SNAPMODE" msna) (setvar "ORTHOMODE" mort) ) ) (princ) ) (defun start() (setq bmod (getvar "BLIPMODE") mosm (getvar "OSMODE") msna (getvar "SNAPMODE") mort (getvar "ORTHOMODE") clay (getvar "CLAYER") mech (getvar "MENUECHO") ) (setvar "BLIPMODE" 0) (setvar "CMDECHO" 0) (setvar "MENUECHO" 3) (setvar "OSMODE" 0) (setvar "SNAPMODE" 0) (setvar "ORTHOMODE" 0) (command "LAYER" "M" "Text" "Fa" "1" "" "") ) kann mir vielleicht jemand helfen! Vielleicht geht es auch das "1.1" oder "Pos.1" zur Auswahl steht und der Text mit einer Ellipse eingekeist wird. mfg besele Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 13. Sep. 2011 20:06 <-- editieren / zitieren --> Unities abgeben: Nur für besele
|
besele Mitglied
Beiträge: 62 Registriert: 14.07.2011
|
erstellt am: 14. Sep. 2011 09:45 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Sep. 2011 09:54 <-- editieren / zitieren --> Unities abgeben: Nur für besele
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 14. Sep. 2011 09:59 <-- editieren / zitieren --> Unities abgeben: Nur für besele
Zitat: Original erstellt von besele: Hallo habe hier eine LISP Datei gefunden, die aber nicht richtig funktioniert. werden immer nur Nullen geschrieben??
nullen? bei mir geht es Pos. oder 1. als Prefix --> hinter der promt-Zeile (Setq pre (Getstring "\nPrefix: ")) rein... und die command-Zeile mit (Command "Text" "z" P1 "" I (strcat pre F)) austauschen... ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 14. Sep. 2011 10:07 <-- editieren / zitieren --> Unities abgeben: Nur für besele
|
besele Mitglied
Beiträge: 62 Registriert: 14.07.2011
|
erstellt am: 14. Sep. 2011 11:42 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Sep. 2011 11:51 <-- editieren / zitieren --> Unities abgeben: Nur für besele
|
besele Mitglied
Beiträge: 62 Registriert: 14.07.2011
|
erstellt am: 14. Sep. 2011 13:06 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Sep. 2011 13:20 <-- editieren / zitieren --> Unities abgeben: Nur für besele
|
besele Mitglied
Beiträge: 62 Registriert: 14.07.2011
|
erstellt am: 16. Sep. 2011 10:29 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CAD-Huebner: Das Makro funktioniert bei besele evtl. nicht, da ein Textstil mit einer einer fest eingestellten Texthöhe (abweichend von 0.0) aktiv ist. Dann hat der Befehl TEXT eine Option weniger in der Befehlsanfrage.
Hallo wo muß ich das den ändern das es funkt. Wäre mir sehr geholfen damit mfg besele Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 sw: Win7-x64 Office 365 ProPlus C3D (& LT ) ET; DACH; Extensions ------------------- hw: FX3800 i5 CPU 670 8GB RAM
|
erstellt am: 16. Sep. 2011 10:45 <-- editieren / zitieren --> Unities abgeben: Nur für besele
|