| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Problem mit einem LISP (522 mal gelesen)
|
Mangrove
Mitglied
   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:          
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
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: Nur für Mangrove 
|
Mangrove
Mitglied
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:
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
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:
|
Foren auf CAD.de (alle Foren)
| 
