| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
Autor
|
Thema: 2D Kreise auf mehreren Punkten (1266 / mal gelesen)
|
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003 MS: Windows 10 64bit OSD: 20.1 M020 ModelManager: 20.1 M020 NX 1899 TC 12.3
|
erstellt am: 11. Nov. 2016 15:16 <-- editieren / zitieren --> Unities abgeben:
Hallo, dachte hätte ein einfaches Programm, aber jetzt hänge ich doch. Möchte einfach nur 2D Kreise auf Arbeitsebenen erstellen, und dann nicht immer den Radius neu eingeben wenn ich z.B. 10 mal das gleiche habe. Auch möchte ich mir das Drücken eines "next Button" sparen, es soll einfach wenn ich einen Mittelpunkt eingeben, der nächste Mittelpunkt gesetzt werden können. ich bekomme das nicht hin. Vielleicht kann mir jemand helfen.
Code: (in-package :custom) (use-package :OLI)(export '2D_Kreis_mehrmals) (sd-defdialog '2D_Kreis_mehrmals :dialog-title "2D Kreis mehrmals" :toolbox-button nil :variables '( (Kreisdurchmesser :value-type :positive-number :multiple-items nil :title "Kreisdurchmesser" :prompt-text "Kreisdurchmesser eingeben" :initial-value nil ) (Loch_Mittelpunkt :value-type :point-2d :multiple-items t :title "Mittelpunkt" :prompt-text "Mittelpunkt auf AE angeben" :initial-value nil :after-input (2D_Kreise_erstellen) ) );ende variables :local-functions '( (2D_Kreise_erstellen () (circle :cen_rad Loch_Mittelpunkt (/ Kreisdurchmesser 2)) (setf Loch_Mittelpunkt nil) ) ) :cancel-action '() :ok-action '() )
------------------ Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Geppert Moderator Frank und Frei
Beiträge: 2143 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 11. Nov. 2016 15:45 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
|
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 882 Registriert: 01.04.2003
|
erstellt am: 12. Nov. 2016 10:35 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Hallo und guten Morgen, geht es dir darum das Lisp zu schreiben oder um die Funktion? Es geht ja auch mit den Bordmitteln. Erst den Radius eingeben, dann mehrfach platzieren.
------------------ Gruss Friedhelm Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003 MS: Windows 10 64bit OSD: 20.1 M020 ModelManager: 20.1 M020 NX 1899 TC 12.3
|
erstellt am: 14. Nov. 2016 06:51 <-- editieren / zitieren --> Unities abgeben:
Hallo Friedhelm, ja mit den Bordmitteln geht das, aber ich mag den Copilot nicht und warum hat PTC das Bordmittel nicht auch bei dem normalen Kreisbefehl eingebaut. In dem Fall würde ich einfach gerne wissen wie ich das Programm schreiben muss um eine folge von Mittelpunkten angeben zu können. Denke man kann das Programm ja dann auch um Rechtecke oder so erweitern. ------------------ Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sas-m2n Mitglied Maschinenbautechniker
Beiträge: 39 Registriert: 02.03.2011 @Work: HP Z400, NVIDIA Quadro 4000, 12 GB RAM, WIN7 X64 NX6.0.2.8,NX I-deas 6 m2,Teamcenter 2005 SR1/2007, Creo Elements/Direct 19.0 M060 Modelmanager 19 @home: DELL Precision M4500 PE6.0 auf Win10 pro X64 FreeCAD 017 X64 TurboCAD 17 pro
|
erstellt am: 14. Nov. 2016 09:45 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Probier's mal damit (Kreisdurchmesser :value-type oint-2d :title "Kreisdurchmesser" rompt-text "Kreisdurchmesser eingeben" :after-input (2D_Kreise_erstellen) :next-variable 'Kreisdurchmesser) Gruß Steffen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lix b Mitglied Konstrukteur, CAD-Admin
Beiträge: 279 Registriert: 03.10.2014 Creo Elements / Direct Modeling 20.2 Creo Elements / Direct Model Manager 20.2 Creo 5.0 Simulate <P>Notepad++ Win 7
|
erstellt am: 14. Nov. 2016 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Hi! Du musst vor deinen Befehl Code: (circle :cen_rad Loch_Mittelpunkt (/ Kreisdurchmesser 2))
ein sd-call-cmds stellen Code: (sd-call-cmds (circle :cen_rad Loch_Mittelpunkt (/ Kreisdurchmesser 2)))
Ansonsten bricht der Befehl circle deinen Dialog ab und wird nur 1x ausgeführt. ------------------ Viele Grüße Felix Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003
|
erstellt am: 14. Nov. 2016 15:03 <-- editieren / zitieren --> Unities abgeben:
|
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 882 Registriert: 01.04.2003 Creo Elements Direct /Drafting 17+20.x ui classic-Tablett + Ribbon, Modeling 17-20.0,.2,.4,.5 Lizenz auf USB-Netzwerkadapter PE-Express 8 Win 10 Enterprise 64 @work Win 10 Pro 64 @home Notepad++,IrfanView,eDrawings, ....
|
erstellt am: 14. Nov. 2016 18:32 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Will kein Knatscher sein, aber das gabs/gibts auch. Kreis fester Radius. = Ohne Copilot Allerdings nicht im Ribbon, müsstest du irgendwo einbauen. Chronischer Platzmangel im Ribbon edit => Wäre schön wenn man das Dropdownmenu anpassen könnte ------------------ Gruss Friedhelm [Diese Nachricht wurde von friedhelm at work am 14. Nov. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Geppert Moderator Frank und Frei
Beiträge: 2143 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 14. Nov. 2016 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Zitat: Original erstellt von Greskamp: ... und warum hat PTC das Bordmittel nicht auch bei dem normalen Kreisbefehl eingebaut. ...
Gibts doch: Kreis fester Radius Ich kann nämlich den Copilot auch nicht leiden ------------------ meine LISP-Makros sind auf osd.cad.de Disclaimer Grüße aus Wien
Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003
|
erstellt am: 15. Nov. 2016 06:32 <-- editieren / zitieren --> Unities abgeben:
Danke Friedhelm und Walter, da denkt man, man kennt schon alles. Aber jetzt habe ich auch das Programm hin bekommen und noch einen Befehl kennen gelernt. Hat sich die Frage im Forum doch gelohnt. ------------------ Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Patrick Weber Mitglied Konstruktionstechniker, Admin
Beiträge: 657 Registriert: 20.11.2006 Win7 Pro SP1 64Bit HP Z230, Core i5, 8GB RAM, nv Quadro K600 Creo Elements/Direct 19.0 M010 ModelManager 19.0 M010 clisp,VB.net,VBA,AHK,php,javascript
|
erstellt am: 21. Nov. 2016 12:27 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Zitat: Original erstellt von friedhelm at work: Allerdings nicht im Ribbon, müsstest du irgendwo einbauen. Chronischer Platzmangel im Ribbon edit => Wäre schön wenn man das Dropdownmenu anpassen könnte
Wäre schön, wenn man die Ribbon-Leiste wieder loswerden könnte. Früher war einiges besser und schneller erreichbar. :P
------------------ Patrick Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lix b Mitglied Konstrukteur, CAD-Admin
Beiträge: 279 Registriert: 03.10.2014 Creo Elements / Direct Modeling 20.2 Creo Elements / Direct Model Manager 20.2 Creo 5.0 Simulate <P>Notepad++ Win 7
|
erstellt am: 21. Nov. 2016 12:50 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
|
Walter Geppert Moderator Frank und Frei
Beiträge: 2143 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 21. Nov. 2016 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
|
Patrick Weber Mitglied Konstruktionstechniker, Admin
Beiträge: 657 Registriert: 20.11.2006 Win7 Pro SP1 64Bit HP Z230, Core i5, 8GB RAM, nv Quadro K600 Creo Elements/Direct 19.0 M010 ModelManager 19.0 M010 clisp,VB.net,VBA,AHK,php,javascript
|
erstellt am: 21. Nov. 2016 14:38 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Ich bemerke nur, dass mir der Wechsel auf Ribbon bei Office viel leichter fiel. Einige alte Toolbars habe ich auch noch im Einsatz und die Minitoolbar um viele wichtige Sachen erweitert. Trotzdem alles ziemlich nervig. ------------------ Patrick Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Geppert Moderator Frank und Frei
Beiträge: 2143 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 21. Nov. 2016 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Ich habe die letzten eineinhalb Jahre parallel mit V17 und V19 für verschiedene Kunden gearbeitet. Das war nervig und jetzt gottseidank vorbei Mittlerweile sind mir die Ribbons aber schon lieber als die alte Oberfläche ------------------ meine LISP-Makros sind auf osd.cad.de Disclaimer Grüße aus Wien
Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Geppert Moderator Frank und Frei
Beiträge: 2143 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 29. Nov. 2016 23:59 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
Zitat: Original erstellt von Patrick Weber: Ich bemerke nur, dass mir der Wechsel auf Ribbon bei Office viel leichter fiel.
Kann ich nicht behaupten, aber ich verwende Word und Excel recht spärlich. Jedenfalls hab ich mir speziell im Word schon so manchen Wolf gesucht bei manchen bisher ganz normal zugänglichen Funktionen ------------------ meine LISP-Makros sind auf osd.cad.de Disclaimer Grüße aus Wien
Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |