| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: substr - Unterlisten (1150 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 08. Mrz. 2012 15:17 <-- editieren / zitieren --> Unities abgeben:
Hi Ich will gern Profile beschriften. Der Text soll um 90Grad gedreht an pickpunkt liegen mit der Darstellung 0/125 12.575 soll heissen Strecke 125 m vom 0-punkt und 12.575 über 0 Ich bin der Annahme dass man einen String "125" in "0/125" umwandeln kann. Mein Versuch schaut so aus Code:
(defun c:Demo () (setq fak (getreal "\nHöhenfaktor eingeben ! ")) (while (setq pt (getpoint "\nKlick Punkt ! ")) (setq x (car pt)) (setq y (cadr pt)) ; (setq x (rtos (/ x 1000) 2 3)) (setq y (rtos (* fak y) 2 3)) ; (if (= pt) (command "text" pt (getvar "textsize") 90 (strcat x y)) ) ) )
------------------ Gruss Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 08. Mrz. 2012 15:28 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 08. Mrz. 2012 15:44 <-- editieren / zitieren --> Unities abgeben:
Nja mein Beispiel sollte es nur veranschaulichen. Ich habe 50m 100m 500m 1000m 2000m 0/050 0/100 0/500 1/000 2/000 Mein Ansatz war ersteinmal den Wert der Stecke durch 1000 zu dividieren dann komme ich auf die Kilometereiheit Wenn ich (substr "0.05" 1) eingebe erhalte ich "0.05" Bei (substr "0.05" 2) bekomme ich ".05" - die Metereinheiten Wie bekomme ich jedoch die Kilometer rein? ------------------ Gruss Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 08. Mrz. 2012 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 08. Mrz. 2012 16:07 <-- editieren / zitieren --> Unities abgeben:
Danke ! Jetzt komme ich nicht richtig weiter. Man muss es sich so vorstellen: Ich habe eine Profillinie die um einen bestimmten Höhenfaktor verzerrt ist. Ich möchte mit meiner Funktion folgendes erreichen. Zuerst eine Linie vom gewählten Koordinatenursprung zu zeichnen und anschliessend die Höhenpunkte entlang der Profillinie anzuklicken und eine Lotrechte Linie mit einem Bemassungstext zu zeichnen, der aus Strecke und Höhe besteht. Es funktioniert soweit 1) Ursprungslinie wird gezeichnet 2) Bemassungstext wird richtig gesetzt 3) (Problem) Die Lotrechte Linie wird irgendwo gezeichnet. Muss hier eine Transformation gerechnet werden ? Code:
(defun koor () (command "ucs" "") (setq p1 (getpoint "\nKlick koordinatenursprung")) (setq p2 (+ (car p1) 1000)) (setq p2 (cons p2 (cdr p1))) (progn (entmake (list (cons 0 "LINE") (cons 8 (getvar "clayer")) (cons 10 p1) (cons 11 p2) ) ) (command "ucs" "o" p1 ) ) )(defun c:zp () (koor) (setq fak (getreal "\nHöhenfaktor eingeben ! ")) (while (setq pt (getpoint "\nKlick Punkt ! ")) (setq x (car pt)) (setq y (cadr pt)) ; (setq x (rtos (/ x 1000) 2 3)) (setq y (rtos (* fak y) 2 3)) ; (setq p2 (list (car pt) 0 0)) (if (= pt) (progn (entmake (list (cons 0 "LINE") (cons 8 (getvar "clayer")) (cons 10 pt) (cons 11 p2) ) ) (command "text" pt (getvar "textsize") 90 (strcat (substr x 1 1) "/" (substr x 3 3) " " y)) ) ) ) )
[Diese Nachricht wurde von cadplayer am 09. Mrz. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 09. Mrz. 2012 09:55 <-- editieren / zitieren --> Unities abgeben:
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 09. Mrz. 2012 10:27 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Das liegt daran, dass Du das BKS änderst, mit (getpoint) BKS-Koordinaten erhältst, aber mit (entmake ...) diese als WKS Koordinaten benutzt. Entweder rechnest Du die Punkte um (trans... ) bevor Du mit entmake arbeitest, oder Du verwendest (command "_line" ...). Grüsse, Henning ------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 09. Mrz. 2012 11:57 <-- editieren / zitieren --> Unities abgeben:
|