---

Folgendes Vorhaben:
Ich wähle 3 Objekte, Text mit Markierblase als Kreis und eine Linie, die auf die Anmerkungsstelle hinweisen soll.
Markiere ich alle 3 Objekte und ändere das eine Linienende auf die zuweisende Stelle, soll die Linie immer zentrisch zum Kreis dargestellt werden.
Stehe gern offen für Ideen ?!

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

... Zentrumspunkt vom Kreis hast du, ebenfalls den Kreisradius.
Du kannst doch vom neuen Zielpunkt die Strecke zum Kreismittelpunkt abzüglich des Kreisradius berechnen - fertig.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Objektreaktor ...

oder MLeader mit attributierem Block verwenden...

Sieht nach sowas wie einem Positionsnummertool aus .... sollten sich Beispiele für finden lassen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Hi!
Dachte ich mir doch, nur Einwürfe, nix konkretes 

Handhabung Objektreactor ?

Das Erzeugen eines Nummerierungstools ist nicht das Problem, sondern die Inteligenz, die in der "Fahne" (strich von Kreistext zum Beschriftungsobjekt), dass wenn der Nummerierungstext verschoben wird, es auch die Fahne entspr. mitzieht

Soweit bin ich bisher gekommen, ich erzeuge ein Symbol bspw. "DBNR" oder "LEDNR" und setze daran eine Linie, die wiederum unterschiedl. je nach Block gezeichnet wird (ist aber vorerst für den Objektreaktor egal)

Code:

---

(defun c:brNr ( / )

  (defun fahne ()
      (cond
          ((= blk "DBNR")
          (apply '(lambda (p1 p2) (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))))
                  (list (cdr (assoc 10 (entget (entlast)))) (getpoint (cdr (assoc 10 (entget (entlast)))) "\nSelect Fahne zielpunkt"))
                  )
          )
          ((= blk "LEDNR")
          (setq p1 (cdr (assoc 10 (entget (entlast)))))
          (setq p2 (getpoint p1 "\nSelect Fahne zielpunkt"))
         
          (apply '(lambda (p1 p2) (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))))
                  (list (polar p1 (angle p1 p2) (* 1.5 dsc)) p2)
                  )
          )
          (T "\n Block nicht vorhanden! ")
          )
    )
 
  (setq dsc (CD:USR_ABFRAGE "\nText höhe: " (if (null dsc) (setq dsc 1.0) dsc)))
  (setq tx (CD:USR_ABFRAGE "\nBrunnen Bezeichnung: " (if (null tx) (setq tx "S") tx)))
  (setq num (CD:USR_ABFRAGE "\nBrunnen Nummer: " (if (null num) (setq num 101) num)))
  (setq blk (strcase (CD:USR_ABFRAGE "\nBrunnen Block: " (if (null blk) (setq blk "DBNR") blk))))
 
  (while
    (progn
      (setq pt (getpoint "\nPositon "))
      (cond
        ((= "DBNR" blk)
        (command "insert" blk pt dsc dsc 0 (strcat tx " " (itoa num)) (rtos 0 2 2))
        (setq num (1+ num))
        (fahne)
        )
        ((= "LEDNR" blk)
        (command "insert" blk pt dsc dsc 0 tx (itoa num) 0.00 0.00)
        (setq num (1+ num))
        (fahne)
        )
        (T "\n Block nicht vorhanden! ")
        )
     
      )
    )
  (princ)
  )

---

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

ok .. noch ne Idee: Linie bis zum Kreismittelpunkt und dann ne Abdeckung für den Kreis mit der Linie darunter ...

oder guck dir mal die "geometrischen Abhängigkeiten" an .. kann man evtl auch was draus basteln

und wen Objektreaktor ... der Hängt an Kreisobjekt und Linienobjekt und wenn sich an einem Objekt was ändert, wird der zweite Linienpunkt in der Doit-Funktion neu berechnet und nachgezogen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

UH-BallonasMLeader.JPG UH-BALLONasMLEADER.dwg

Warum nicht MLEADER/MFÜHRUNG?
ist doch für die beschriebene Aufgabe optimal geeignet - oder hab ich die Aufgabe mangels Beispielzeichnung nicht verstanden?

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

Udo Hübner
www.CAD-Huebner.de

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

---

Wir sind zwar im Lisp-Brett, aber muß es unbedingt was gelispeltes sein? Warum nicht einfach eine parametrische Abhängigkeit "zusammenfallend" zwischen dem Zentrumspunkt des Kreises und der Linie (Objekt) sowie eine weitere Abhängigkeit "zusammenfallend" zwischen der Kreislinie (Objekt) und dem Endpunkt der Linie?

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Schon mal bei LeeMac gewesen - http://www.lee-mac.com/ - ich glaube, dort gibts/(gabs?) zumindest was ähnliches (als Anschaungsmaterial?)

------------------
Schöne Grüße
Ernst

www.geopaint.at

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