Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  HiCAD - CAD-Software
  Variables Rechteck über 2 Pkt.

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Variables Rechteck über 2 Pkt. (790 mal gelesen)
tavision
Mitglied
Architekt


Sehen Sie sich das Profil von tavision an!   Senden Sie eine Private Message an tavision  Schreiben Sie einen Gästebucheintrag für tavision

Beiträge: 32
Registriert: 03.10.2002

erstellt am: 22. Mrz. 2009 20:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


hicad.jpg

 
Hallo Leute

ich möchte eine Makro erstellen der über zwei Punkte ein Rechteck zeichnet. Diese beiden Punkte sollen Anfangs und Endpunkt der Mittelachse des Rechtecks sein und nicht die Diagonale.

An der Ausrichtung des Rechtecks knabbere ich gerade herum.

Der angehängte Makro erzeugt die unteren Linien im Bild, das obere Recht eck ist das (Teil-)Ziel.
Wobei die Mittellinie nach dem Erzeugen des Rechtecks überflüssig ist.

MAKRO

REM  HICAD-Next VN:1212
REM          HiCAD         
START  59
HNEXT
REM  HiCAD  3 = 3-D SZENE
OPTION  3  59
REM  3D - SZENE  S9= 3D Funktionen
OPTION  19 101
REM  3D FUNKTIONEN  5 = Skizze anlegen
OPTION  5 196
OPTION  ESC
REM  3D - SZENE  3 = Bearbeiten
OPTION  3 101
REM  TEILE  1 = Bearbeiten
OPTION  1 102
REM  BEARBEITEN  2 = Kantenzüge
OPTION  2 106
REM  3D KANTENZUG  4 = 3D Konstrukt.
OPTION  4 137
POINT  #
Rem erste Koordinaten in Vairabel übertragen
%Ax:=z8
%Ay:=z9
Eco
POINT  #
Rem zweite Koordinaten in Vairabel übertragen
%EX:=z8
%EY:=z9
Rem differenzen der Strecken errechnen
%DX:=Ex-AX
%DY:=EY-AY
POINT  INT
REM  3D KANTENZUG  S8= 3D Skizze
OPTION  18 137
REM  3D Skizze  4 = Vieleck
OPTION  4 155
REM    Rechteck
INTEGER 1
POINT  A Ax Ay-dy/2
POINT R DX DY
point esc
END

Eigentliches Ziel des Makros ist es ein Rechteck gleicher Breite (z.B.:100) entlang einer Mittelachse zu verlegen.

Wer kann da helfen?

Danke

------------------
mfg Thomas

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

ch
Mitglied
Dipl.-Ing. (FH) - Studiendirektor i.R.


Sehen Sie sich das Profil von ch an!   Senden Sie eine Private Message an ch  Schreiben Sie einen Gästebucheintrag für ch

Beiträge: 727
Registriert: 27.05.2001

Hicad 2016 2100.1

erstellt am: 23. Mrz. 2009 13:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tavision 10 Unities + Antwort hilfreich

Hallo,

Sie müssen den Drehwinkel noch vorgeben oder den Winkel errechnen über den Tangens!

Können Sie den Drehwinkel vorgeben oder soll der Winkel über die
Punkte P1 und P2 errrechnet werden?

Ist die Breite immer B = 100?


Liebe Grüße

------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
http://home.wms-hn.de/people/teachers/ch/christ/

Hicad Hilfestellungen und Makros:
http://home.wms-hn.de/people/teachers/ch/christ/christ4.html


Stellenangebote für Techniker und Konstrukteure:
http://home.wms-hn.de/people/teachers/ch/christ/christ3.html

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

tavision
Mitglied
Architekt


Sehen Sie sich das Profil von tavision an!   Senden Sie eine Private Message an tavision  Schreiben Sie einen Gästebucheintrag für tavision

Beiträge: 32
Registriert: 03.10.2002

