Makro (Autodesk/Inventor) - Foren auf CAD.de

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Makro (1176 mal gelesen)

jörg.jwd
Ehrenmitglied V.I.P. h.c.
CAD-PDM Administrator

Senden Sie eine Private Message an joerg.jwd

Schreiben Sie einen Gästebucheintrag für joerg.jwd

Beiträge: 3109
Registriert: 05.11.2003

erstellt am: 02. Mrz. 2005 15:04

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo zusammen,

es gab hier mal irgendwo ein Makro um einen Arbeitspunkt im Schwerpunkt zu setzen. Kann es allerdings nicht finden. Weiß eine(r) wo das Ding rumschwirrt?? Bräuchte es dringen für IV9

------------------
Grüße

Jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Dano
Mitglied

Schreiben Sie einen Gästebucheintrag für Dano

Beiträge: 69
Registriert: 28.11.2001

AIS9
Compass
CadenasV8<P>P4 3GHz
2GB RAM
Quadro4 750XGL

erstellt am: 02. Mrz. 2005 15:22

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

http://hjem.get2net.dk/opad/Initial.htm

ganz unten das mit iProberty2.2

------------------
mfg,

Dano

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

invhp
Ehrenmitglied V.I.P. h.c.
MB Techniker, AE, WKZmacher

Senden Sie eine Private Message an invhp

Schreiben Sie einen Gästebucheintrag für invhp

Beiträge: 5552
Registriert: 16.05.2002

(fast) alles, was Autodesk im Mechanikbereich anbietet ;)

erstellt am: 02. Mrz. 2005 15:35

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

s. http://www.inventor-faq.de/Allgemein/allg31.htm

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jörg.jwd
Ehrenmitglied V.I.P. h.c.
CAD-PDM Administrator

Beiträge: 3109
Registriert: 05.11.2003

erstellt am: 02. Mrz. 2005 15:37

<-- editieren / zitieren -->

Unities abgeben:

hat sich glaube ich erledigt

doch nicht erledigt. Habe das Teil runtergeladen und installiert, bekomme aber die Werkzeugkiste für den Workpoint nicht. Wo finde ich denn jetzt das Teil???
------------------
Grüße

Jörg

[Diese Nachricht wurde von jörg.jwd am 02. Mrz. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

invhp
Ehrenmitglied V.I.P. h.c.
MB Techniker, AE, WKZmacher

Beiträge: 5552
Registriert: 16.05.2002

(fast) alles, was Autodesk im Mechanikbereich anbietet ;)

erstellt am: 02. Mrz. 2005 16:11

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

welches Teil?

Wenn du das iProperty Tool meinst: Speichern und es erstellt einen Arbeitspunkt im Schwerpunkt

Workpoint at COG: RTM auf ein Icon > Anpassen: Register Werkzeugleisten und unten "Workpoint at CoG" suche und auf anzeigen klicken.

aber das ist hier alles beschrieben darum habe ich den Link reingemacht! http://www.inventor-faq.de/Allgemein/allg31.htm

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

[Diese Nachricht wurde von invhp am 02. Mrz. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jörg.jwd
Ehrenmitglied V.I.P. h.c.
CAD-PDM Administrator

Beiträge: 3109
Registriert: 05.11.2003

erstellt am: 02. Mrz. 2005 16:17

<-- editieren / zitieren -->

Unities abgeben:

Hallo Jürgen,

habe den Link selbstverständlich gelesen. Mein Problem ist daß die Werkzeugleiste "Workpoint at CoG" bei mir nirgends auftaucht.

------------------
Grüße

Jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

invhp
Ehrenmitglied V.I.P. h.c.
MB Techniker, AE, WKZmacher

Beiträge: 5552
Registriert: 16.05.2002

(fast) alles, was Autodesk im Mechanikbereich anbietet ;)

erstellt am: 02. Mrz. 2005 16:24

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Hallo Jörg,

Extras > Zusatzmodule... > LearCarCOG.LCCOG ... ist das Modul gestartet?

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer

Senden Sie eine Private Message an Lothar Boekels

Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3823
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 02. Mrz. 2005 18:46

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Hallo beieinander,

ich weiß jetzt nicht, von wem ich das Makro habe, aber es mache genau einen Workpoint im Massenzentrum:

Public Sub Workpointatmasscenter()
' Check to make sure a part document is active.
If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
MsgBox "A part document must be active."
Exit Sub
End If

' Set a reference to the active document.
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

' Get the Center of Mass.
Dim oCenterOfMass As Point
Set oCenterOfMass = oDoc.ComponentDefinition.MassProperties.CenterOfMass

' Check to see if a work point for center of mass already exists.
' This uses the name of the work feature to identify it.
On Error Resume Next
Dim oWorkPoint As WorkPoint
Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.Item("Center Of Mass")
If Err.Number = 0 Then
Dim oFixedDef As FixedWorkPointDef
Set oFixedDef = oWorkPoint.Definition

oFixedDef.Point = oCenterOfMass
oDoc.Update
Else
' Create a new workpoint at the location of the center of mass.
Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.AddFixed(oCenterOfMass)

' Rename the work point.
oWorkPoint.Name = "Center Of Mass"
End If
End Sub

------------------
Gruß Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jörg.jwd
Ehrenmitglied V.I.P. h.c.
CAD-PDM Administrator

Beiträge: 3109
Registriert: 05.11.2003

erstellt am: 03. Mrz. 2005 10:40

<-- editieren / zitieren -->

Unities abgeben:

zusatzmodule.jpg

werkzeugleiste.jpg

Zitat:
Original erstellt von invhp:
Hallo Jörg,
Extras > Zusatzmodule... > LearCarCOG.LCCOG ... ist das Modul gestartet?

Hallo Jürgen,
das oben genannte Modul existiert bei mir leider nicht. Daher wohl auch keine Werkzeugleiste. Habe mal 2 Bilder angehängt, da kann man sehen was da ist.

------------------
Grüße

Jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jörg.jwd
Ehrenmitglied V.I.P. h.c.
CAD-PDM Administrator

Beiträge: 3109
Registriert: 05.11.2003

Win7-64,Win10-64
SWX 2010/11/12/13/14/15/16/17/18,19,20,21,22
Immer das aktuellste SP
Autodesk Product Design Suite Standard 2020
DraftSight Énterprise 2021SP2
CIM Database 11.3 32GB RAM. NVIDIA Quadro P1000

erstellt am: 04. Mrz. 2005 07:27

<-- editieren / zitieren -->

Unities abgeben:

Hallo Lothar,
dein Makro funktioniert hervorragend. Alledings nur im einzelnen Bauteil. Ich braüchte sowas für eine komplette Baugruppe.

------------------
Grüße

Jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer

Beiträge: 3823
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 04. Mrz. 2005 08:29

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Hallo Jörg,

normalerweise müsste sich das auch für Assemblies aufbohren lassen. Ich glaube da muß man mal einen Fachmann fragen.

Also Leute, frisch ran - wo seid Ihr ?

------------------
Gruß Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

PaulSchuepbach
Mitglied
Programmierer

Senden Sie eine Private Message an PaulSchuepbach

Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 04. Mrz. 2005 08:55

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Zitat:
Original erstellt von lbcad:
Also Leute, frisch ran - wo seid Ihr ?

Hallo Lothar,

mit Deinen VBA-Kenntnissen muesstest Du es auch 'aufbohren' koennen...

Gruesse,

Paul

www.morecam.ch/cad.htm

Public Sub Workpointatmasscenter()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

If oApp.ActiveDocumentType <> kPartDocumentObject And oApp.ActiveDocumentType <> kAssemblyDocumentObject Then
MsgBox "Ppart- oder Assembly-Document muss aktiv sein", 16, "Falscher Fehler"
Exit Sub
End If

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oCenterOfMass As Point
Set oCenterOfMass = oDoc.ComponentDefinition.MassProperties.CenterOfMass

On Error Resume Next
Dim oWorkPoint As WorkPoint
Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.Item("Center Of Mass")

If Err.Number = 0 Then
Dim oFixedDef As FixedWorkPointDef
Set oFixedDef = oWorkPoint.Definition

oFixedDef.Point = oCenterOfMass
oDoc.Update
Else

Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.AddFixed(oCenterOfMass)
oWorkPoint.Name = "Center Of Mass"

End If

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler

Senden Sie eine Private Message an daywa1k3r

Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012 64Bi

erstellt am: 04. Mrz. 2005 09:03

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Zitat:
Original erstellt von lbcad:
Hallo Jörg,
normalerweise müsste sich das auch für Assemblies aufbohren lassen. Ich glaube da muß man mal einen Fachmann fragen.
Also Leute, frisch ran - wo seid Ihr ?

Das hat sogar die Tigerente geschafft

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 04. Mrz. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer

Beiträge: 3823
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 04. Mrz. 2005 09:31

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

ja ja

jetzt lästert nicht, ich bin derzeit ziemlich im Brass

also gut - ich hätte es evtl. such gekonnt.

------------------
Gruß Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Doc Snyder
Moderator
Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen

Senden Sie eine Private Message an Roland Schröder

Schreiben Sie einen Gästebucheintrag für Roland Schröder

Beiträge: 13310
Registriert: 02.04.2004

IV 2019 + 2020 + 2021
W7pro64 F-Secure-Safe
Dell-M4600 2,13GHz 12GB
Quadro2000M
15,4"1920x1080
MS-IntelliMouse-Optical
SpacePilotClassic

erstellt am: 04. Mrz. 2005 15:48

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Zitat:
Original erstellt von daywa1k3r:
... sogar die Tigerente...

Das kostet aber was in die Chauvikasse!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012 64Bi

erstellt am: 04. Mrz. 2005 16:33

<-- editieren / zitieren -->

Unities abgeben:

Nur für jörg.jwd

Zitat:
Original erstellt von Doc Snyder:
Das kostet aber was in die Chauvikasse!

Die Ausage bezog sich auf den Nick, und nicht auf den, zwar nicht "Doc Snyder skilled", aber äusserst symapthischen Benutzer, der in der letzten Zeit leider nicht mehr aktiv ist.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)