---

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

---

Hallo Mr. King,

zu1) Das gitl nur für MText, da müßte man dann mit Lisp ran.
zu2) Was soll denn alles in die Tabelle rein?

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

---

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

---

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

---

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

---

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

---

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