gleiche Formate mit rtos (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: gleiche Formate mit rtos (852 mal gelesen)

flaschenpost
Mitglied
Architekt

Senden Sie eine Private Message an flaschenpost

Schreiben Sie einen Gästebucheintrag für flaschenpost

Beiträge: 497
Registriert: 29.09.2004

ADT 2004 / Windows XP

erstellt am: 08. Dez. 2004 18:23

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo LISP-Freunde,
ich möchte RTOS immer im selben Format :

-3.0 : "-03.00"
+2.000 : "+02.00"
-0.01 : "-00.01"

Kennt jemand einen Trick, oder muß man basteln mit IF ?

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: 08. Dez. 2004 18:49

<-- editieren / zitieren -->

Unities abgeben:

Nur für flaschenpost

Hallo flaschenpost,

für das Vorzeichen musst du mit IF 'basteln'. Für die immer gleiche Nachkommastellenanzahl ist eine Sysvar von den Bemaßungen zuständig ... aber welche(fällt mir im Moment nicht ein)? Such mal hier im Forum, das Thema war schon einmal.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night! Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD AUGCE Manager Deutschland
Da weiß man, wann man's hat!

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer

Senden Sie eine Private Message an CAD-Huebner

Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 08. Dez. 2004 21:20

<-- editieren / zitieren -->

Unities abgeben:

Nur für flaschenpost

Die Systemvariable
LUNITS (Längen Einheiten) steruert die Anzahl der Nachkommastellen und
Wichtiger
DIMZIN(Dimension Zero Inch) steuert, ob nachfolgende Nullen unterdrückt oder immer angezeigt werden.

Code:

(DEFUN RTOS0 (value decimals / dz result)
(SETQ dz (getvar "DIMZIN"))
(SETVAR "DIMZIN" 0)
; 2 in RTOS bedeutet Ausgabe als Dezimalzahl
(SETQ result(strcat(if(minusp value)"-" "+")
"0" ; besser führende Nullen berechnen?
(rtos (abs value) 2 decimals)
)
)
(setvar "DIMZIN" dz)
result
)

ergibt bei
(RTOS 9 2) => +09.00
(RTOS 0 2) => +00.00
(RTOS -9 2) => -09.00

Mit freundlichem Gruß

Udo Hübner

------------------
Von zwei möglichen Ereignissen wird nur das nicht gewünschte tatsächlich eintreffen.

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

Bauingenieur/Bautechniker (m/w/d)
Hildebrand & Partner ist seit über 35 Jahren ein verlässlicher Partner für ansprechende Wohnungen und attraktive Büro- und Ladenflächen in Leipzig und Chemnitz. Das Spektrum unserer Objekte umfasst hochwertig und fachgerecht sanierte denkmalgeschützte Mehrfamilienhäuser, Wohnanlagen und Villen, Geschäftshäuser in der City, moderne und ansprechende Neubauvorhaben sowie die Umwandlung und Neuentwicklung ehemaliger Industrie- und Verwaltungsgebäude....
*Anzeige ansehen*	Bauwesen

flaschenpost
Mitglied
Architekt

Beiträge: 497
Registriert: 29.09.2004

ADT 2004 / Windows XP

erstellt am: 09. Dez. 2004 00:19

<-- editieren / zitieren -->

Unities abgeben:

Danke für die Hilfe ! So sieht es jetzt aus :

(SETQ result(strcat(if(minusp value)"-" "+")
(if (>= (strlen (rtos (abs value) 2 2)) 5) "" "0")
(rtos (abs value) 2 2)
)
)

Ich brauche es für Layernamen.

Gruß Carsten

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)