| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Ergänzung des gemessenen Wertes (888 mal gelesen)
|
don max Mitglied architekt
Beiträge: 48 Registriert: 23.02.2004 Windows 2000, A-Cad 2000 (spanisch)
|
erstellt am: 26. Apr. 2004 01:52 <-- editieren / zitieren --> Unities abgeben:
hallo allerseits, ich hab mir nun lang genug die zähneausgebissen und will ins bett. drum bitte ich euch um hilfe. ich habe mir aus zwei lisps eines zusammengestrickt, das mir die fläche einer polylinie berechnet und den wert als text einfügt. nun hätte ich auch gerne noch ein m² hinter dem Wert stehen. Hier der Lisp-Ausschnitt: (command "_mtext" (getpoint "\n=> Einfügepunkt") "_justify" "_BL" "_width" "0" WERT "") der rest vom code steckt im anhang, ich hoffe mal dass der mitgeschickt wird. gruss markus ps: und nicht erschrecken, das lisp ist wirklich zusammengebastelt. ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 26. Apr. 2004 08:09 <-- editieren / zitieren --> Unities abgeben: Nur für don max
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 26. Apr. 2004 08:50 <-- editieren / zitieren --> Unities abgeben: Nur für don max
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 26. Apr. 2004 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für don max
P.S. hier der Anhang Code:
; BEFEHL: ATI ; Addiert die Fläche zu markierenden Polylinien und schreibt die Fläsche als Mtext. ; ================================================================================== (defun suma-pol () (setq polilineas (ssget)) (setq n-pol (sslength polilineas) n 0 ) (repeat n-pol (setq nombre (ssname polilineas n)) (if (or (= "LWPOLYLINE" (cdr (assoc 0 (entget nombre)))) (= "POLYLINE" (cdr (assoc 0 (entget nombre)))) ) (progn (command "_.area" "_o" nombre) ;;(setq ar (/ (getvar "area") 1000000)) (setq ar (getvar "area")) (setq area (cons ar area)) (setq n (1+ n)) ) ) ) (if (or (= "LWPOLYLINE" (cdr (assoc 0 (entget nombre)))) (= "POLYLINE" (cdr (assoc 0 (entget nombre)))) ) (progn (setq area-total (apply '+ area)) ) ) (setq WERT (rtos area-total 2 2)) ; Modus 2 = dezimal (if area-total (command "_mtext" (getpoint "\n=> Einfügepunkt") "_justify" "_BL" "_width" "0" (strcat WERT " m²") "") ) ) (defun c:ATI (/ polilineas n-pol n nombre ar area area-total wert) (setvar "cmdecho" 1) (suma-pol) (setvar "cmdecho" 1) (prin1) ) (prompt "\n**** Befehl: ATI ****") (princ)
------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
don max Mitglied architekt
Beiträge: 48 Registriert: 23.02.2004 Windows 2000, A-Cad 2000 (spanisch)
|
erstellt am: 27. Apr. 2004 00:14 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADwiesel: Anhang tuts nicht. hast du schonmal bei mir nachgesehen? da gibts was, was dir die Fläche berechnet und dir den Wert in den Schwerpunkt schreibt.
wollte halt mal was ausprobieren :-) interessante seite hab mir einiges gesaugt. danke markus ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |