---

Hallo werte Gemeinde,

folgendes Problem. Wir haben normale Polylinien mit Erhebungswerten. Diese Erhebungswerte wollen wir, wenn möglich, zentrisch (muss nicht unbedingt) innerhalb der jeweiligen Polylinie oder neben die Polylinie anschreiben lassen.
Hat da jemand eine Idee, wie dies zu bewerkstelligen ist?

Noch ne Frage : Was heisst Erhebung in diesem Zusammenhang im Englischen ACAD?

Danke

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

---

Hi,
Erhebung sollte ELEVation sein. Das bekommst Du mit

Code:

---

(getcname "erhebung")

---

raus -> Rückgabe: "_ELEV"

Zur eigentlichen Frage: welche Programmierkenntnisse nennst Du Dein eigen?
Hast Du Dich schon mit Schriftfeldern beschäftigt? Die können diese Erhebung auslesen/anschreiben.

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

ERHEBUNG = ELEVATION

AutoCAD bietet ohne Topologiebildung (mit MAP-Topologie) keine Möglichkeit, einen Text automatisch in Beziehung zu einem Geometrieobjekt zu plazieren.

Du hast aber mit MAP-Funktionalität folgende Möglichkeiten:

a) Flächen-Topologie bauen, dann mit Topologie-Abfrage sollte es möglich sein, auf die Elevation hinzugreifen
b) Neue Zeichnung erstellen, die bestehende Zeichnung per MAP-Zeichnungszuordnung anhängen und abfragen, bei Abfrage auf 'Eigenschaften ändern' und dort den Text anhängen.
c) die bestehenden Polylinien als SHP oder SDF rausschreiben (Befehl MAPEXPORT) und die Elevation dabei mit ausgeben. Die SHP- bzw. SDF-Daten dann per FDO anhängen und in dessen Darstellungsstil dann den exportierten Wert anzeigen lassen.

Für Variante a) und b) würde ich jetzt mal nicht die Hand ins Feuer legen, da ich nicht 100% sicher bin, ob Du auf die Erhebung tatsächlich hinkommst.

Manueller Weg geht über Schriftfeld und händisch Polylinie für Polylinie durchgehen.

- alfred -

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

---

Leider keinerlei Programmierkenntnisse (Ich schaffe es aber Lisp Files wenigstens umzuDeutschen)

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

---

mal ein codeschnipsel nach Infolage :

(if(and(setq P(car(entsel"\nPolylinie wählen: ")))
      (setq P(entget P))
  )
  (command "_text" (cdr(assoc 10 P)) "" ""(rtos (cdr(assoc 38 P))2 3) "")
)

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

---

Erstmal danke allen, die versuchen mir zu helfen. Habe jetzt mal englische Routinen gesucht, die das vielleicht tun. Was am naehesten dran war ist

;Label finish grade contour

(defun c:lc ()
(defun rtd (a) (/ (* a 180.0) pi))
(defun dxf(code elist)
  (cdr (assoc code elist)) 
)
(setq th (getvar "textsize")
        ts (getvar "textstyle")
        cl (getvar "clayer")
        os (getvar "osmode")
)

(setq ed (entget (car (entsel "Pick contour to be labeled: "))))
  (if (= (DXF 0 ED) "LWPOLYLINE")
    (SETQ txt1 (rtos (DXF 38 ED)2 0))
    (SETQ txt1 (rtos (CADDR (DXF 10 ED))2 0))
  )

(setvar "osmode" 512)
    (setq p1 (getpoint "Pick location for label: "))
        (setvar "osmode" 16384)
       
    (setq a1 (rtd(getangle "Specify angle of label: " p1)))

      (setvar "clayer" "FG-CONT-ELEV")

    (command "text" "s" "SIMPLEX" "M" P1 (* 0.1(GETVAR "DIMSCALE")) a1 txt1)

      (setvar "textsize" th)
    (setvar    "textstyle" ts)
    (setvar    "clayer" cl)
              (setvar "osmode" os)
   
    (PRINC)   
)

Da mault aber Acad immer mit der Currentlayer Variable rum und wie gesagt, da komme ich dann an meine Grenzen. Diese Routine zum laufen zu bringen waere schon die halbe Miete

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

---

Hy

bevor du die Lisp anschmeist mach mal in der Layerverwaltung diesen Layer und schalt ihn aktuell

FG-CONT-ELEV

mal sehn ob es dann weiter geht

CU

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

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

---

hi,
da du sagst das die Zeilen nicht von dir sind, wäre ein Quellenverweis angebracht!
Evtl Quelle oder andere Quelle by lpseifert

zu deiner Frage:
(setvar "clayer" "FG-CONT-ELEV") --> der Layer wird wohl nicht in deiner Zeichnung sein?!
nimm die Zeile raus oder schreib einen Layer rein der vorhanden ist

weitere Probleme könnten in dieser Zeile kommen
(command "text" "s" "SIMPLEX" "M" P1 (* 0.1(GETVAR "DIMSCALE")) a1 txt1)
--> spiele sie eins:eins in der Befehlszeile durch und passe sie deinen Wünschen entsprechend an...

Edit: @cadwomen --> das prog schaltet den Layer aktiv, sofern er vorhanden ist
er muss nicht vorher aktiv geschalten werden

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

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

[Diese Nachricht wurde von Dorfy am 17. Aug. 2010 editiert.]

[Diese Nachricht wurde von Dorfy am 17. Aug. 2010 editiert.]

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