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

NVIDIA RTX PRO 6000 Blackwell Max-Q Workstation Edition, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: gleiche Formate mit rtos (917 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: 4201
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: 9812
Registriert: 01.12.2003

One AutoCAD 2.5 - 2024, AutoCAD, 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

Anzeige:	Infos zum Werbeplatz >>
pitCAD Ultimate Elektro Einzelplatz CAD APP für TGA, Elektro, Facility Management Vereint die langjährige Erfahrung von pit-cup im Bereich der Gebäudetechnikplanung und des Facility Management zu einem durchgängigen 2D/3D CAD/BIM Planungswerkzeug, über den gesamten Lebenszyklus einer Immobilie.

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 >>)

pitCAD Ultimate Elektro Einzelplatz CAD APP für TGA, Elektro, Facility Management