| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Attributdefinition / Querschnittsflächen in Excel (547 mal gelesen)
|
Mr. King Mitglied techniker
Beiträge: 8 Registriert: 05.03.2003
|
erstellt am: 25. Mrz. 2003 13:49 <-- editieren / zitieren --> Unities abgeben:
kann mir jemand helfen ??? 1. Beim Attribute definieren, für z.B. einen Schriftkopf, hätte ich gerne einen Zeichenabstand mit einem höheren Faktor(z.B. 2). Im Benutzerhandbuch gibt es den Hinweis, daß beim formatieren in einem anderen Texteditor der Formatcode \TWert; gilt. Leider ist es mir nicht möglich, dies auch für die Attributedefinition zu übernehmen. Wer kann mir helfen? 2. Kann das Ergebnis des Befehls Fläche (Querschnittsfläche) in AUTOCAD 2002 in einer Tabelle dargestellt werden, und mit einer variablen für Gewichtsberechnungen multipliziert werden? vielen dank schon im voraus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 25. Mrz. 2003 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für Mr. King
|
Mr. King Mitglied techniker
Beiträge: 8 Registriert: 05.03.2003
|
erstellt am: 25. Mrz. 2003 14:46 <-- editieren / zitieren --> Unities abgeben:
zu 2. die tabelle soll enthalten: umfang, querschnittsfläche ,eine einzugebende variable und ein ergebnis aus variable multipliziert mit der querschnittsfläche. das wäre schön, wenn dies alles drin wäre. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 25. Mrz. 2003 19:59 <-- editieren / zitieren --> Unities abgeben: Nur für Mr. King
Hallo Mr. King, nachfolgend ein paar Zeilen, die das machen. Diese sind rudimentär. Wenn es als richtige Tabelle, mehrerer Elemente dargestellt werden soll, dann wird es aufwendiger, da dann die Breite der Werte ermittelt werden muß. Es ist dann auch die Frage ob die Tabell lediglich aus Linien und Texten bestehen soll, oder jede Zeile aus einem Block mit Attributen gebildet werden soll. Da gibt es dann fast keine Grenzen. Code:
(defun c:fltab () (princ "\nObjekt für Flächenberechnung wählen: ") (setq obj (car(entsel))) (if obj (do_fltab obj) (princ "\nKein Objekt gewählt - Abbruch!") ) (princ) ) (defun do_fltab (ob / spt) (command "_.area" "_o" ob) (command "_.text" (setq spt (getpoint "\nStartpunkt: ")) "" "" (rtos (getvar "PERIMETER") 2 2) "") (command "_.text" (setq spt (polar spt 0.0 30.0)) "" "" (rtos (getvar "AREA") 2 2) "") (command "_.text" (polar spt 0.0 30.0) "" "" (rtos (*(getreal "\nFaktor für Gewichtsberechnung: ")(getvar "AREA")) 2 2) "") )
Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool's im Free-&Download Zugang zum Download schon gesichert? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mr. King Mitglied techniker
Beiträge: 8 Registriert: 05.03.2003
|
erstellt am: 26. Mrz. 2003 14:19 <-- editieren / zitieren --> Unities abgeben:
hallo holger, lösung war echt super, aber... wenn es möglich wäre, sollte das ergebnis auf drei stellen hinterm komma gerundet werden !? zudem sind oft zusätzlich in der fläche andere flächen, die substrahiert werden müssen. hast du hierzu eine idee ? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 26. Mrz. 2003 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für Mr. King
Hallo Mr. King, im Code gibt es 3 Stellen an denen zwei Zweien hintereinander stehen. ändere jeweils die 2te in eine 3 - dann sollte es gehen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool's im Free-&Download Zugang zum Download schon gesichert? [Diese Nachricht wurde von Brischke am 26. März 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 26. Mrz. 2003 20:15 <-- editieren / zitieren --> Unities abgeben: Nur für Mr. King
Hallo Mr. King, anbei eine etwas verbesserte Version. Sie beinhaltet nun auch Spaltenköpfe. Es können mehrere Objekte (immer eins nach dem anderen) gewählt werden. Und am Ende wird eine Summenzeile ausgegeben. ich bitte aber immer noch zu beachten, auch wenn der Code die Aufgabenstellung erfüllt, dieser ist absolut rudimentär. Es ist kein Fehlerabfang drin und es besteht auch eine sehr große Abhängigkeit von den bei der Ausführung aktuellen Einstellungen bezüglich des Textstil's.
Code:
(defun c:fltab (/ spt gf obj gesu gesm gesf objl) (setvar "CMDECHO" 0) ;;FF Spaltenkopf (command "_.text" (setq spt (getpoint "\nStartpunkt: ")) "" "" "Umfang") (command "_.text" (setq spt (polar spt 0.0 30.0)) "" "" "Fläche") (command "_.text" (polar spt 0.0 30.0) "" "" "Gewicht") (setq gf (getreal "\nFaktor für Gewichtsberechnung: ")) (princ "\nObjekt für Flächenberechnung wählen: ") ;;FF Teilflächen (while (setq obj (car(entsel))) (setq spt (do_fltab obj (setq spt (polar (polar spt 0.0 -30.0) (* 1.5 pi) 7.0)) gf) objl (cons obj objl)) (redraw obj 2) (princ "\nObjekt für Flächenberechnung wählen: ") ) (mapcar '(lambda (O)(redraw O 1))objl) ;;FF Summen (command "_.text" (setq spt (polar (polar spt 0.0 -60.0) (* 1.5 pi) 10.0)) "" "" "Summe:") (command "_.text" (setq spt (polar spt 0.0 30.0)) "" "" (rtos gesu 2 3)) (command "_.text" (setq spt (polar spt 0.0 30.0)) "" "" (rtos gesf 2 3)) (command "_.text" (polar spt 0.0 30.0) "" "" (rtos gesm 2 3)) (princ) ) (defun do_fltab (ob sp gfak /) (command "_.area" "_o" ob) (command "_.text" sp "" "" (rtos (getvar "PERIMETER") 2 3)) (command "_.text" (setq sp (polar sp 0.0 30.0)) "" "" (rtos (getvar "AREA") 2 3)) (command "_.text" (polar sp 0.0 30.0) "" "" (rtos (* gfak (getvar "AREA")) 2 3)) (setq gesu (if gesu (+ gesu (getvar "PERIMETER")) (getvar "PERIMETER")) gesf (if gesf (+ gesf (getvar "AREA"))(getvar "AREA")) gesm (if gesm (+ gesm (* gfak (getvar "AREA")))(* gfak (getvar "AREA"))) ) sp )
Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool's im Free-&Download Zugang zum Download schon gesichert? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |