hexagon logo
Register Sign in
  • Replies 12 replies
  • Subscribers 222 subscribers
  • Views 248 views
  • Users 0 members are here
Options
Related

PC-DMIS 2001 - Error when uploading a XYZ file

Lebroc
Hi everyone,

That's the first time i come on this forum. I have not a large experience in CMM.

I am trying to make measurements of a blade with the old PC-DMIS 2001. There are like 350 points per face... I'm doing this to compare a physical blade with a CAO model (surface model* : we can't know how the blade has been modeled)
So i would like to import a simple file (Text) as a .XYZ file.

I follow the syntax indicated in the manual :

XYZIJK METRIC
x,y,z,i,j,k

When i try to import the file i have an error message :
Le verouillage indique que l'entrée/sortie XYZ n'est pas disponible.
The lock indicates that the input / output XYZ is not available.

I have not find any posts about this error neither on the forum nor on Google.


An other solution would be to directly insert commands generated on Excel by copy/paste like this :
PNT13 =AUTO/POINT-VECT; AFFICH TOUS PARAM=OUI
THÉO/-45;45;-11;0;0;1
RÉEL/-45;45;-10.474;0;0;1
CIBLE/-45;45;-11;0;0;1
ÉPAISSEUR THÉO = 0; CART; ENCLENCH = OUI ;$
DÉPLACEMENT AUTO = NON; DISTANCE = 0

But PC DMIS does not like when i copy/paste from Exel or Notepad and say :
Erreur de ligne trop longue.
Error : line too long.

I am looking for your help Confused
Nobody here have used the CMM to do automatic control.

If you have any idea, you help is welcome.

Sorry if my English is not so good. As you can guess, this is not my native language.

Thanks !

Maxime
  • The bit highlighted in bold is the basic code for creating a vector point

    The bits in red you'd need to variablise (i.e. change the absolute values in "" and replace with variables.

    You'd need to put that whole section in a loop.



    General flow would be...



    Create objects for PC-Dmis then

    Set DmisApp = CreateObject("PCDLRN.Application")
    Set DmisPart = DmisApp.ActivePartProgram
    Set DmisCommands = DmisPart.Commands
    CommandCount = DmisCommands.Count
    Set DmisCommand = DmisCommands.Item(CommandCount)
    DmisCommands.InsertionPointAfter DmisCommand


    ...then open text file...


    Open "C:\xyz.txt" For Input As #1


    Do Until EOF(1)


    Line Input #1, textline

    dim myarray()

    myarray = split(textline,",") (I'm not sure if Split function works in .bas scripts, might need to parse it using a different method)

    dim varx
    var_x = myarray(0)
    var_y = myarray(1)
    var_z = myarray(2)
    var_i = myarray(3)
    var_j = myarray(4)
    var_k = myarray(5)

    Create code for vector points (using exported code above), but replace "50", "100", "0" with your var_x, var_y, var_z and "0", "0", "1" with your var_i, var_j, var_k

    (Don't forget to index/increment the feature ID as well)


    Loop



    Does that make sense? It's all I've time for right now
  • Thank you Ninja !

    Yes that makes sense, sometimes Smiley I will take a look tomorrow or next week. But i am not sure that i can import/export .BAS format Neutral face

    I Spoke about it with my manager. We would like to know an estimation of a newer version of PC DMIS (between 2010 and now, a version which allows to export from .txt or Excel). Do any of you have an idea of the price of this program ?

    Then i will create a light version of my control (40 points) and compare the points with our model (on Pro Engineer). That's just a kind of training for me.

    Thanks to everyone for your implication.
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement