Fortlaufende Nummern (Autodesk/Lisp)

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

Autor

Thema: Fortlaufende Nummern (1937 mal gelesen)

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

erstellt am: 06. Mai. 2004 14:38

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

num.zip

Hallo an alle Profis
Habe eine Freage habe ein Lisp wo ich vorlaufende Nummern einfügen kann lauft ganz Toll, ich will aber beim weiterkoperen sehn wie gross der Text ist damit ich weis wohin ich den Text setzen muss
Danke Heinz

------------------

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

Brischke
Moderator
CAD on demand GmbH

Senden Sie eine Private Message an Brischke

Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 06. Mai. 2004 14:41

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo Heinz,

mit diesem Tool wird nichts kopiert, nur erzeugt. Deshalb ist es auch nicht möglich das Objekt vorher anzuzeigen (oder nur mit großem Aufwand).

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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: 06. Mai. 2004 14:50

<-- editieren / zitieren -->

Unities abgeben:

ok danke wahr mir klar das das schwierig ist
kann man dein einfügepunkt variable machen das ich mir dein aussuche wie ich dein text einfüge z.b. links rechts mitte
danke heinz

------------------

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

Brischke
Moderator
CAD on demand GmbH

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 06. Mai. 2004 15:00

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo Heinz,

klar kann man das machen, aber wie du selber schon festgestellt hast, ist das etwas schwieriger und zeitaufwendiger.
Die Logic aus CADmiums Beitrag müsstest du dann einarbeiten.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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: 06. Mai. 2004 15:04

<-- editieren / zitieren -->

Unities abgeben:

Danke aber dazu keine ich mich zu wenig aus
Danke für Antwort.
mfg Heinz

------------------

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

Theodor Schoenwald
Ehrenmitglied

Senden Sie eine Private Message an Theodor Schoenwald

Schreiben Sie einen Gästebucheintrag für Theodor Schoenwald

Beiträge: 1672
Registriert: 16.04.2002

erstellt am: 06. Mai. 2004 18:30

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo Heinz,

hast Du Tool 15 von der folgenden Seite schon probiert?
http://www.lehrer.uni-karlsruhe.de/~za685/cad/cadtools.htm

Gruß
Theodor Schönwald

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: 07. Mai. 2004 06:34

<-- editieren / zitieren -->

Unities abgeben:

Danke ist aber doch nicht ganz so wie das meine aber danke die anderen Lisp sind super
mfg Heinz

------------------

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

Helmut F
Mitglied
Dipl.-Ing

Senden Sie eine Private Message an Helmut F

Schreiben Sie einen Gästebucheintrag für Helmut F

Beiträge: 38
Registriert: 09.05.2003

erstellt am: 07. Mai. 2004 07:59

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo Heinz,

füge in deiner While-Scheife mal folgende 4 Zeilen ein :
...
;_ end of setq

(command "_TEXT" "Position" "Zentrieren" ipt th 0 (strcat prefix (itoa nr)) "")
(command "_MOVE" "_LAST" "" ipt pause)
(setq ipt (getvar "LASTPOINT"))
(command "_ERASE" "_LAST" "")

(entmake
...

Trifft das deine Vorstellungen?

Schöne Grüße
Helmut

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

Bernhard GSD
Mitglied

Senden Sie eine Private Message an Bernhard GSD

Schreiben Sie einen Gästebucheintrag für Bernhard GSD

Beiträge: 482
Registriert: 29.08.2002

AutoCAD 2020(Deu); Windows 10 PRO x64(Deu)

erstellt am: 07. Mai. 2004 08:04

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben.

(PROGN (command "_insert" blockname pause "" "" "")(command "_Explode" "_L"))

------------------
Gruß aus Wien
Bernhard

[Diese Nachricht wurde von Bernhard GSD am 07. Mai. 2004 editiert.]

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

Helmut F
Mitglied
Dipl.-Ing

Beiträge: 38
Registriert: 09.05.2003

erstellt am: 07. Mai. 2004 08:19

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Mir ist noch was aufgefallen :

Wenn du deine 5 Zeilen zur Layerfestlegung erstzt durch die Zeile :

(setq lay_new (cdr (assoc 8 (entget (car (entsel "\nWählen sie ein Element für die Layerschaltung : "))))))

sparst du
1.) einmal ein ENTER
2.) das Umschalten und Zurücksetzen des Layers

Helmut

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: 07. Mai. 2004 08:25

<-- editieren / zitieren -->

Unities abgeben:

Danke an alle bin Lisp anfänger und weis nicht so recht wo ich was einfügen muss
danke Heinz

------------------

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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

erstellt am: 07. Mai. 2004 08:53

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Zitat:
Original erstellt von Bernhard GSD:
Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben.

(PROGN (command "_insert" blockname pause "" "" "")(command "_Explode" "_L"))

Und warum nicht gleich :
(command "_insert" (strcat "*" blockname) pause "" "" "") ?

Zitat Hilfe :
Einfügen von aufgelösten Blöcken: Wenn Sie ein Sternchen (*) zu Beginn des Blocknamens eingeben, wird der Block aufgelöst, und die einzelnen Teile des Blocks werden eingefügt. In diesem Fall wird die Blockdefinition nicht zur Zeichnung hinzugefügt...

------------------
- Thomas -

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: 07. Mai. 2004 09:37

<-- editieren / zitieren -->

Unities abgeben:

Hallo Helmut dasist nicht schlecht aber der Text reagiert bissi komisch ist das nicht so von wo ich weg zeichne fängt der Text an springt bissi willt umher möchte ihn genauer setzten können sonst super 5 u sind dir sicher

------------------

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)