Fortlaufende Nummernfolge in LT (Autodesk/AutoCAD LT)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Fortlaufende Nummernfolge in LT (1362 mal gelesen)

Fred Feuerstein
Mitglied
Projektant

Senden Sie eine Private Message an Fred Feuerstein

Schreiben Sie einen Gästebucheintrag für Fred Feuerstein

Beiträge: 101
Registriert: 01.09.2003

erstellt am: 17. Sep. 2003 09:45

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo zusammen!
Weiß jemand eine Möglichkeit unter Autocad Lt 2000i eine Fotlaufende nummerierung mit Diesel-Makro zu erzeugen? Unter Lisp kenne ich es schon, nur ist das mit einem Makro auch möglich?
Schön wäre ein Startwert und eine Nummernfolge von z.B 450.112, 450.113, 450.114 usw.
Danke im Voraus.

------------------
Manfred Sterkl
RWE Solutions Austria
Lastenstraße 19
2640 Gloggnitz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Grebe
Mitglied

Senden Sie eine Private Message an Grebe

Schreiben Sie einen Gästebucheintrag für Grebe

Beiträge: 536
Registriert: 16.12.2002

LT-2021, Civil3D-2021, BricsCAD V18
HP-DesignJet T1200

erstellt am: 17. Sep. 2003 12:03

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

So zum Beispiel:
-mtext;\a;UZ;d;0;br;0;$m=$(rtos,$(getenv,DELTAZ),2,2);;"setenv;DELTAZ;$m=$(+,$(getenv,DELTADZ),$(getenv,DELTAZ));";
DELTAZ=Startwert, DELTADZ=Inkrement: beide vorher mittels setenv entsprechend setzen.
Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Fred Feuerstein
Mitglied
Projektant

Beiträge: 101
Registriert: 01.09.2003

erstellt am: 17. Sep. 2003 12:39

<-- editieren / zitieren -->

Unities abgeben:

Hallo Grebe!
Danke für deinen Tipp. Kann mann dann am Ende noch ein enter setzen, damit nicht nach der neuen Variablen gefragt wird?

------------------
Manfred Sterkl
RWE Solutions Austria
Lastenstraße 19
2640 Gloggnitz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Grebe
Mitglied

Beiträge: 536
Registriert: 16.12.2002

LT-2021, Civil3D-2021, BricsCAD V18
HP-DesignJet T1200

erstellt am: 17. Sep. 2003 13:36

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

Da war keine Enter zu wenig, sondern zuviel !
Falls Du möchtest, dass das Makro in einer Schliefe durchlaufen wird, dann bitte ein * vornedran stellen:
*^C^C-mtext;\a;UZ;d;0;br;0;$m=$(rtos,$(getenv,DELTAZ),2,2);;"setenv;DELTAZ;$m=$(+,$(getenv,DELTADZ),$(getenv,DELTAZ))";
Makros können leider nicht durch ein erneutes ENTER-drücken wiederholt werden.
Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Fred Feuerstein
Mitglied
Projektant

Beiträge: 101
Registriert: 01.09.2003

erstellt am: 17. Sep. 2003 13:41

<-- editieren / zitieren -->

Unities abgeben:

Hallo Grebe!
Ich will den Befehl nicht wiederholden. Nach Einfügen der Zahl wird folgenes in der Statuszeile abgefragt:SETENV Name der Variable eingeben:. Das wollte ich unterdrücken. Übrigens 10UŽs für dich.
Danke.

------------------
Manfred Sterkl
RWE Solutions Austria
Lastenstraße 19
2640 Gloggnitz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Grebe
Mitglied

Beiträge: 536
Registriert: 16.12.2002

LT-2021, Civil3D-2021, BricsCAD V18
HP-DesignJet T1200

erstellt am: 17. Sep. 2003 14:30

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

Dann halt einfach das Makro aus dem letzten Posting ohne das * kopieren.
Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Fred Feuerstein
Mitglied
Projektant

Beiträge: 101
Registriert: 01.09.2003

erstellt am: 18. Sep. 2003 11:56

<-- editieren / zitieren -->

Unities abgeben:

Acad-MakroInkrement.zip

Hallo Grebe!
Du hast recht. Danke. Nochmals 10UŽs.
Ich habe noch meine Lösung hinzugeheftet.
Mfg
Fred Feuerstein

------------------
Manfred Sterkl
RWE Solutions Austria
Lastenstraße 19
1230 Wien

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Dober Heinz
Mitglied
Technischer Zeichner

Senden Sie eine Private Message an Dober Heinz

Schreiben Sie einen Gästebucheintrag für Dober Heinz

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2021/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
32 GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2021

erstellt am: 18. Sep. 2003 12:52

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

Danke habe es auch getestet funkt super
aber punkt oder einen schrägstrich geht nicht
220.1
220.1/1
dir letzte nummer möchte ich um 1 weiter zählen
danke heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Fred Feuerstein
Mitglied
Projektant

Beiträge: 101
Registriert: 01.09.2003

erstellt am: 19. Sep. 2003 05:52

<-- editieren / zitieren -->

Unities abgeben:

Makrobefehl_neu.txt

Hallo Heinz!
Anbei habe ich die modifizierte Datei angehängt. Damit sind jetzt bis zu 8 Nachkommastellen möglich.
Das mit dem Slash mußt du mir Erklären. Die Zahl nach dem Slash möchtest du also inkrementieren. Bleibt die andere konstant?

*^C^C-mtext;\a;UZ;d;0;br;0;$m=$(rtos,$(getenv,DELTAZ),2,8);;"setenv;DELTAZ;$m=$(+,$(getenv,DELTADZ),$(getenv,DELTAZ));";

Das 8 gibt die Formatierung in der Genauigkeit an.

------------------
Manfred Sterkl
RWE Solutions Austria
Lastenstraße 19
1230 Wien

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Fred Feuerstein
Mitglied
Projektant

Beiträge: 101
Registriert: 01.09.2003

erstellt am: 19. Sep. 2003 07:25

<-- editieren / zitieren -->

Unities abgeben:

Slash.jpg

Hallo Heinz!
Anbei habe ich dir ein Woraround geheftet. An der Lösung dienes Probelems mit einer Variable muß ich noch austesten.

------------------
Manfred Sterkl
RWE Solutions Austria
Lastenstraße 19
1230 Wien

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2021/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
32 GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2021

erstellt am: 19. Sep. 2003 08:21

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

Hallo
Ja ich möchte nur die letzte Selle änder das andera ändert sich nicht
danke Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1143
Registriert: 20.12.2002

erstellt am: 19. Sep. 2003 09:37

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

Danke funkt nicht wirklich
heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Grebe
Mitglied

Beiträge: 536
Registriert: 16.12.2002

LT-2021, Civil3D-2021, BricsCAD V18
HP-DesignJet T1200

erstellt am: 19. Sep. 2003 09:38

<-- editieren / zitieren -->

Unities abgeben:

Nur für Fred Feuerstein

Dann halt so:
^C^C-mtext;\a;UZ;d;0;br;0;$m=$(getenv,MEINTEXT)$(rtos,$(getenv,DELTAZ),2,2);;"setenv;DELTAZ;$m=$(+,$(getenv,DELTADZ),$(getenv,DELTAZ))";
Geht auch mit / nur \ ist schwierig, da dies in Makros eine EIngabeaufforderung repräsentiert.
Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)