Böschungsschraffur Acad
Michael Hagmaier
diese Arbeit erledigt. In anderen CadProgrammen gibts das ja auch
standardmässig....
-Weiss jemand rat??
Danke im voraus,
Michael Hagmaier
Johannes Dressel
Halo Michael,
wie machst Du es denn bisher?
Ich kenne zwei Möglichkeiten:
1. Böschungslinie als Polylinie darstellen und dann entlang der P-Linie
einen entsprechenden Block "teilen" -
2. Ein kleines Lispprogrämmchen
Gruß
Johannes
Stefan Lagotzki
> Böschungen schraffieren ist blöd. Suche deshalb ein Tool für Acad, dass
> diese Arbeit erledigt. In anderen CadProgrammen gibts das ja auch
> standardmässig....
Ich hab auch noch einen Rat: Definiere Dir einen Linientyp
dafuer. Das klappt auch bei den meisten Boeschungen.
Aber noch eine Frage: meinst Du Schnitt oder Draufsicht? In
der Draufsicht geht es mit einem Linientyp eigentlich recht
gut. Im Schnitt wuerde ich eher ein Blocksymbol verwenden.
Ein Ansatz fuer die Draufsicht:
*Boeschung, Eine Boeschungslinie in der Draufsicht
A,20,[TRACK1,ltypeshp.shx,s=5,y=-5],10,[TRACK1,ltypeshp.shx,s=10,y=-10],10
Hier erhalte ich *im* Uhrzeigersinn die Zacken nach innen.
Das Gegenteil ist auch moeglich, hier erhalte ich *gegen* den
Uhrzeigersinn die Zacken nach innen.
*Boeschung_invers, Eine Boeschungslinie in der Draufsicht
A,20,[TRACK1,ltypeshp.shx,s=5,y=5],10,[TRACK1,ltypeshp.shx,s=10,y=10],10
Bitte die Zeilen gegebenenfalls umbrechen. Die Linientypdefinition
gehoert in eine Zeile.
Die Masze kann/muss/sollte man sich anpassen und bitte auf LTSCALE,
auf die objektgebundene Linientypskalierung und unbedingt auf PSLTSCALE
achten.
Soweit erst mal (in Eile) - HTH,
Stefan
.
Thorsten Meinecke
jod> 2. Ein kleines Lispprogrämmchen
Und?
Ich würde sagen Visual Lisp, und zwar wieder die
vlax-curve-Funktionen. Dann könnte man zwischen
zwei Polylinien/Splines (obere/untere Grenzkante)
eine Böschungssignatur auftragen.
Erst die Umrechnung des Inkrements (Abstand der
Böschungslinien; ca. 5 mm * Maßstab) in Kurven-
parameter (vlax-curve-getStartParam, -getEndParam,
-getDistAtParam und etwas Dreisatz).
(setq Param StartParam)
(while (< Param EndParam)
Den Startpunkt der Böschungslinie (-getPointAtParam)
und den Winkel senkrecht zur Tangente ermitteln.
Böschungslinie mit beliebiger Länge in Richtung der
unteren Grenzkante zeichnen und Schnittpunkt mit ihr
ermitteln (vlax-IntersectWith ... acExtend).
Endpunkt der Böschungslinie abwechselnd auf Schnittpunkt
mit unterer und Mittelpunkt zwischen oberer und unterer
Grenzkante ändern.
(setq Param (+ Param DeltaParam))
)
Gruß,
--Thorsten
Was kann man dafür verlangen?
Michael Beyer
Michael Hagmaier
Hauptsächlich brauchen wir die Böschungsschraffuren in der Aufsicht.
Stefan, den Linientyp habe ich auf unsere Bedürfnisse angepasst-
funktioniert ganz gut !
Thorsten, danke das Du mir das Lisp Programm schon halb vorgegeben hast.
Kenn mich damit aber bis jetzt gar nicht aus- beschäftige mich trotzdem mal
damit und versuchs hinzukriegen...
Zur Not gibts ja dann vielleicht schon was fertiges bei Google.
Beste Grüsse,
Michael