| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
| |
| SF WALLCHECK , eine App
|
Autor
|
Thema: LISP-Makro Problem (1951 mal gelesen)
|
Urs Thali Mitglied Konstrukteur
Beiträge: 145 Registriert: 25.03.2004 creo elements/direct modeling 20.3.3.0 creo elements/direct drafting 20.3.3.0 creo elements/ModelManager 20.3.3.0 Klietsch SolidSteel 7.05
|
erstellt am: 05. Dez. 2009 14:51 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich möchte ein Makro schreiben, welches auf einer VORHANDENEN Arbeitsebene eine Geometrie aufzeichnet. Dabei möchte ich einen Startpunkt sowie eine Richtung für diese Geometrie angeben können, indem ich zwei Punkte oder einen Startpunkt und eine Richtung anklicke. Mein Problem ist nicht die Geometrie aufzuzeichnen, sondern mit Startpunkt und Richtung im LISP zu arbeiten. In ME10 habe ich dies jeweils so gemacht: READ PNT 'Picken Sie den Anfangspunkt an:' P1 READ PNT 'Picken Sie den Endpunkt an:' RUBBER_LINE P1 P2 LET A ((P2-P1)/(LEN(P2-P1))) Mit A hatte ich dann einen Vektor mit der Länge 1 Wie mache ich dies in Modeling auf einer Arbeitsebene? Herzlichen Dank für eure Tipps! Urs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
der_Wolfgang Moderator Tastenhauer
Beiträge: 2219 Registriert: 3.20. ● PE20+60+80@home ● W10 Pro Build19045.4780 ● Drafting V17~V20.7 ● Modeling V17~V20.7 ● Windchill 12.1.2.6 ● UWGM Client 13.0.0.1
|
erstellt am: 05. Dez. 2009 16:34 <-- editieren / zitieren --> Unities abgeben: Nur für Urs Thali
Zitat: Original erstellt von Urs Thali: READ PNT 'Picken Sie den Anfangspunkt an:' P1 READ PNT 'Picken Sie den Endpunkt an:' RUBBER_LINE P1 P2 LET A ((P2-P1)/(LEN(P2-P1)))
Ich gehe mal davon aus das Du den rudimentaeren sd-def-dialog zum Anwaehlen von p1 und p2 schon hast. Drum nur 2 Brocken: (setq a (sd-vec-normalize (sd-vec-subtract P2 P1))) und fuer den Feedback koennte (sd-start-rubberinfline-feedback point-1) was sein. Ich hab's aber nicht probiert! ------------------ ● Seamonkey Firefox Thunderbird ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Crespo Mitglied Mausschubser
Beiträge: 33 Registriert: 19.10.2007
|
erstellt am: 07. Dez. 2009 17:31 <-- editieren / zitieren --> Unities abgeben: Nur für Urs Thali
Hallo zusammen, da ich ja auch alle Jubeljahr mal wieder LISP machen darf habe ich den Tipp von Wolfgang mal umgesetzt. Sicher geht das viel schicker, und mit viel mehr Prompts und Text usw., aber vielleicht hilft es ja doch dem einen oder anderen, der noch gar nicht so recht weiß, wo anfangen. Und wer es schon weiß, der kann sich ja trotzdem meinen kleinen Feierabend-Entwurf mal kurz angucken Edit: Der Title im zweiten UI_PNT2 sollte latürnich "EndPunkt" heißen ------------------ Gruss aus der Palz Crespo [Diese Nachricht wurde von Crespo am 07. Dez. 2009 editiert.] [Diese Nachricht wurde von Crespo am 07. Dez. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Urs Thali Mitglied Konstrukteur
Beiträge: 145 Registriert: 25.03.2004 creo elements/direct modeling 20.3.3.0 creo elements/direct drafting 20.3.3.0 creo elements/ModelManager 20.3.3.0 Klietsch SolidSteel 7.05
|
erstellt am: 08. Dez. 2009 06:15 <-- editieren / zitieren --> Unities abgeben:
|
Urs Thali Mitglied Konstrukteur
Beiträge: 145 Registriert: 25.03.2004 creo elements/direct modeling 20.3.3.0 creo elements/direct drafting 20.3.3.0 creo elements/ModelManager 20.3.3.0 Klietsch SolidSteel 7.05
|
erstellt am: 12. Dez. 2009 14:56 <-- editieren / zitieren --> Unities abgeben:
Ich habe noch eine weitere Frage an euch und ich bin sicher, dass ihr mir helfen könnt: Mit welchem Befehl kann ich nun den vorher definierten Vektor A auf der Arbeitsebene um 90° im Gegenuhrzeigersinn drehen lassen? Ich habe so begonnen: (setf B (sd-vec-rotate A (/ pi 2) oint P1 :direction ?????????? ))) Wie ihr seht liegt mein Problem bei den Fragezeichen, denn ich weiss nicht, wie ich die Richtung W in den Befehl reinpacke. Oder habe ich noch wo anders was falsch gemacht? Danke für eure Hilfe! Gruss Urs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
der_Wolfgang Moderator Tastenhauer
Beiträge: 2219 Registriert: 3.20. ● PE20+60+80@home ● W10 Pro Build19045.4780 ● Drafting V17~V20.7 ● Modeling V17~V20.7 ● Windchill 12.1.2.6 ● UWGM Client 13.0.0.1
|
erstellt am: 12. Dez. 2009 16:30 <-- editieren / zitieren --> Unities abgeben: Nur für Urs Thali
|
kfry Mitglied Dipl. Ing. FH
Beiträge: 14 Registriert: 05.03.2003
|
erstellt am: 18. Dez. 2009 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für Urs Thali
|