erstellt am: 23. Mrz. 2009 16:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Herr Christ

das Rechteck soll über die zwei Punkte P1 und P2 ausgerichtet werden.
Im Prinzip möchte ich das Recheck so wie einen Träger im STB verlegen.

------------------
mfg Thomas

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

ch
Mitglied
Dipl.-Ing. (FH) - Studiendirektor i.R.


Sehen Sie sich das Profil von ch an!   Senden Sie eine Private Message an ch  Schreiben Sie einen Gästebucheintrag für ch

Beiträge: 727
Registriert: 27.05.2001

Hicad 2016 2100.1

erstellt am: 24. Mrz. 2009 10:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tavision 10 Unities + Antwort hilfreich

Hallo!

wie wäre es mit diesem Makro!
Rechteckbreite  2x50 mmm!

REM  HICAD-Next VN:1212
REM          HiCAD         
START  59
HNEXT
REM  HiCAD  3 = 3-D SZENE
OPTION  3  59
REM ALT2
OPTION  22  0
REM  KOORD. SYSTEM  9 = Verändern
OPTION  9 152
REM  PROJEKTION  7 = Draufsicht
OPTION  7 111
OPTION  ESC
OPTION  ESC
OPTION  ESC
REM  BERECHNUNG  BERECHNUNG
OPTION  3 159

REM  3D - SZENE  3 = Bearbeiten
OPTION  3 101
OPTION  ESC
REM  3D - SZENE  S9= 3D Funktionen
OPTION  19 101
REM  3D FUNKTIONEN  5 = Skizze anlegen
OPTION  5 196
OPTION  ESC
REM  3D - SZENE  3 = Bearbeiten
OPTION  3 101
REM  TEILE  1 = Bearbeiten
OPTION  1 102
REM  BEARBEITEN  2 = Kantenzüge
OPTION  2 106
REM  3D KANTENZUG  4 = 3D Konstrukt.
OPTION  4 137

POINT  #
Rem erste Koordinaten in Vairabel übertragen
%Ax:=z8
%Ay:=z9
Echo
POINT  #
Rem zweite Koordinaten in Vairabel übertragen
%EX:=z8
%EY:=z9

%XP:=Ex-Ax
%YP:=Ey-Ay

%t:=YP/xP

%TW:=atan(t)


POINT  P 90+tw 50
POINT  R -xp -yp
POINT  P -(90-TW) 2*50
POINT  R xp yp
POINT  P 90+tw 50

POINT  ESC
POINT  ESC
OPTION  ESC
REM  BEARBEITEN  2 = Kantenzüge
OPTION  2 106
REM  3D KANTENZUG  S8= 3D Skizze
OPTION  18 137
REM  3D Skizze  S4= LE korrigieren
OPTION  14 155
REM    LE trimmen
INTEGER 1
POINT  A ex-2 ey-2
POINT  ESC
OPTION  ESC
OPTION  ESC
OPTION  ESC
END

Löst das Ihr Problem?

Ohne Gewährleistung!

------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
http://home.wms-hn.de/people/teachers/ch/christ/

Hicad Hilfestellungen und Makros:
http://home.wms-hn.de/people/teachers/ch/christ/christ4.html


Stellenangebote für Techniker und Konstrukteure:
http://home.wms-hn.de/people/teachers/ch/christ/christ3.html

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

tavision
Mitglied
Architekt


Sehen Sie sich das Profil von tavision an!   Senden Sie eine Private Message an tavision  Schreiben Sie einen Gästebucheintrag für tavision

Beiträge: 32
Registriert: 03.10.2002

erstellt am: 25. Mrz. 2009 21:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Herr Christ,

der este Eindruck ist sehr Gut.
Danke.

Dieser ist nur ein erster schritt zu weiteren Anpassungen die ich dan in diesen Rahmen, bveröffentlichen möchte.

------------------
mfg Thomas

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz