|
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 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 |
|
Rund um AutoCAD : Dreiecke mit 3 bekannten Seiten
Walter Lindner am 27.06.2010 um 06:25 Uhr (0)
Ich habe es einmal versucht. Im Prinzip scheint es nicht so schlecht zu sein, aber da ich mich mit lisp nicht gut auskenne sind meine Befehle für W und C vermutlich falsch.Code:(defun c:LinieLA (/ PA PB PC W A B C cosALPHA ALPHA) (if(and(setq PB (getpoint "
Linie von Punkt : ")) (setq A (getreal "
Linienlänge : ")) (setq PA (getpoint "
Bezugspunkt :")) (setq B (getreal "
Abstand von Bezugspunkt : ")) ) (progn (setq W (getangle PA PB)) (setq C (getreal PA PB)) (setq cosALPHA(/(-(+(* B B ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Dreiecke mit 3 bekannten Seiten
Walter Lindner am 27.06.2010 um 11:58 Uhr (0)
Es ist mir gelungen die lisp auch 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 ( ...
|
| In das Form Rund um AutoCAD wechseln |
|
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 |
|
Rund um AutoCAD : Dreiecke mit 3 bekannten Seiten
Walter Lindner am 27.06.2010 um 06:44 Uhr (0)
Jetzt habe ich es doch alleine geschafft. Trotzdem vielen Dank an Cadmium, denn ohne seiner Lisp wäre es mir nicht möglich gewesen.Code:(defun c:LinieLA (/ PA PB PC W A B C cosALPHA ALPHA) (if(and(setq PB (getpoint "
Linie von Punkt : ")) (setq A (getreal "
Linienlänge : ")) (setq PA (getpoint "
Bezugspunkt :")) (setq B (getreal "
Abstand von Bezugspunkt : ")) ) (progn (setq W (angle PA PB)) (setq C (distance PA PB)) (setq cosALPHA(/(-(+(* B B)(* C C))(* A ...
|
| In das Form Rund um AutoCAD wechseln |
