---

Hallo Leute!

Ich hab ein eher banales Problem:
Ich möchte die Länge einer Polilinie in einer Führung neben die Polilinie geschrieben bekommen.

Im Forum hab ich diesen "historischen" Beitrag gefunden:
http://ww3.cad.de/foren/ubb/Forum54/HTML/002096.shtml#000006 
(wie macht ihr eigentlich die links in euren Beiträgen?)

ein Buttonmakro

^C^C_undo;_group;_area;_o;\setenv;alen;$m=$(eval,"Länge:"$(rtos,$(getvar,perimeter)));_undo;
_end;_u;_dimordinate;_near;\_T;"$m=$(getenv,alen)";\^M;^M;

Es funktioniert bei mir nur leider nicht:

Befehl: _undo
Anzahl der rückgängig zu machenden Operationen eingeben oder
[Auto/Steuern/Beginn/Ende/Markierung/Rück] <1>: _group

Befehl: _area

Ersten Eckpunkt angeben oder [Objekt/Addieren/Subtrahieren]: _o

Objekte auswählen:
Fläche = 313818.55677, Umfang = 2248.78588

Befehl: setenv
Unbekannter Befehl "SETENV". Drücken Sie F1-Taste für Hilfe.

Befehl: alen
Unbekannter Befehl "ALEN". Drücken Sie F1-Taste für Hilfe.

Befehl: Länge:2248.78588
Unbekannter Befehl "LÄNGE:2248.78588". Drücken Sie F1-Taste für Hilfe.

Befehl: _undo
Anzahl der rückgängig zu machenden Operationen eingeben oder
[Auto/Steuern/Beginn/Ende/Markierung/Rück] <1>: _end

Befehl: _u
GRUPPE
Befehl: _dimordinate

Funktionsposition angeben:_near
nach
Endpunkt der Führungslinie angeben oder [Xdaten/Ydaten/Mtext/Text/Winkel]: _T

Maßtext eingeben <286.3>:

Endpunkt der Führungslinie angeben oder [Xdaten/Ydaten/Mtext/Text/Winkel]:
Maßtext = 148.7
Befehl:
DIMORDINATE
Funktionsposition angeben:

Befehl:
DIMORDINATE
Funktionsposition angeben

Wo liegt da der Hund begraben?

Grüße

Helmut

Achtung: passend zum historischen Beitrag arbeite ich auf ACad 2002

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Helmut Wieser:

Wo liegt da der Hund begraben?

---

du rufst in dem Makro den Befehl _area auf ... und der erwartet eine geschlossene Polylinie , oder halt Objekte, die eine Fläche haben ....

An der Wert "Länge" bei (allen) Polylinien kommst du mit dem Befehl _list  .. das Ausgeben an eine Führung läuft wohl auf eine Programmierung raus. Brauchst du das wirklich ?

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas!

Funktioniert auch bei einer geschlossenen Polilinie nicht...

Brauch ich das wirklich? - Was braucht man schon wirklich? 

Es ist meine Arbeitsweise um Massenermittlungen nachvollziehbar zu archivieren: Ich zieh eine Polilinie, schau in den Eigenschaften nach wie lang sie ist und übertrage den Wert händisch (!) in eine Führung, dann weiß ich im besten Fall auch in 2 Jahren noch, wo die 27,15 lfm Attikaverblechung hergekommen sind.

Der area oder auch list- Befehl liefert den Umfang der Polilinie ja schon in die Befehlszeile - wie ich das Makro verstehe speichert Acad den Umfang temporär ab und gibt ihn dann statt den Maßtext in einer Koordinatenbemaßung aus, bei mir happerts nur bei der richtigen Syntax für diese Befehlsabfolge.

setenv;alen;$m=$(eval,"Länge:"$(rtos,$(getvar,perimeter))) macht ja wohl nichts anderes als sich den Umfang zu holen und

_T;"$m=$(getenv,alen) sagt dem Koorinatenbemassungsbefehl statt dem Maßtext den vorher abgefragten Umfang einzusetzten

Tut es bei mir aber leider nicht...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

LLeader.VLX.txt

Hab was, wenns wirklich sooo gebraucht wird .... geht auch bei Splines, Kreisen usw.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(noch) ein Grund warum das Makro nicht bei dir funktioniert wird wohl sein
das du die AutoCAD-Vollversion hast (?) und das ein LT-spezifisches Makro ist !
"setenv" und "getenv" gibt es nicht als Autocad-Befehl (in der LT-Version schon)

EDIT: In der Vollversion nutzt man dafür Lisp (getenv "MaxHatch") zb..

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas!

Deine VLX funktioniert, ist genau was ich gesucht habe!

Danke

Helmut

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP