Zeichnen von Objekten (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Jetzt verfügbar: NVIDIA RTX PRO 6000 Blackwell Server Edition, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Zeichnen von Objekten (1093 mal gelesen)

cadplayer
Ehrenmitglied
CADniker

Senden Sie eine Private Message an cadplayer

Schreiben Sie einen Gästebucheintrag für cadplayer

Beiträge: 1838
Registriert: 28.04.2009

Windows 10
64bit system
Autocad Civil3d 2020 ENGLISH
Visual Studio 2019
OpenDCL.Runtime.9<P>

erstellt am: 15. Jul. 2011 12:58

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

ich möchte ein Rechteck anhand von 3 gemessenen Punkten zeichen. Jetzt dachte ich mir nichts leichter als das, aber denkste:

(if(setq P1 (getpoint "\nselect 1. point: ")
P2 (getpoint "\nselect 2. point: ")
P3 (getpoint "\nselect 3. point: ")
)
(progn
(command "ucs" P1 P2 "")
(command "rectang" P1 P3)
(command "ucs" "w" "")
)
)

Das funktioniert nicht, wo hackt es?

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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 15. Jul. 2011 13:30

<-- editieren / zitieren -->

Unities abgeben:

Nur für cadplayer

Dein Ansatz weiterverfolgt sollte es wohl so aussehen

(command "_ucs" "_w" "")
(if(setq P1 (getpoint "\nselect 1. point: ")
P2 (getpoint "\nselect 2. point: ")
P3 (getpoint "\nselect 3. point: ")
)
(progn
(command "_ucs" P1 P2 "")
(command "_rectang" (trans P1 0 1) (trans P3 0 1))
(command "_ucs" "_w" "")
)
)

die vorhereingegebenen Punkte mssen auf das neuen Koordinatensystem umgerechnet werden

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

cadplayer
Ehrenmitglied
CADniker

Beiträge: 1838
Registriert: 28.04.2009

Windows 10
64bit system
Autocad Civil3d 2020 ENGLISH
Visual Studio 2019
OpenDCL.Runtime.9<P>

erstellt am: 15. Jul. 2011 13:58

<-- editieren / zitieren -->

Unities abgeben:

Super danke Thomas

Vom Prinzip her wird die weise Linie (Rechteck) ganz richtig gezeichnet. Allerdings mein Denkfehler, ich will ja den dritten Punkt mit einbeziehen.
Also die Basislinie bildet von P1 nach P2 und rechtwinklig soll P3 abgelotet. Kann mir einer einen Denkansatz geben, wie ich das bewerkstelligen kann.

[Diese Nachricht wurde von cadplayer am 15. Jul. 2011 editiert.]

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

Meldin
Mitglied

Senden Sie eine Private Message an Meldin

Schreiben Sie einen Gästebucheintrag für Meldin

Beiträge: 404
Registriert: 15.07.2011

ACA2020
Windows11

erstellt am: 15. Jul. 2011 15:03

<-- editieren / zitieren -->

Unities abgeben:

Nur für cadplayer

Hallo,
reicht das nicht schon? Hab nämlich nicht ganz verstanden wie es gemeint war.

Code:
(command "_rectang" (getpoint)"D" "0" "D" (getpoint))

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

cadplayer
Ehrenmitglied
CADniker

Beiträge: 1838
Registriert: 28.04.2009

Windows 10
64bit system
Autocad Civil3d 2020 ENGLISH
Visual Studio 2019
OpenDCL.Runtime.9<P>

erstellt am: 15. Jul. 2011 15:03

<-- editieren / zitieren -->

Unities abgeben:

Lasst Euch gern Zeit mit der Anwort - ich bin mal 2 Wochen weg

Sorry gleich gepostet

(command "_rectang" (getpoint)
"D" ...
"0" ...was machen denn die Einträge, weil sie bei der englisch-version nicht anspringen
"D" ...
(getpoint))

[Diese Nachricht wurde von cadplayer am 15. Jul. 2011 editiert.]

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

Meldin
Mitglied

Beiträge: 404
Registriert: 15.07.2011

ACA2020
Windows11

erstellt am: 15. Jul. 2011 15:10

<-- editieren / zitieren -->

Unities abgeben:

Nur für cadplayer

Natürlich das "D" (Drehung) durch den Englischen kürzel ersetzen.

[Diese Nachricht wurde von Meldin am 15. Jul. 2011 editiert.]

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

Anzeige:	Infos zum Werbeplatz >>
isaleCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects. isaleCAD has been developed for Water Transmission Line Design. It is for Drawing / Modelling / Planning / Design / Analyze the water transmission line. The software works under AutoCAD or ZWCAD.

cadplayer
Ehrenmitglied
CADniker

Beiträge: 1838
Registriert: 28.04.2009

Windows 10
64bit system
Autocad Civil3d 2020 ENGLISH
Visual Studio 2019
OpenDCL.Runtime.9<P>

erstellt am: 15. Jul. 2011 15:23

<-- editieren / zitieren -->

Unities abgeben:

Warum kompliziert, wenn es auch einfach geht...
Besten Dank für den Kommentar.

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

isaleCAD CAD APP für Tiefbau, Umwelt