|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 21.06.2010 um 12:19 Uhr (0)
Ich habe häufig schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen zu zeichnen (und glaube dabei nicht allein zu sein).Ist es möglich einen nächsten Wandteil nach dem Zeichnen des vorherigen ohne Hilfskonstruktion „1.Kreis für Diagonale vom Anfangspunkt der vorherigen Wandseite – 2.Kreis für Länge der nächsten Wandseite vom Endpunkt der vorherigen Wandseite“ durch Eingabe der Längen der Diagonale und der nächsten Wand zu zeichnen?Kennt jemand eine Lisp oder VBA Routine mit der so etwas komfor ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 21.06.2010 um 14:15 Uhr (0)
Hallo Yvonne,tut mir leid, wenn ich mich zu kompliziert ausgedrückt habe. Ausserdem bin ich kein geübter Zeichner.Ich habe eine Skizze als pdf beigelegt. Ich zeichne den ersten Wandteil von Punkt 1 bis 2.Um den nächsten Wandteil mit Ende Punkt 3 zu zeichnen steht mir die Länge dieses Wandteils und die Raumdiagonale zur Verfügung. Mit @x,y wird das wohl nicht gehen.Gruß Walter
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 21.06.2010 um 14:38 Uhr (0)
Danke jedenfalls für Deine Antwort.Vieleicht kennt jemand anderer eine bessere Lösung. Es müsste doch eine kleine Routine für so einen Fall geben.In den meisten Altbauten sind Räume schiefwinkelig. Und bei Kleinumbauten zahlt es sich nicht unbedingt aus eine Punktaufnahme vom Geometer machen zu lassen...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 21.06.2010 um 22:54 Uhr (0)
Hallo Lothar,danke für Deine Anregung. Das ist sicherlich eine Erleichterung. Aber auch um das Liniennetz bei nichtrechtwinkeligen Wänden zu zeichnen benötige ich die zwei Hilfskreise. Da muss es doch eine Routine geben. Derartige Räume sind doch keine Seltenheit.PS: Für die Flächenberechnung von allgemeinen Dreiecken über die Eingabe von drei Seitenlängen habe ich in VBA für Excel eine Funktion mit der Heronschen Flächenformel geschrieben. Das war relativ einfach. Aber für das Schreiben von Routinen für A ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 25.06.2010 um 23:10 Uhr (0)
In 2D habe ich mittlerweile Fortschritte gemacht. Im Prinzip geht es um das Zeichnen eines allgemeinen Dreiecks durch Bekanntsein von drei Seitenlängen. Eine Seite - die Diagonale ist am Ende zu löschen.Autocad kennt keinen Befehl "Dreieck". Auch "Polygon" mit drei Seiten erzeugt nur ein gleichseitiges Dreieck.In einem tschechischem Forum fand ich aber die kostenlose Routine "Triangle": http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6455 (ich hoffe es ist hier nicht untersagt Hinweise auf andere Foren zu ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 25.06.2010 um 23:20 Uhr (0)
Tut mir leidC mit unmittelbar danach einem Doppelpunkt und unmittelbar danach dem Text "Dreieck" wird von der Forensoftware offenbar als Smiley interpretiert...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 25.06.2010 um 23:17 Uhr (0)
Jetzt sollte der Code richtig dargestellt werden:Code:(defun c:Dreieck (/ PA PB PC W A B C cosALPHA ALPHA) (if(and(setq PA (getpoint "
ECKPUNKT A :")) (setq W (getangle PA "
Winkel der Seite c :")) (setq A (getreal "
Länge der Seite a : ")) (setq B (getreal "
Länge der Seite b : ")) (setq C (getreal "
Länge der Seite c : ")) ) (progn (setq PB(mapcar + PA (list(*(cos W)C)(*(sin W)C) 0.0))) (setq cosALPHA(/(-(+(* B B)(* C C))(* A A))(* 2 B C))) (setq ALPH ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 26.06.2010 um 14:17 Uhr (0)
Hallo Yvonne,danke für Deine Hilfe. Jetzt wird der Code richtig ohne Smiley dargestelltMittlerweile konnte ich die lisp auch so ändern, dass keine Polylinien sondern einzelne Linien gezeichnet werden. So ist es einfach die Diagonale zu löschen:Code:(defun c:Dreieck (/ PA PB PC W A B C cosALPHA ALPHA) (if(and(setq PA (getpoint "
Anfangspunkt :")) (setq W (getangle PA "
Winkel der ersten Seite :")) (setq C (getreal "
Länge der ersten Seite : ")) (setq A (getreal "
Länge der zweiten Seite : ")) ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 27.06.2010 um 11:52 Uhr (0)
Es ist mir gelungen die lisp für die gewünschte Wanderstellung umzuschreiben:An eine VORHANDENE Wand Punkt1 bis Punkt2 soll ein weiterer Wandteil Punkt2 bis Punkt3 gezeichnet werden.Bekannt ist die Länge der Wand von Punkt2 bis Punkt3 sowie der Abstand Punkt1 bis Punkt3 (die Raumdiagonale).Der Befehl lautet: Wand von Punkt(Punkt2 klicken), Wandlänge(Länge eingeben), Bezugspunkt(Punkt1 klicken), Abstand vom Bezugspunkt(Abstand eingeben)Wand von Punkt2 bis Punkt3 wird gezeichnet.Code:(defun c:WandLA (/ PA PB ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
AutoCAD Architecture ACA (ADT) : Autocad Architecture schiefwinkelige Räume aus Aufmaßen von Raumseiten und Diagonalen
Walter Lindner am 27.06.2010 um 13:17 Uhr (0)
Hallo Torsten,toll, Danke! Da sieht man eben wie die Könner programmieren. Unsereins ein einfacher Architekt hat es da etwas schwerer. Eine kleine Info: Beim Laden wird missverständlich ZeichneDreieck statt dem eigentlich zur Verfügung stehenden ZeichneRaum Befehl gemeldet. Vieleicht findet sich noch jemand der das Programm etwas eleganter umschreibt, damit man nicht "blind" im Raum Werte eingeben muss.Ich bitte mir meine sanfte Kritik an der noch nicht zur Verfügung stehenden Dreiecksroutine in Autocad zu ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
