---

Hallo,

einleitend: bin als Konstrukteur absoluter Neuling in der Programierung.
Ich habe mir ein wenig Basiswissen im VB Programieren angeeignet und möchte dies nun im Catia nutzen.

Dazu habe ich ein Makro aufgezeichnet (Eine BGP mit einem Part anlegen) und versuche die Syntax zu verstehen.

Das Makro beginnt folgendermaßen:

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

...

Nun meine Frage: Was beeinhaltet z.B die Class Document, Product, Products?
Wo kann ich dazu Informationen finden?

Danke im vorraus,

Gruss

plane

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

---

Servus
Zum einen gibt es die V5Automation.chm im Catia-Installationsverzeichnis, zum anderen einige Bücher (siehe catia.cad.de).
Für Grundlagen zu VB/VBA sollten es genügend Fachbücher bzwr auch Tutorials im Inet finden.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

danke für den Tip. In der V5Automation.chm habe ich einiges an Informationen gefunden.

Momentan aber nichts zum Verständnis über die Inhalte der "classes".

Ich würde eine Class z.B so anlegen:

type TProduct
Name as string
Anzahl as integer
Gewicht as integer
end type

dim Product as TProduct
set Product = New TProduct

Ich weiss also was sich in meiner Class befindet.(Anzahl, Gewicht, Type)

Im aufgezeichneten Makro steht z.B:

dim Product1 as product
set Product1 = ...

Was verbirgt sich denn hinter der class "product"?

Gruss

plane

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

---

code\bin\V5Automation.chm::/generated/interfaces/ProductStructureInterfaces/interface_Product_11223.htm

Edit: Oder: CAA V5 Visual Basic Reference / Objects and Collection / Product

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Stammtisch in Wolfsburg http://ww3.cad.de/foren/ubb/Forum491/HTML/000179.shtml

[Diese Nachricht wurde von HoBLila am 14. Dez. 2011 editiert.]

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

---

danke,

plane

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

---

Hallo!

Ich kenne mich zwar nicht mit der Programmierung aus, habe aber ein Skript für Catia gefunden, daß die MAussteuerung erträglicher macht. Wie krieg ich das "installiert"? Kann mir das wer erklären?

Grüße!

------------------
Hochachtungsvoll, Zed

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

---

Servus Zed

Als "was" liegt das Makro/Skript vor? (Dateiendung, Link ...)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo!

In Schriftlicher Form quasi... Darf ich den Link hier posten?

#IfWinActive CATIA V5

MButton::
SendInput {Mbutton down}{RButton down}  ; Hold down middle and right.
Loop
{
    Sleep, 10
    GetKeyState, state, MButton, P
    if state = U  ; The key has been released, so break out of the loop.     
break
   
}
SendInput {MButton up}{RButton up} ; Release the mouse buttons.
return
;---------------

XButton1::
SendInput {Mbutton down}  ; Hold down middle.

Loop
{
    Sleep, 10
    GetKeyState, state, XButton1, P
    if state = U  ; The key has been released, so break out of the loop.     
break
   
}
SendInput {MButton up} ; Release the mouse buttons.
return

;---------------- zoom in

WheelUp::
SendInput {Ctrl down}{MButton down}
MouseMove, 0, -50, 1, R            ;move mouse upp, relative from position, zooming in.
SendInput {Ctrl up}{MButton up}
MouseMove, 0, 50, 1, R            ;move back the mouse pointer to where it began.
return
;---------------- zoom out

WheelDown::
SendInput {Ctrl down}{MButton down}
MouseMove, 0, 50, 1, R
SendInput {Ctrl up}{MButton up}
MouseMove, 0, -50, 1, R
return

------------------
Hochachtungsvoll, Zed

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

---

Servus

Ja, poste mal den Link.
Vermutlich muss der Code erst kompiliert werden (das eine .exe raus kommt), und dann das Programm im Hintergrund laufen.

Warum willst du an der Maussteuerung was ändern? Warum nicht einfach daran gewöhnen (oder eine 3D-Maus nutzen)?

Gruß
Bernd

PS: Ist auf der Seite des Codes nicht auch eine exe verlinkt?

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

https://autohotkey.com/board/topic/120209-mouse-fixes-for-inventor-catia-creo-to-behave-more-like-solidworks/

Naja, ich will mir nicht extra ne 3D Maus anschaffen, NUR für die paar mal im Jahr, die ich es nutze. So ne Software-Lösung fand ich halt reizvoll.
Ich hab Catia beruflich 5 Jahre genutzt, die Maussteuerung fand ich immer schon ******e. ;-)

------------------
Hochachtungsvoll, Zed

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

---

Servus

Da das über das Programm Autohotkey läuft, solltest du da nachschauen/fragen wie man so ein Script zum laufen kriegt und nicht hier im Catia-Forum.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Okay... danke dennoch!

------------------
Hochachtungsvoll, Zed

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