| | |
 | 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 (1265 / 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 |
Foren auf CAD.de (alle Foren)
| 
