| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY wird von NVIDIA zum Händler des Jahres gewählt - zum dritten Mal in Folge, eine Pressemitteilung
|
|
Autor
|
Thema: Bemaßungstext eines Winkels in die Zwischenablage (756 mal gelesen)
|
Meriadoc
Mitglied
Student
   Beiträge: 88
Registriert: 14.09.2005 Vista
ACA 2008 SP1
|
erstellt am: 15. Aug. 2008 09:42  <-- editieren / zitieren -->   Unities abgeben:          
Moin alle zusammen! Habe mal wieder eine Frage mitgebracht. Was mach ich in dem folgenden Programmtext falsch? Ich möchte einen Bemaßungstext in Excel überstellen und benutze dazu die Zwischenablage (doslib habe ich). Das Programm überträgt auch eine Zahl in die Zwischenablage, nur leider handelt es sich dabei um das Bogenmaß. Will ich das Bogenmaß nun in Grad umrechnen bekomme ich eine Fehlermeldung. (defun c:winkelbem2c (/ bemtext winkelbem)
(setq winkelbem (rtos (cdr (assoc 42 (entget (car (entsel "\n Winkelbemaßung auswählen")))))2 2))
(setvar "DIMZIN" 0)
(setq bemtext (* winkelbem 180))
(setq bemtext (/ bemtext pi))
(dos_clipboard
(strcat bemtext)
)
(setvar "DIMZIN" 8)
) Liegt es daran, das ich mit einer Zeichenkette rechnen möchte? wie kann ich eine Zeichenkette in eine Zahl umwandeln? Danke im vorraus an Euch!!! Viele Grüße, Sebastian ------------------
Warum seid Ihr alle schlauer als ich???  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy
Mitglied
Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900
Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 15. Aug. 2008 09:50 <-- editieren / zitieren --> Unities abgeben: Nur für Meriadoc 
|
Meriadoc
Mitglied
Student
Beiträge: 88
Registriert: 14.09.2005 Vista
ACA 2008 SP1
|
erstellt am: 15. Aug. 2008 10:15 <-- editieren / zitieren --> Unities abgeben:
Danke Heiko! Das war tatsächlich der Fehler. Jetzt klappts super. Son blöder Anfängerfehler (bin aber ja auch grade erst angefangen  ). Hier nochmal alles vollständig und berichtigt: Code:
(defun c:winkelbem2c (/ bemtext bemtext2 winkelbem)
(setq winkelbem (cdr (assoc 42 (entget (car (entsel "\n!! Bitte Winkelbemaßung auswählen !!"))))))
(setvar "DIMZIN" 0)
(setq bemtext (* winkelbem 180))
(setq bemtext (/ bemtext pi))
(setq bemtext2 (rtos bemtext 2 1))
(dos_clipboard
(strcat bemtext2)
)
(setvar "DIMZIN" 8)
)
Viele Grüße,
Sebastian------------------
Warum seid Ihr alle schlauer als ich??? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Anzeige: | Infos zum Werbeplatz >> | GeoTools CAD APP für Tiefbau, Facility Management, GIS, Vermessung und Kartografie GeoTools is a geo-data application that is useful to view, create, modify, analyze and report on CAD data that is geographic in nature. Useful for GIS data creation, surveying, mapping, facilities management, infrastructure, landscape development, city planning or similar, workflows.
|
|
Juergen55
Mitglied
Elektrotechniker
Beiträge: 282
Registriert: 08.03.2001
|
erstellt am: 15. Aug. 2008 21:38 <-- editieren / zitieren --> Unities abgeben: Nur für Meriadoc
Hallo, die Umrechnung von Bogenmaß auf Grad sieht so aus: (setq a50 (cdr (assoc 50 b1)))
(setq deg (atof (angtos a50 0 8))) ;Umrechnung radial auf dezimal mit Formatierung
(command "_rotate" (entlast) "" d1 deg) Die Variable a50 entsprechend ansteuern ! Gruß, Jürgen Jobsuche [Diese Nachricht wurde von Juergen55 am 17. Aug. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
