| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: 2. Punkt von GETDIST (913 mal gelesen)
|
ckonzept Mitglied
Beiträge: 18 Registriert: 21.09.2003
|
erstellt am: 09. Mrz. 2004 10:44 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Mrz. 2004 10:46 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
|
ckonzept Mitglied
Beiträge: 18 Registriert: 21.09.2003
|
erstellt am: 09. Mrz. 2004 10:51 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Mrz. 2004 10:56 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
na dann vielleicht mit (getvar "LASTPOINT") ansonsten, wegen Gummiband : (setq PKT1 (getpoint " Erster PUNKT :")) (setq PKT2 (getpoint PKT1 " Zweiter PUNKT :")) (setq ENTF (mapcar '- PKT1 PKT2)) (setq ENTF (sqrt (+(*(car ENTF)(car ENTF)) (*(cadr ENTF)(cadr ENTF)) (*(caddr ENTF)(caddr ENTF)) ) ) ) ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 09. Mrz. 2004 10:57 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
und wer vor Command nicht zurückschreckt der kann einfach eine Line zeichnen lassen die wieder gelöscht wird. ------------------ - Sebastian - [Diese Nachricht wurde von cadffm am 03. Dez. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ckonzept Mitglied
Beiträge: 18 Registriert: 21.09.2003
|
erstellt am: 09. Mrz. 2004 10:59 <-- editieren / zitieren --> Unities abgeben:
|
ckonzept Mitglied
Beiträge: 18 Registriert: 21.09.2003
|
erstellt am: 09. Mrz. 2004 11:18 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 09. Mrz. 2004 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Mrz. 2004 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
Die Systemvariable LASTPOINT speichert den letzten eingegebenen Punkt als BKS-Koordinate des aktuellen Arbeitsbereiches. Wenn du nach GETDIST noch woanders hinklickst, ist das Ergebnis natürlich nicht das von dir erwünschte! Deshalb , wenn du explizid den zweiten Punkt brauchst, verwende das obige Lisp! und :
getpoint [pt] [msg]) The user can specify a point by pointing or by entering a coordinate in the current units format. If the pt argument is present, AutoCAD draws a rubber-band line from that point to the current crosshairs position. ..soviel zum "Gummiband" ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 09. Mrz. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 09. Mrz. 2004 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
|
ckonzept Mitglied
Beiträge: 18 Registriert: 21.09.2003
|
erstellt am: 09. Mrz. 2004 12:05 <-- editieren / zitieren --> Unities abgeben:
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 11. Mrz. 2004 07:58 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 11. Mrz. 2004 08:02 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 12. Mrz. 2004 07:58 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
@ Thomas Bin jetzt nicht sicher was Du meinst: Was ich meinte: (setq PKT1 (getpoint " Erster PUNKT :")) (setq PKT2 (getpoint PKT1 " Zweiter PUNKT :")) (setq ENTF (distance PKT1 PKT2)) anstelle (setq ENTF (mapcar '- PKT1 PKT2)) (setq ENTF (sqrt (+(*(car ENTF)(car ENTF)) (*(cadr ENTF)(cadr ENTF)) (*(caddr ENTF)(caddr ENTF)) ) ) ) Oder habe ich was übersehen? ------------------ Gruß, Ernst [Diese Nachricht wurde von Geos am 12. Mrz. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 12. Mrz. 2004 08:07 <-- editieren / zitieren --> Unities abgeben: Nur für ckonzept
ne, schon ok... hatte (distance... als (getdist gelesen ....weil ich das Thema schon abgehakt hatte. Und du hast schon recht, warum soll man die Sache komplizierter machen, wenn ACAD schon eine intern Funktion mitliefert... ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |