---

Hi,kann mir jemand sagen wie es möglich ist auf einem kreisbogen sagen wir 5m zu messen damit ich von dort aus zb eine Linie zeichnen kann?

Grüße PamDeluxe

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

pobiers mit _measure .. der Befehl setzt dir einen Punkt ab, den du dann mittels Fang für andere Sachen weiterverwenden kannst

------------------
       - 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

---

Mit einem anderen Kreis der z.B. 5m radius hat?

LG
Marita

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

---

@cadmium o.k. mit dem befehl wird der abstand so oft aufgetragen wie es möglich ist, gibt es ev. einen Befehl der den eingegebenen Wert nur einmal aufträgt?

@Marita ja gut mit dem Radius hab ich dann die normale "gerade" Länge, ich möchte aber die 5m auf dem Bogen Auftragen.

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

Zitat:

---

Original erstellt von PamDeluxe:
@cadmium o.k. mit dem befehl wird der abstand so oft aufgetragen wie es möglich ist, gibt es ev. einen Befehl der den eingegebenen Wert nur einmal aufträgt?

---

nein, von Hause aus nicht. Entweder du nutz das so, oder rechnest dir das aus, oder du du proggst dir was entsprechendes.

------------------
  - 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

---

...oder du zeichnest einen Bogen mit  _arc - Zentrum, Startpunkt und Sehnenlänge auf den Kreis, zeichnest dann deine Linie und löscht den Bogen dann wieder.

Edit: Funktioniert natürlich nicht, da man ja die Bogenlänge bräuchte und nicht die Sehnenlänge, wie mich der Lothar richtigerweise per PM aufmerksam machte.

------------------
Gruß

Michi

"Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,
dass sie die Reibungshitze als Nestwärme empfinden."

[Diese Nachricht wurde von Entsorger01 am 30. Mai. 2007 editiert.]

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

---

o.k. dann werd ich wohl oder übel bei _measure bleiben müssen, Lisp kann ich nicht...schade eigentlich!

danke für eure Hilfe

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

danke Entsorger01 gute idee!

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

Es gibt die Möglichkeit des Befehls "länge", mit dem man einen Bogen, der zb eine bogenlänge von 10m hat, auf eine gewünschte Bogenlänge - hier 5m - kürzen kann. bzw um 5m verlängern.

Leider läßt sich der Befehl lt Acad-Hilfe nicht auf Kreise, sondern nur auf Linien, Bögen, usw anwenden.

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

---

Hallo PamDeluxe,

das Problem ist, dass dein Wunsch bei ACAD nicht realisiert worden ist.
Bogen -> Startpunkt -> Zentrum -> Bogenlänge gibt es nicht. Ärgerlich!

Workaround:

1. Cadmiums Vorschlag. Aber man kann den Anfangspunkt von "messen" an einem Kreis IMHO nicht bestimmen.
2. Bogen "in etwa" zeichnen -> und dann mit "Länge" -> gesamt auf die gewünschte Bogenlänge dehnen/stutzen. (siehe engelni)
3. mit einem Lisp. Doof bei "arclen", der Bogen kann nur gUzs gezeichnet werden, da das Helferlein keine negativen Werte erlaubt.:

Code:

---

;;;---------------------------------------------------
(defun c:arclen (/ omnu pt1 pt2 d1 d2 a1 a2)
(setq omnu (getvar "MENUECHO"))
(while (not (setq pt1 (getpoint "\nStart point: ")))
(princ "\nNo start point selected... ")
)
(while (not (setq pt2 (getpoint pt1 "\nCenter: ")))
(princ "\nNo center point selected... ")
)
(setq d1 (distance pt1 pt2)
d2 (* d1 2 pi))
(while (or (>= a2 360) (= a2 nil))
(initget 7)
(setq a1 (getreal "\nArc length: ")
a2 (/ (* 180 a1) (* pi d1)))
(if (>= a2 360) (princ (strcat "\n*Invalid*\nArc length must
be less than "
(rtos d2))))
)
(setvar "MENUECHO" 2)
(command "_ARC" pt1 "_C" pt2 "_A" a2)
(setvar "MENUECHO" omnu)
(princ)
)
;;;---------------------------------------------------

---

Lothar

------------------
From Autodusk Till Dawn

[Diese Nachricht wurde von Kramer24 am 30. Mai. 2007 editiert.]

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

---

man kann auch mit

Befehl:

Länge Delta -5

den Bogen um 5 Einheiten kürzen und man hat den neuen Einfügepunkt
Genauso gehts auch mit den dreieckigen Griffen ab 2007

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Hi,

wenn Du soetwas häufiger benötigst, würde ich mir einen dynamischen Block mit den nötigen Abfragen erstellen...

mfg

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

---

MEASURE-ONE.VLX.txt

Ich hab mal noch was zu dem Thema geschrieben .. siehe Anhang.

