| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Auto-Kantenprojektion in Skizze an/ab-schalten (1551 mal gelesen)
|
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13115 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 28. Mrz. 2007 13:50 <-- editieren / zitieren --> Unities abgeben:
Moin! Es geht hier um das dritte Häkchen in dem vorletzten Abschnitt auf der Seite Skizze der Applikation-Options, das macht, dass beim Öffnen einer Skizze automatisch alle begrenzenden Kanten projiziert werden. Normal ist das die reinste Seuche, deshalb habe ich es meistens aus, aber bei bestimmten Blechoperationen ist es doch nützlich und da muss ich es dann häufig an und ausschalten. Ein Icon dazu wäre schön; Frage also: Kann man darauf mit VBA zugreifen? Wenn ja, wisst Ihr das Zauberwort dazu? Gruß aus dem sonnigen Salzburg! ------------------ Roland www.Das-Entwicklungsbuero.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001
|
erstellt am: 28. Mrz. 2007 14:35 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Hallo Roland, erstmal Grüße nach Salzburg und vielleicht hilft Dir das weiter. Autodesk Inventor Object Library AutoProjectEdges PropertyDescription Read-write Boolean property that enables or disables the capability to select and project existing geometry to the current sketch by "rubbing" the existing lines. The lines are projected as reference geometry. Setting this property to True enabled Autoproject.
Property type Read-write property Syntax (Visual Basic) Public Property AutoProjectEdges() As Boolean
------------------ Gruß SEHER www.inventor-tools.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 28. Mrz. 2007 15:07 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Dem zu Folge lautet die „Funktion“: Code:
Public Sub ToggleAutoProjectEdges() ThisApplication.SketchOptions.AutoProjectEdges = Not ThisApplication.SketchOptions.AutoProjectEdges End Sub
@Andreas Auch in Salzburg? ------------------ Grüße Igor
FX64 Software Solutions HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001
|
erstellt am: 28. Mrz. 2007 15:17 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 28. Mrz. 2007 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13115 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 28. Mrz. 2007 16:26 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen! Ich hatte das tatsächlich schon allein aus altem Code weiterentwickelt und ans Laufen gebracht und bin sehr stolz auf Euch, dass Ihr mich so weit gebracht habt! Wichtig noch: Die oben genannte Variable ist nicht die, die ich meinte, sie greift auf das zweite Häkchen zu, ich aber meine das dritte, und darauf greift: oApp.SketchOptions.AutomaticReferenceEdges Wenn ich den Code vom Editor aus starte, macht er damit schon, was er soll. Ein Icon dazu habe ich auch schon malen und in die Schaltleite einfügen können. Jetzt habe ich aber noch das Problem, dass die Verbindung zum Code noch nicht geht, weder vom Icon, noch über den dazu bereits vereinbarten Shortcut. Woran kann das noch liegen? Muss da noch mehr als nur der Name stimmen? Und dann hätte ich noch dem Wunsch (bei dieser Funktion besonders!), und zwar das Icon korrespondierend so zu verändern, dass man daran den Zustand des Häkchens erkennt. ------------------ Roland www.Das-Entwicklungsbuero.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 28. Mrz. 2007 16:36 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Checkliste: Ist die Funktion Public? Extras -> Anpassen -> Befehle -> Makros. Erscheint die Funktion in dem rechten Fenster? Funktioniert der Befehl nach dem er auf die Werkzeugleiste „gedroppt“ wurde? Das mit Icon wechseln wird wohl mit VBA Makros nicht funktionieren.
------------------ Grüße Igor FX64 Software Solutions HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13115 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 28. Mrz. 2007 17:00 <-- editieren / zitieren --> Unities abgeben:
Ja, ist "Public Sub", ist ja von anderen Funktionen abgeschrieben, die funktionieren. Das Icon konnte ich ja nur platzieren, weil es in der Liste auftauchte, ist ja auch schon da, und funktioniert NICHT. Gibt es sonst eine Möglichkeit, den Zustand dieser Variablen in IV anzuzeigen? Evtl. eine (nur kurz erscheinende) Meldung? ------------------ Roland www.Das-Entwicklungsbuero.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13115 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 28. Mrz. 2007 17:24 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 28. Mrz. 2007 19:15 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Also bei mir funktionieren nur die Publics Bist du dir das sicher, das deine Private Funktionen aufgerufen werden können? Also noch mal. Du hast die Funktion in dein Modul geschrieben und getestet und es funktioniert. Das Modul befindet sich in Anwendungsprojekt. Über Extras-Anpassen-Befehle-Makros konntest du in dem rechten Fenster deine Funktion sehen (kein vertipper?). Den Befehl konntest du in eine Werkzeugleiste reinziehen, und nach dem Klick tut sich nichts? Aber stimmt, dass ohne Anzeige so eine Funktion nicht so optimal ist, denn man sieht wirklich nicht, welcher Zustand momentan aktiv ist. Du kannst eine Zeile hinzufügen, die dir den Zustand in Statusbar anzeigt. Bei nächsten Befehl verschwindet die Meldung wieder, aber den Zweck erfüllt sie. Code:
Public Sub ToggleAutomaticreferenceEdges() ThisApplication.SketchOptions.AutomaticReferenceEdges = Not ThisApplication.SketchOptions.AutomaticReferenceEdges ThisApplication.StatusBarText = "Begrenzenden Kanten automatisch projezieren = " & ThisApplication.SketchOptions.AutomaticReferenceEdges End Sub
BTW. Natürlich, richtig heißt es Toggle Also, hier alles klar. Probier mal die auf Public zu setzen, wenn da oben alles klar ist.
------------------ Grüße Igor FX64 Software Solutions HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |