---

hallo zusammen

es wurde zwar glaube mal vor einer weile behandelt, muss das thema aber nochmal aufgreifen

wie können denn die deckenhöhen nach den querprofillinien ausgerichtet werden - insbesondere wenn die strasse ihre richtung stark ändert.

danke

gruss

guido

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

---

leidet antwortet keiner ?

Oder wie erstellt ihr die Deckenhöhen im Lageplan ?

Gruss

Guido

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

---

Hallo Guido,

entweder verstehe ich Dein Problem nicht ganz, oder Du hast die Vorgehensweise im Civil nicht verstanden:
1. Profilkörper erstellen
2. Querprofillinien erstellen
3. Querprofilpläne erstellen = Querschnitte zeichnen lassen

Deine Frage deutet an, dass Du den umgekehrten Weg gehen willst - aus Querschnitten ein Straßenkörper erstellen. Das ist so erst mal nicht vorgesehen. Aber man könnte aus den Höheninformationen in den Querprofilen und den Lageinformationen der Querprofillinien im Lageplan Punkte konstruieren, daraus ein DGM basteln und sich somit eine Straßenoberfläche interpolieren. Je nachdem, wie Deine Ausgangsdaten aussehen, kann das aber relativ viel händische Arbeit bedeuten. Da müsstest Du mal mehr Info rauslassen, was Du hast und was Du willst. Sonst stochern wir hier im Nebel.

Grüße
DF

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

---

Deckenhoehen.pdf

hallo

nein das habe ich schon verstanden.

ich möchte nur zum schluss einen lageplan erstellen mit den deckenhöhen. im civil sind diese geplanten deckenhöhen dann aber alle in eine richtung ausgerichtet und nicht nach den qp linien bzw. der achse. anbei ein plan wie es aussehen sollte, ich aber so in civil noch nicht hinbekommen habe

gruss

guido

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

---

Rotate.pdf

Hallo Guido,

aha - es geht also um die Textausrichtung. Es gab mal ein Tool "rotatepoints.dvb" für C3d 2009 (s. a. Beitrag hier, aber der Link, selbst wenn man ihn repariert, funktioniert nicht mehr), das genau das gemacht hat.
Nachteil: es benötigt VBA. Die DVB hab ich noch (->PM). Ansonsten muss sich jemand finden, des es auf .Net portiert. Ich kann es noch nicht.
Grüße
DF

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

---

hallo df

genau das meinte ich und wollte mal hören wie es andere machen. eigentlich schade das es wohl serienmässig wohl nicht geht. mir kam auch schon die idee irgendwie eine elmentkante und deren beschriftung zu benutzen (da richtet sich der text aus) weiss aber nicht wie

guido

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

---

RotatePoints2012.zip

Hallo Zusammen,

die VBA habe ich mal unter C3D 2012 getestet, bis jetzt dreht er die Punkte - aber noch nicht die Texte.
Könnt Ihr das mal probieren? Vielleicht muß noch ein Befehl geändert werden?

Gruß Symantec

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Moin.
Leider funktioniert es nicht unter Civil 3D 2014 
Gibt es ein Update?
Oder weiß jemand welches Tools dies bewerkstelligen kann?

Gruß
Urbat

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

---

Hallo Urbat,

Hast Du einmal eine Beispielzeichnung und eine genauere Beschreibung was nicht funktioniert?
Evtl. hast Du ja nur die benötigten Verweise nicht gesetzt ...

Für Civil 2014 mußt Du im Modul Apps auch Zeilen ändern:

Code:

---

Function GetBaseCivilObjects() As Boolean
    Dim oApp As AcadApplication
    Set oApp = ThisDrawing.Application
    ' NOTE - Always specify the version number.
'    Const sAppName = "AeccXUiLand.AeccApplication.9.0" ' Civil 2012
'    Const sAppName = "AeccXUiLand.AeccApplication.10.0" ' Civil 2013
    Const sAppName = "AeccXUiLand.AeccApplication.10.3" ' Civil 2014
    Set g_oCivilApp = oApp.GetInterfaceObject(sAppName)
    If (g_oCivilApp Is Nothing) Then
        MsgBox "Error creating " & sAppName & ", exit."
        GetBaseCivilObjects = False
        Exit Function
    End If
    Set g_oDocument = g_oCivilApp.ActiveDocument
    Set g_oAeccDatabase = g_oDocument.Database
    GetBaseCivilObjects = True
End Function

---

Grüße
Klaus  

[Diese Nachricht wurde von KlaK am 04. Sep. 2015 editiert.]

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

---

Fehler.pdf

Funktioniert leider immer noch nicht.
Bin kein Programmierexperte.

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

---

Rotate-Point_Verweise.jpg

Dann hast Du die Bibliotheken nicht eingestellt:
Menü - Extra - Verweise
und dann siehe jpg

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

---

Fehler1.jpg

Der Fehler tritt immer noch auf.

Gruß
Urbat

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

---

RotatePoints2014.zip

Dann entferne erst einmal alle Häkchen bei den "Nicht vorhanden"
anschließend aktiviere noch
Autodesk Civil Engineering 10.3 - Land-Objektbibliothek

evtl. klappt es ja auch mit der angehängten ..

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

---

Zeichnung2.dwg

Mit deiner Datei gibt es keine Fehlermeldung, allerdings richtet er die Punkte trotzdem nicht aus.
Vielleicht kannst du es mit der angehängten Datei versuchen.

Gruß
Urbat

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

---

Diese Funktion benötigt eine Achse, Du hast aber nur eine Polyline in der Zeichnung
Erstelle aus der Polylinie eine Achse, dann werden die Blöcke gedreht
Start - Entwurf erstellen - Ausrichtung (eigentliche sollte da Achsen stehen) - Achse aus Objekten erstellen

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

---

Danke für den Hinweis.
Ich hatte es noch auf dem Schirm, dass es auch mit Polylinien funktioniert.
Jetzt funktioniert es tadellos, danke nochmals. 
Unities sind unterwegs.

Gruß
Urbat

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

---

Ach ja, ganz vergessen:
Ich habe gegenüber der ursprünglichen Version 2012 noch die Drehung der Beschriftung bei den Koordinatenpunkten ergänzt.
Wer das nicht braucht muß die Zeile mit pt.LabelRotation wieder auskommentieren, dann werden wie ursprünglich nur die Blocksymbole gedreht und die Beschriftungen bleiben wie im Stil eingestellt lesbar.

Grüße
Klaus 

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

---

Hallo Klaus,
gibt es auch die Möglichkeit, die Punkte rechtwinklig zur gewählten Achse auszugeben? Das ist platzsparender finde ich.

Bin im Programmieren leider auch nicht bewandert.

Gruß

Mario

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

---

Hallo Mario,
im Prinzip kannst Du jeden Winkel berechnen lassen. Verstehe nur gerade nicht wie Du das meinst.
Derzeit werden die Blöcke ja zur Achse hin ausgerichtet. Sollen diese jetzt (mit / ohne Beschriftung) in Achsrichtung lesbar dargestellt werden?

Grüße
Klaus 

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

---

Hallo Klaus
bei mir richtet das Makro die Blöcke bzw. Beschriftung längs zur Achse aus. Ich möchte eine Ausrichtung  des Textes bzw. der Blöcke rechtw. zur Achse. Oder ich bediene das Makro falsch? Am  Ende des Makros gebe ich doch mit zwei Punkten die Achsrichtung ein?

Gruß Mario

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

---

Text.pdf

Hallo Klaus,

ich habe mal ein Bild, wie ich es meine, angehangen. Ist eine PDF.

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

---

Zitat:

---

Original erstellt von MarioP:
,Am  Ende des Makros gebe ich doch mit zwei Punkten die Achsrichtung ein?

---

Nein, damit bestimmst Du die Breite des zu untersuchenden Streifens.
Die Abfragen der Reihe nach:
1. Auswahl der Objekte für den Selectionset (es können nur Blöcke und Civilpunkte ausgewählt werden)
2. Auswahl der Achse
3. Bestimmen der Breite links und rechts der Achse (= max. Offset) Diese kann entweder als Zahl angegeben oder über zwei Punkte bestimmt werden. Achtung, es könnte durch die 3D-Länge zu unerwünschten Effekten kommen.

Zur Änderung der Richtung:
Hier muß im Prinzip nur die Änderung der Punkte links der Achse und die generelle Beschriftungsrichtung geändert werden:

Code:

---

' im Modul Main:

Private Function DO_ROTATE( _

' ( oberes bleibt - Änderungen ab hier für Ausrichtung zur Achse )

'  Diesen Teil auskommentieren
'    'if offset is on the left side flip 180 degrees
'    If off < 0 Then
'        bear = bear + pi
'    End If

'  Diesen Teil ergänzen
  bear = bear - (0.5 * pi)
'  Ende Ergänzen

    'set point's rotation
    pt.Rotation = bear
    pt.LabelRotation = bear
   
OutOfRange:

End Function

---

Natürlich sollte beim Beschriftungsstil der Punkteigenschaften Planlesbarkeit (Lesbar in Planansicht) auf False stehen damit die Beschriftung auch richtig dargestellt wird.

Grüße
Klaus 

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

---

Hallo Klaus,

vielen Dank, funktioniert prima. Ich werde mich mal mit VBA Programmierung auseinandersetzen.

Gruß

Mario

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

---

Wollt Ihr euch wirklich noch VBA antun, wo sich AutoDESK schon seit Jahren aus Lizenzgründen davon trennen möchte?

Da Klaus ja scheinbar etwas Programmiererfahrung hat, kann man das Tool nicht umschreiben auf VB.NET?

------------------
mfg Roman

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

---

ptsalign.LSP

Könnte man schon wenn man es denn brauchen würde ...
Aber ich würde da inzwischen eher die LISP-Variante verwenden, die ist Versionsunabhängiger
Gab es damals im Originalbeitrag, finde ich aber gerade nicht.

Grüsse
Klaus  

[Edit]: Doch noch gefunden ..

[Diese Nachricht wurde von KlaK am 10. Sep. 2015 editiert.]

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Guten Morgen!

Ich habe nun auch die Anforderung Deckenhöhenpläne zu erstellen und wollte die LISP verwenden, um die Texte auszurichten. Das Tool habe ich in Civil 2018 geladen.

Punkte kann ich noch auswählen, dann kommt folgende Fehlermeldung:
Select alignment: ; Fehler: Fehlerhafte Zeichenfolge für ssget-Modus

Ich kenne mich mit Programmierung nicht aus. Kann jemand helfen?

------------------
Grüße!
Michl

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

---

C3D_DeckenhohenausElementkanten.JPG

Hallo,

wenn ihr aus dem Profilkörper Elementkanten ableitet, dann können die Stützpunkte der Elementkante beschriftet werden. Die Beschriftung richtet sich nach der Elementkante und sollte somit die Anforderungen erfüllen. Das sollte dann auch dynamisch auf nachträgliche Änderungen des Profilkörpers reagieren.

Punkte werden dabei keine erstellt. Die könnte man aber zusätzlich aus dem Profilkörper ableiten und auf nicht sichtbar stellen.

Viele Grüße
Gerald

------------------
Gerald Leonhardt
CADsys GmbH Chemnitz

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