| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:16281) | CIDEON Whitepaper: Konfigurationsprozess - durchgängig und zukunftsweisend, ein Whitepaper |
Autor
|
Thema: Problem mit einem LISP (573 mal gelesen)
|
Mangrove Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Mangrove](/foren/ubb/pmimages/gbu.gif) Beiträge: 283 Registriert: 07.02.2007 Win 7 x64 Intel i7 3,5 Ggz, 16GB, Quadro K 2000 Acad 2016 Acad Architecture 2016 Revit 2017 R2
|
erstellt am: 21. Jun. 2007 16:08 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, Ich habe ein problem mit einem LISP und kenne mich leider¨nicht der Programmierung aus. Der nachstehende Lisp gibt die Fläche eines Polygones in Form eines Blocs aus. Mein Problem ist daß ich die Fläche nur mit einer Kommastelle will, der Lisp aber 2 ausspuckt. Kann jemand helfen ? ----------------------------------------------------------------------------- ; Fonction de calcul de surface ; ; (defun c:ab () (princ "\nChoix d'une polyligne:") (setq s (ssget)) (command "_area" "e" s) (setq d (getvar "perimeter")) (setq c (getvar "area")) (setq e (rtos (/ d 100) 2 2)) (setq a (rtos (/ c 10000) 2 2)) (setq b (strcat a " m2")) (princ "\n POSITION du bloc \n") ;(setq p (getpoint)) (command "_insert" "0_surf-ettiq" pause "" "" "" a e) ;(setq x (entlast)) ;(PRINC "\n POSITION DU TEXTE \n") ;(command "_move" x "" "0,0" pause) (princ "\n TRAITEMENT TERMINE \n") ) ----------------------------------------------------------------------------- Vielen Dank im voraus Mangrove ------------------ Alle Fragen sind es wert gestellt zu werden Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
![](/foren/avatars/wronzky.gif)
![Schreiben Sie einen Gästebucheintrag für wronzky](/foren/ubb/pmimages/gbu.gif) Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 21. Jun. 2007 16:24 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Mangrove
|
Mangrove Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Mangrove](/foren/ubb/pmimages/gbu.gif) Beiträge: 283 Registriert: 07.02.2007 Win 7 x64 Intel i7 3,5 Ggz, 16GB, Quadro K 2000 Acad 2016 Acad Architecture 2016 Revit 2017 R2
|
erstellt am: 21. Jun. 2007 16:30 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, Danke für deine prompte Antwort, aber es funktioniert nicht. Ich glaube nicht daß es am bloc liegt, denn darin steht nur ein "banales" attribut, welches seinen Wert vom Lisp erhält. Was kann es noch sein ? Mangrove ------------------ Alle Fragen sind es wert gestellt zu werden Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mangrove Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Mangrove](/foren/ubb/pmimages/gbu.gif) Beiträge: 283 Registriert: 07.02.2007 Win 7 x64 Intel i7 3,5 Ggz, 16GB, Quadro K 2000 Acad 2016 Acad Architecture 2016 Revit 2017 R2
|
erstellt am: 21. Jun. 2007 16:49 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|