---

Hallo

gibt es ein LISP oder gar regelwerkzeug, das Punkte die zuerst auf der Ebene `Null` befinden, auf eine im Text angegebene $Höhe automatisch aufhebt?

Ich habe da vom Architekten einen Punktsatz, wo alle Höhenpunkte sich auf der Ebene Null befinden. Dazu gibt es eine Höhenangabe als Text daneben stehend.
Bisher muss ich immer in Eigenschaften den Punkt auf die entsprechende Höhe heben.

((Es gibt im umgekehrten Prinzip so etwas ähnliches mit den Gefälleangaben (`prozent.lsp`). auf einer schiefen Linie klicke ich zwei Punkte an, danach den Text und bekomme automatisch die Angabe zum Gefälle in %.))

Weiss da jemand etwas?

Danke

Lg

L.

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

---

Moin,

sowas (wie auch einige weitere Deiner Wünsche der letzten Zeit) geht mit dem passenden Vertikalprodukt (wie C3D).
Alternativ als beauftragtes tool von einem der hier zahlreich vertretenen CAD-Dienstleister.

Mit Bordmitteln im nackten ACAD geht da meiner Meinung nach nichts.
Mögliche Suchbegriffe für google, um eine evtl. vorhandene lisp-Routine zu finden wären z.B. +text +höhe +autocad site:cad.de

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Hi,

>> einen Punktsatz, wo alle Höhenpunkte sich auf der Ebene Null befinden. Dazu gibt es eine Höhenangabe als Text daneben

Wenn es sich bei 'Punktsatz' um AutoCAD-Punkte handelt und die Texte losgelöst daneben stehen, dann ist mal das Problem, dass die Elemente voneinander nichts wissen, der Punkt weiß nicht, welcher Text zu ihm gehört.

Dazu kommt, dass oft zur besseren Lesbarkeit der Text (in Relation zur Punktposition) verschoben wird, mal rechts neben dem Punkt, mal oberhalb des Punktes, ... ==> spätestens jetzt ist nix mehr mit automatischer Erkennung, welcher Punkt zu welchem Text gehört.

Eine realistische Chance, das zu automatisieren sehe ich nur, wenn es Blöcke und Attribute wären.

- alfred -

------------------
www.hollaus.at

---

.. der einfachere Weg ... wie wäre es einfach mal nach dem 3D Punktsatz zu fragen beim Architekten ? , evtl hat er den ja auch

nd

------------------
cadwomen™

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

---

Hallo Alfred

ich meinte das auch so, dass ich z.B. zuerst den Text anwähle und danach den Punkt. So wie beim Blockswitch also Blocktauschfunktionen.

Architekten frage ich in der Regel sowieso zuerst.

@ Die Anderen:
Manchnmal habven die es aber nicht besser und manchmal ist der aufwand mit so einer Funktion geringer als ein bis mehrere Anrufe zu tätigen + Wartezeit.

Lg

L.

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

---

mhh

also
Befehl . Punkt wählen , Z Höhe eingeben ( alternative Text wählne, aus der dann die Z Koord gemacht wird ) und fertig ?

sollte mit lisp gehn , aber fertig geben .. nein

CU cw

------------------
cadwomen™

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

---

q&d :

(defun c:H2P(/ TEXT P X)
  (and(or(and(setq TEXT(car(entsel "\nText: ")))
            (setq TEXT(entget TEXT))
            (=(cdr(assoc 0 TEXT))"TEXT")
            (setq TEXT (distof(cdr (assoc 1 TEXT))))
        )
        (prompt "\nKein interpretierbarer Text gewählt.Abbruch")
      )
      (or(and(setq P(car(entsel "\nPunkt: ")))
            (setq P(entget P))
            (=(cdr(assoc 0 P))"POINT")
            (setq X (cdr(assoc 10 P)))
        )
        (prompt "\nKein Punkt gewählt.Abbruch")
       
      )
      (entmod(subst (cons 10 (list(car X)(cadr X)TEXT))(assoc 10 P)P))
  )
) 
 

Automatisch könnte das so laufen
1. Auswahlsatz über alle Punkte
2. Auswahlsatz über alle Texte
3. Zuordung der Punkte zu den Texten mit geringstem Abstand
4. Modifizierung der Punkte ...

wobei .. Pkt3.) nicht unbedingt immer eindeutig sein muss und hier Fehler entstehen können

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

das sieht sehr gut aus vielen Dank.

Es funktiniert jedoch nur bei der auswahl einer Höhenangabe.

Ich muss den Vorgang punkt für punkt machen.

Aber immerhin ist das schon eine she rgrosse erleichterung.

Danke Dir nochmals..

Lg

l.

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

---

Befehl: nochmal
Zu wiederholenden Befehlsnamen eingeben: h2p

wiederholt das LISP solange du gültig wählst.

Ansonsten könnte man das Lisp auch umschreiben.

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

---

Hallo Ladminator,

womöglich kann man das automatisieren. Wenn eine eindeutige Zuordnung eines Punktes zu einem nebenstehenden Text optisch möglich ist, kann ich womöglich mit einer Lösung aufwarten. Allerdings, das zeigt die Erfahrung, wird die programmtechnische Suche von Texten in der Nähe eines Punktes nicht zu 100% korrekte Ergebnisse liefern.
Das Beste ist, du stellst mal eine Bsp-Zeichnung hier ein (oder mailst mir die), dann kann ich schauen, ob der vorhandene Ansatz tatsächlich anwendbar ist.

Bei Fragen ...

Grüße Holger

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

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

---

Höhenpunkte.zip

Hallo Holger

das ist eine gute Idee von Dir. Ich schicke Dir diese Datei per Anhang.

Hallo Fuchsi
Es geht nach wie vor nur bei einem Punkt, also mit Befehlswiederholung pro Höhenpunkt.

Lg

L.

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

---

keine Umlaute in den Anhängen bitte !!

für die wiederholung z.B.

(defun c:H2P(/ TEXT P X)
  (while
  (and(or(and(setq TEXT(car(entsel "\nText: ")))
            (setq TEXT(entget TEXT))
            (=(cdr(assoc 0 TEXT))"TEXT")
            (setq TEXT (distof(cdr (assoc 1 TEXT))))
        )
        (prompt "\nKein interpretierbarer Text gewählt.Abbruch")
      )
      (or(and(setq P(car(entsel "\nPunkt: ")))
            (setq P(entget P))
            (=(cdr(assoc 0 P))"POINT")
            (setq X (cdr(assoc 10 P)))
        )
        (prompt "\nKein Punkt gewählt.Abbruch")
       
      )
      (entmod(subst (cons 10 (list(car X)(cadr X)TEXT))(assoc 10 P)P))
  )
  )
) 

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

---

Zitat:

---

Hallo Fuchsi
Es geht nach wie vor nur bei einem Punkt, also mit Befehlswiederholung pro Höhenpunkt.

---

Hm. Wie soll es denn sonst funktionieren?

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

---

Zitat:

---

Original erstellt von Ladminator:
Hallo Holger

das ist eine gute Idee von Dir. Ich schicke Dir diese Datei per Anhang.
...

---

Häng die Datei doch bitte OHNE UMLAUT im Dateinamen erneut an. So kann man die nicht öffnen.

Holger

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

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

---

Hoehenpunkte.zip

Hallo Holger

hier die Datei ohne Umlaut.

Eine weitere Frage ist, ob man die Funktrion auch umkehren kann.
Das heisst man hat einen Höhenpunkt mit einer Höhe z unter Eigenschaften
und klickt danach einen text an, der die entsprechende Höhe anzeigt.

Lg

L.

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

---

Zitat:

---

Original erstellt von Ladminator:

Eine weitere Frage ist, ob man die Funktrion auch umkehren kann.
Das heisst man hat einen Höhenpunkt mit einer Höhe z unter Eigenschaften
und klickt danach einen text an, der die entsprechende Höhe anzeigt.

---

Sicher geht das ...
schau dir hier auch mal Schriftfelder an.
Automatisieren mit neuem Text absetzen oder schreiben in vorhandenen Texten bzw mit Schriftfeldern ist alles möglich aber das sprengt IHMO den Rahmen der Forenhilfe.
Mit etwas Geduld findest du vllt. im Netz ein fertiges Tool oder eine Demo mit ausreichender Funktionalität.
Oder du lässt es dir für schmales Geld proggen, von jemanden der sich damit auskennt und der seine Brötchen damit verdient. 
(PS ich zähle mich nicht zu dieser Randgruppe  aber ich sehe du hast bereits die ersten Kontakte geknüpft)

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Hoehenpunkte_COD.zip

... anbei mal eine Ergebnisdatei:

In der habe ich o.g. Tool mal ohne weitere Änderungen angewandt. Anmerkungen habe ich in die Zeichnung eingefügt.

Bei Fragen ...

Grüße Holger

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

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