Claudia Mattern wrote:
> Hallo!
> Wer kann mir helfen?
> Wie kann ich in AutoCAD 2000 die wahre Länge eines Bogens Messen, also die
> Bogenlänge. Gibt es eine Befehl oder ein Icon.
In der Befehlszeile einfach eingeben: liste
dann den Bogen wählen, es erscheint das Textfenster mit allen Infos zum
Bogen (Winkel, Länge, ...)
Gruß
Erich
Claudia Mattern wrote:
> Hallo!
> Wer kann mir helfen?
> Wie kann ich in AutoCAD 2000 die wahre Länge eines Bogens Messen, also die
> Bogenlänge. Gibt es eine Befehl oder ein Icon.
Hab' vorhin schon was gesendet, aber anscheinend einen falschen Knopf
erwischt. Also nochmals:
Gib einfach in der Befehlszeile ein: liste
Dann wählst du den Bogen aus und es erscheint das Textfenster mit allen
Infos zu deinem Bogen. Das geht natürlich mit jedem beliebigen Element.
Gruß
Erich
Noch ein Gruß
Erich
> Wie kann ich in AutoCAD 2000 die wahre Länge eines Bogens Messen, also die
> Bogenlänge. Gibt es eine Befehl oder ein Icon.
Einfach mittels LISTE die Eigenschaften des Bogens abfragen.
Ich wurde schon häufig gefragt, ob ich in meinen ArchTools nicht auch
ein Werkzeug für die Bemaßung der Bogenlänge für runde Wände einbauen
könnte. Tatsächlich wäre das ein ziemlich kleines, schnell gemachtes
Programm. Aber ich konnte bisher alle Frage davon überzeugen, daß so
eine Bogenlängenbemaßung mehr Verwirrung stiften würde als sie nutzen
würde. Wenn es eine Wand ist, wofür gilt dann die Bemaßung mit der
Längenangabe: Außenwand, Innenwand, mittendrin oder gar die Länge des
Bogens der Bemaßung?
Tom Berger
--
ArchTools: Software-Werkzeuge für die Architektur
ArchDIM - architekturgerechte Bemaßung für AutoCAD (TM)
ArchAREA - Flächenermittlung und Raumbuch nach DIN 277
Info und Demo unter http://www.archtools.de
Befehl "Länge" (_lengthen).
Jürgen
Falls Du die Bogenlänge bemaßen willst, hilft vielleicht folgendes
kleines LISP (Bemaßung ist allerdings nicht assoziativ):
; arcdim.lsp Arc Length (c)1998, Paul Standing
;MEASURES THE LINEAR LENGTH OF ARCS AND DIMENSIONS THE ARC TO THE
(defun dtr (x)
(* pi (/ x 180.00))
)
(defun rtd (y)
(/ (* 180 y) pi)
)
(defun right ()
(setq ang1 (angle ep cen)
ang2 (angle ep1 cen)
ang (- ang1 ang2)
arclen (abs(* rad ang))
)
)
(defun left ()
(setq ang (- a1 a2))
(setq arclen (abs(* rad ang)))
)
;_______________________________________________________________________
(defun C:arcdim (/ ang1 ang2 ang arclen rad pick_pt pick_ang
cen pick_pt extpt1 extpt2 extpt3 extpt4 ep a1 a2 ep1 e6 e7 ent4
temp_pt1
temp_pt2 temp_pt3 temp_pt4 e1 e2 e3 e4 text_ang th txt1 txt e5
ep1a epa
ep1a1 epa1 search type)
(setvar "cmdecho" 0)
;;LCA - WARNING: The BLIPMODE sysvar is now saved in the registry.
(setvar "blipmode" 0)
(setq cn (entsel "\nSelect arc to dimension: "))
(setq dn (car cn))
(setq aw (entget dn))
(setq type (cdr(assoc 0 aw)))
(if (= type "ARC")
(progn
(setq a1 (cdr (assoc 50 aw)))
(setq a2 (cdr (assoc 51 aw)))
(setq cen (cdr (assoc 10 aw))
rad (cdr (assoc 40 aw)))
(setq ep (polar cen (cdr (assoc 50 aw)) rad)
ep1 (polar cen (cdr (assoc 51 aw)) rad))
(if (< a1 a2) (left)
(right)
)
(prompt "\nEnter dimension location: ")
(command "_dim" "_angular" "" cen ep ep1 pause (rtos arclen)
pause "_exit")
)
(prompt "\nThe Selected entity was not an arc ")
)
(setvar "clayer" "0")
(setvar "cmdecho" 1)
(setvar "blipmode" 0)
(princ)
)
(princ "\nType arcdim to envoke the command: ")
>Vielen Dank Claudia
Null Problemo!
Servus, Erwin
--
f...@gmx.at
Hallo Claudia!
Der Kurzbefehl (definiert in der acad.pgp) um die Länge eins Linienobjektes
feststellen zu können ist LÄ (Kleinbuchstaben). Um in Ausnahmefällen
Bogenlängen zu bemaßen, würde ich also diesen Kurzbefehl verwenden und die
angegebene Bogenlänge aus der Befehlszeile in die Zwischenablage kopieren
(markieren und Strg + C - müsste auch in AC2K schon möglich sein).
Dann wird der Bogen mit einer Winkelbemaßung versehen und deren Maßtext mit
dem Kurzbefehl ED zum Bearbeiten in den Editor geholt. Den assoziativen
Maßtext (<>) markieren und mit Strg+V das zuvor kopierte Maß einfügen...
(Gilt aber wirklich nur für gelegentliche Anwendung, sonst würde ich mir
schon die Lisproutine von Jürgen vornehmen oder selbst was schreiben...)
Grüße Heinz