Donner les coordonnées de points en script

[Pascal Dubois]

J ai un problème en vb script ,je veux que mes coordonnées de points soient par rapport a mon wcs et non a celui par default.

[Jeff Kemper]

Parlez-vous anglais?

[Thad]

Online translation...

 

quote:

---

I has a problem in vb script, I want that my coordinates of points are by report has my wcs and no has the one by default.

---

Thad

[Pascal Dubois]

Thanks Thad for the translation

[Thad]

 

It looks like your english is just fine. Welcome to the forum!

 

Thad

[mario]

quel vb de quoi tu parle soit plus clair

 

salut

 

p.s. bienvenue parmis nous

[Pascal Dubois]

mario

Je me construit un programme utilisant le vbscript de mastercam et visual basic,tout fonctionne bien,le seul hic c'est quand je crées des points, mes coordonnés sortent par rapport au wcs par default mais moi je veux que mes coordonnées de points sortent par rapport a mon wcs que je crées.

[Bullines]

Comment cree-tu les points?

[mario]

je ne joue pas beaucoup avec le wcs mais quand tu crée ton wcs fait un right clic dessus et SET WCS

 

je crois que c'est ce que tu as besoin

[Philcott]

Phil's attempt at translation with no babblefish.

 

quote:

---

Je me construit un programme utilisant le vbscript de mastercam et visual basic,tout fonctionne bien,le seul hic c'est quand je crées des points, mes coordonnés sortent par rapport au wcs par default mais moi je veux que mes coordonnées de points sortent par rapport a mon wcs que je crées.

---

"I made a program using mastercam's vbscript and visual basic, all works well, the only problem is when I create the points, my coordinates output in relation to the default WCS but I want my coordinates to be output by the WCS I create."

 

 

quote:

---

quel vb de quoi tu parle soit plus clair

 

salut

 

p.s. bienvenue parmis nous

---

"for clarity, what vb are you talking about.

 

Later

 

p.s. Welcome to the forum"

 

 

quote:

---

Comment cree-tu les points?

---

"How do you make your points

 

How is the translation so far?

 

Phil

[Philcott]

quote:

---

je ne joue pas beaucoup avec le wcs mais quand tu crée ton wcs fait un right clic dessus et SET WCS

 

je crois que c'est ce que tu as besoin

---

"I don't use the WCS much but when you create your WCS right click on and set WCS.

 

I think that this is what you want

 

Bienvenue Pascal.

 

Phil

 

[ 02-08-2005, 10:45 AM: Message edited by: PhilCott ]

[Bullines]

quote:

---

How is the translation so far?

---

Very good. Babelfish is acceptable but I find it wrecks a lot of things.

[chip]

Any of you guys near "Whistler"? I am trying to get out there this year. We've been local (Big Bear, Mammoth) almost a dozen times this year. It's tough, I don't want to get caught in a storm!

 

[Philcott]

Chip,

 

I probably the closest of the guys who have had input in this thread. There are other members who live in Vancouver who are closer but we don't see too many of them posting. Whistler had become a premier resort in the last 10 years. I knew it in it's infantsy and it has become too uptown for me, but it's a fantastic place to vacation. Whistler is about a 2 hour drive from Vancouver along a beautiful mountain hugging, ocean viewing road called the "sea to sky highway". Don't let the word Highway fool you though. It can be a most treacherous road. I don't think a year goes by without a couple people not making their destination. There is a plan in place to have the road made safer before the 2012 Olympics.

Also, there are two mountain side by side, Whistler and Blackcomb, get a pass for the two of them.

 

Phil

[Jack Mitchell]

Whistler and the Blackcomb mountains are amazing and Phil has descibed it perfectly. We went there two years ago - expensive but so very worth the trip.

 

 

Regards, Jack

[Philcott]

What can I say,

 

 

whistler/blackcomb

 

Phil

[Pascal Dubois]

Merci pour votre aide mais sa ne repond pas vraiment a ma question, je vais essayer de la formuler plus clairements

 

Thank you for your assistance but its really does not answer has my question, I will try to formulate it more understand

[Pascal Dubois]

Voici un exemple de code:

 

****Here an example of code

 

 

Sub Main()

' -- Declare the objects

Dim objFirstPoint

Dim objSecondPoint

Dim objLine

 

 

' -- Create two point objects

Set objFirstPoint = New McPt

Set objSecondPoint = New McPt

 

 

' -- Ask for the first point

If askPoint (objFirstPoint) Then

 

' -- If ok lets get the second point

If askPoint (objSecondPoint) Then

 

' -- If we are here then we have all the points we need

Set objLine = New McLn

 

' -- Assign the co-ords

With objLine

 

 

' -- First point position selected

.X1 = objFirstPoint.X

.Y1 = objFirstPoint.Y

.Z1 = objFirstPoint.Z

 

' -- Second point position selected

.X2 = objSecondPoint.X

.Y2 = objSecondPoint.Y

.Z2 = objSecondPoint.Z

 

End With

 

showstring "X" & objFirstPoint.X <-- ICI JE VEUX QUE LA COORDONNÉ SOIT PAR RAPPORT A MON WCS

 

**** HERE I WANT THAT COORDINATED WILL BE Compared to MY WCS

 

 

' -- Clean up

Set objFirstPoint = Nothing

Set objSecondPoint = Nothing

Set objLine = Nothing

 

End Sub

[Bullines]

wood27, et l'objet pour la ligne?

 

code:

---

ShowString "X1 " & objLine.X1 & vbLf & "X2 " & objLine.X2

---

Est-il different de ton WCS?

[Bullines]

Maintenant, je pense que je comprends ce que tu veut

 

Il n'y a pas des fonctions de VBS pour le WCS Seulement:

 

code:

---

Call RunMastercamCommand("namview")

---

Tu devret obtenir ton WCS (changer le cplane origin...ALT+O) avant le script.

[Pascal Dubois]

Non , tout ce que je veux c'est que mes coordonnés en x y z sortent en incrémental et non en absolu. (Plus simple un peu)

 

Mais je me suis arranger autrement, merci a tous.

 

Si quelqu'un peut répondre ça pareil, je serais curieux de le savoir.

 

**********

Not, all that I want it is that my coordinated in X Y Z leave into incremental and not in absolute. (simpler a little)

 

But I am to arrange differently, thank you has all.

If somebody can answer that similar, I would be curious to know it.