Es wird ein Abstandes auf einem gewähltem Kurvenobjekt von einem
anzugegebenen Ausgangsunkt in anzugebener Meßrichtung abgetragen und an der Stelle ein Punktobjekt abgesetzt. Dessen Koordinaten werden in der Systemvariablen "LASTPOINT" gespeichert, so daß man mit @ beim Weiterzeichnen drauf Zugriff hat. (Funktioniert bei auch bei Kreisen Ellipsen Splines ....)

------------------
  - 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

---

@Thomas:  Genial - wie immer!

------------------
Gruß

Michi

"Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,
dass sie die Reibungshitze als Nestwärme empfinden."

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

---

@Cadmium...echt cooles tool hast du das jetzt mal so auf die Schnelle getippt oder wie?? Echt coole Sache!Danke

10Us von mir!!

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

Alternativ dazu, wenn es kein geschlossener Kreis ist, man kann, wenn man die Spurverfolgung nimmt, und den OFang Hilflinie anhat auch den Wert eingeben. Die Spur folgt dann dem Bogen.

z.b. - Befehl Linie
- Spur mit Endpunkt am Bogenanfang ansetzen
- dann entlang des Bogens ziehen (Erweiterung)
- Wert eingeben

Der Linienanfang befindet sich dann um das angegebene Bogenmaß versetzt vom Bogenanfang.

------------------
Gruß Yvonne                                   ADT-Help-Site

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

---

@Cadmium, hab dein tool jetzt mal ausprobiert funktioniert echt toll, schade dass es bei Polylinien nicht funktioniert!gibt es für polys auch ein tool ?wäre sehr interessiert daran!

Danke im Voraus

Grüße PamDeluxe

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

das Teil funktioniert auch bei Polilinien (LW, 2D) ... was für eine Meldung hast du erhalten?
Was noch fehlt ist ein Koordinatengetranse, falls nich im WKS geabeitet wird.

------------------
  - 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

---

o.k. entschuldigung mein Fehler...die Polylinie an der ich es getestet hatte, hatte einen z-wert! also eine Höhe!

Bei 2D-Polys funkt es vorzüglich!
Nochmal echt geniales Program

Danke!

------------------
Ein Kreis mit unendlichem Radius ist auch nur eine Gerade.

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

---

Hallo Leute ...

der Beitrag ist zwar schon älter aber dennoch ist die VLX von Thomas sehr nützlich.
Meine Frage: Kann ich den Befehl "MEASURE-ONE" in einer LISP aufrufen? ... Wenn JA, Wie?

Denn beim Aufruf

Code:

---

(command "MEASURE-ONE" OBJ P1 P2 Absdand)

---

Bekomme ich eine Fehlermeldung "Unbekannter Befehl "MEASURE-ONE"" trotz bereits geladener VLX-Anwendung.

Über Befehlszeile funktioniert es tadellos ...

------------------
@edo...

..............................................
SO EINFACH WIE MÖGLICH, ABER NICHT EINFACHER !
..............................................

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

---

statt deiner Zeile müßte es so lauten: (c:MEASURE-ONE) (Lispdefinierter AutoCAD-Befehl)
Wenn du NUR diese Zeile in ein MAKRO packen möchtest, würde aber auch einfach MEASURE-ONE ausreichen !

Willst du den ermittelten Punkt weiterverwenden, wovon ja auszugehen ist:

kannst du das in einem Makro so machen: MEASUREMENT-ONE;\\\\_.LINE;@;0,0,0;;

Oder auch in einem Command:

(command "_.LINE" (C:MEASURE-ONE) "0,0,0" "")

(progn
  (C:MEASURE-ONE)
  (command "_.LINE" "@" "0,0,0" "")
)

Wenn man den Punkt außerhalb von Commands benötigt, oder sich den Punkt "merken" will:

(if (setq PointOfNoReturn (C:MEASURE-ONE))
      (alert (print PointOfNoReturn))
)

 

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Zitat:

---

Original erstellt von cadffm:
......
Wenn man den Punkt außerhalb von Commands benötigt, oder sich den Punkt "merken" will:

Code:

---

(if (setq PointOfNoReturn (C:MEASURE-ONE))
      (alert (print PointOfNoReturn))
)

---

---

... besten Dank ... !

------------------
@edo...

..............................................
SO EINFACH WIE MÖGLICH, ABER NICHT EINFACHER !
..............................................

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

---

Hey Pam,

der Vorschlag von charlieBV ist meiner Meinung nach der Beste. Ohne Zusatzprogrammierung.

Objektfang "Hilfslinie" aktivieren (Neben Endpunkt natürlich). Polar aktivieren.
Dann Startpunkt des Bogens zeigen, entlang des Bogens fahren, Länge bzw. Abstand über die Tastatur eintippen und Enter drücken. Dann liegt der Startpunkt der Linie exakt in der über die Tastatur angegebenen Bogenlänge.

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Dazu ist weder Polar noch Endpunkt erforderlich. Fangfunktion HIL allein reicht völlig aus.

Jürgen

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