hexagon logo
Register Sign in
  • Replies 12 replies
  • Subscribers 222 subscribers
  • Views 237 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
  • Wow 2001 is a really old version!

    From the sounds of it the importing of XYZ is an option on that version (i.e. an add-in which isn't enabled on your dongle)

    For the second point you cannot paste into the PC-Dmis edit window - it looks like text but it is actually more like a user interface for a database.

    Quick question - in the title bar of the software does it say either PRO, CAD or CAD++? I don't know if these levels of software existed back then. If it says Pro then it's likely you cannot import 'CAD' which the xyz file is being treated as in this case.
  • V3.7.....

    I don't think XYZ files should have commas in them, I've never seen one that way. The header line is VERY important. XYZIJK with 6 spaces then METRIC


    Try DES format.

    IF the option is NOT grayed out, you have the ability to import (or export) that file style.

    DES file format (I don't think that the end of line numbers are needed): 

    START         METRIC  PC-DMIS 1.0                                       00000010
HEADER    HEADERINFO    6                                               00000020
  DES FILE FROM PCDMIS for WINDOWS                                      00000030
  DATA FORMAT IS XYZ/LWH, NOMINAL DATA                                  00000040
  FILE TEST.DES                                                         00000050
  DATE 3/3/2016                                                         00000060
  PN: 28207-AL  Rev:   SN:                                              00000070
  File: 28207-AL.PRG                                                    00000080
LINE     TOP-OF-BASE    1   1   1                                       00000090
4019.932 550.024 994.180 0.00000 1.00000 0.00000                        00000100
LINE       REAR-EDGE    1   2   0                                       00000110
4224.076 545.1591150.0463588.386 545.1611150.046                        00000120
LINE      RIGHT-REAR    1   1   0                                       00000130
3596.506 562.7511123.379                                                00000140
LINE          LHA1-1    1   1   1                                       00000150
3726.642 614.686 854.243-0.33414 0.94240-0.01501                        00000160
LINE          LH4WAY    1   1   1                                       00000170
3686.636 605.489 851.795-0.33414 0.94240-0.01501                        00000180
LINE          LHA1-2    1   1   1                                       00000190
3735.984 617.867 845.482-0.33414 0.94240-0.01501                        00000200
LINE          LHA1-3    1   1   1                                       00000210
3726.690 614.409 835.230-0.33414 0.94240-0.01501                        00000220
LINE          LHA1-4    1   1   1                                       00000230
3716.231 610.859 845.712-0.33414 0.94240-0.01501                        00000240
LINE          LHA2-1    1   1   1                                       00000250
3677.928 609.3211010.430-0.42801 0.89302-0.13900                        00000260
LINE          LHA2-2    1   1   1                                       00000270
3683.052 612.6661016.116-0.42801 0.89302-0.13900                        00000280
LINE          LHA2-3    1   1   1                                       00000290
3688.575 614.4231010.387-0.42801 0.89302-0.13900                        00000300
LINE          LHA2-4    1   1   1                                       00000310
3682.805 610.7441004.545-0.42801 0.89302-0.13900                        00000320
LINE          LHA3-1    1   1   1                                       00000330
3742.714 643.115 995.502-0.42801 0.89302-0.13900                        00000340
LINE          LH2WAY    1   1   1                                       00000350
3747.687 642.510 963.794-0.33414 0.94240-0.01501                        00000360
LINE          LHA3-2    1   1   1                                       00000370
3746.279 645.500 999.831-0.42801 0.89302-0.13900                        00000380
LINE          LHA3-3    1   1   1                                       00000390
3751.610 647.256 994.692-0.42801 0.89302-0.13900                        00000400
LINE          LHA3-4    1   1   1                                       00000410
3746.288 643.999 990.176-0.42801 0.89302-0.13900                        00000420
LINE          RHA1-1    1   1   1                                       00000430
4073.940 614.218 835.701 0.33414 0.94240-0.01501                        00000440
LINE          RHA1-2    1   1   1                                       00000450
4064.560 617.702 845.730 0.33414 0.94240-0.01501                        00000460
LINE          RHA1-3    1   1   1                                       00000470
4074.029 614.475 854.378 0.33414 0.94240-0.01501                        00000480
LINE          RH4WAY    1   1   1                                       00000490
4113.210 605.569 851.806 0.33414 0.94240-0.01501                        00000500
LINE          RHA1-4    1   1   1                                       00000510
4082.385 611.364 844.983 0.33414 0.94240-0.01501                        00000520
LINE          RHA2-1    1   1   1                                       00000530
4117.229 610.7801004.851 0.42801 0.89302-0.13900                        00000540
LINE          RHA2-2    1   1   1                                       00000550
4121.850 609.4911010.809 0.42801 0.89302-0.13900                        00000560
LINE          RHA2-3    1   1   1                                       00000570
4117.367 612.5431016.590 0.42801 0.89302-0.13900                        00000580
LINE          RHA2-4    1   1   1                                       00000590
4111.497 614.4861010.987 0.42801 0.89302-0.13900                        00000600
LINE          RHA3-1    1   1   1                                       00000610
4053.591 643.926 989.306 0.42801 0.89302-0.13900                        00000620
LINE          RH2WAY    1   1   1                                       00000630
4052.164 642.588 963.803 0.33414 0.94240-0.01501                        00000640
LINE          RHA3-2    1   1   1                                       00000650
4049.193 646.994 995.448 0.42801 0.89302-0.13900                        00000660
LINE          RHA3-3    1   1   1                                       00000670
4053.779 645.497 999.958 0.42801 0.89302-0.13900                        00000680
LINE          RHA3-4    1   1   1                                       00000690
4058.209 642.547 994.671 0.42801 0.89302-0.13900                        00000700
* TERMINATE                                                             00000710
  • Wow 2001 is a really old version!
    Quick question - in the title bar of the software does it say either PRO, CAD or CAD++? I don't know if these levels of software existed back then. If it says Pro then it's likely you cannot import 'CAD' which the xyz file is being treated as in this case.

    It says PC-DMIS for Windows. That's the 3.25 version, or 3.97. And you are right on the fact that i can't import CAD Files, because it is an option...


    Thank you Matthew for your DES Files. I just tried to export a DES File but i must pay for it. That's the same to import a DES.

    I am kind of disappointed. It's like paying for a Ferrari and have to pay a little more to have electric windows Stuck out tongue closed eyes

    Thank you for your fast answers !

    If you have any magic solution, it's still welcome !

    Max
  • Learn how to touch type.... yeah, sucks when they get the cheapest, no-frills option of Pcdmis.
  • One option is to write a script to read in the text file and add the commands to your program.

    But it requires VB knowledge, I don't have time to give an example right now but it should be doable.
  • One option is to write a script to read in the text file and add the commands to your program.

    But it requires VB knowledge, I don't have time to give an example right now but it should be doable.

    +1

    What's the lifespan of that script if posted in the forum...? Rolling eyes
  • +1

    What's the lifespan of that script if posted in the forum...? Rolling eyes

    I don't see that they'd remove it tbh - it's not like it gives full CAD functionality or anything.

    The issue I see is that I've had to make extensive changes to scripts which run fine from anything 3.7 to current versions, in order for them to work on 3.2.
  • I am able to modify a VBA program if i identify the variables. But it will be difficult if i have not an example...

    About my version, the original was 3.25 and there were updates (3.97 for the last one)

    If you already have a script for a similar version, i could take a look on it and try it on my DMIS version. If you won't put it on the forum, i can give you my address ?
  • I don't see that they'd remove it tbh - it's not like it gives full CAD functionality or anything.

    The issue I see is that I've had to make extensive changes to scripts which run fine from anything 3.7 to current versions, in order for them to work on 3.2.

    That is because V3.5 was a complete re-coding of the software, basically.

    Biggest change that was put in V3.5 was the way alignments are handled.

    Bascially what it boils down to is that before V3.5, features measured after the alignment were tied to the alignment, and no further. With V3.5 (and all since), they don't stop there, but track all the way back to machine co-ordinates, if ya follow what I mean.

    Pre V3.5, when you move the part/fixture to a new place on the table and measured the alignment, all the post-alignment features "updated" to the new alignment position before they are measured. Now, they stick to where they were in machine co-ordinates where they were last measured until they are re-measured. Took a little to get used to this when the change was made as I was used to being able to see the features on the model where they belong after doing the alignment instead of being forced to wait for them to get measured again for them to be "on the model" where they belong.
  • I am able to modify a VBA program if i identify the variables. But it will be difficult if i have not an example...

    About my version, the original was 3.25 and there were updates (3.97 for the last one)

    If you already have a script for a similar version, i could take a look on it and try it on my DMIS version. If you won't put it on the forum, i can give you my address ?


    Create a program in pc-dmis with a single vector point in it.

    File > Export > Basic and save the file.


    View the file in notepad and it will look something like this 


    
Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Part1
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  CommandCount = DmisCommands.Count
  Set DmisCommand = DmisCommands.Item(CommandCount)
  DmisCommands.InsertionPointAfter DmisCommand
  Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = STARTUP
    retval = DmisCommand.PutText ("STARTUP", ID, 0)
  ' Set Reference Id Item 1 = USE_PART_SETUP
    retval = DmisCommand.PutText ("USE_PART_SETUP", REF_ID, 1)
  ' Set Alignment List  = YES
    retval = DmisCommand.SetToggleString (2, ALIGN_LIST, 0)
  
  Set DmisCommand = DmisCommands.Add(END_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  
  Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Mode  = MANUAL
    retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
  
  Set DmisCommand = DmisCommands.Add(PREHIT_DISTANCE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Distance  = 2
    retval = DmisCommand.PutText ("2", DISTANCE, 0)
  
  Set DmisCommand = DmisCommands.Add(RETRACT_DISTANCE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Distance  = 2
    retval = DmisCommand.PutText ("2", DISTANCE, 0)
  
  Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Move Speed  = 300
    retval = DmisCommand.PutText ("300", F_MOVESPEED, 0)
  
  Set DmisCommand = DmisCommands.Add(FLY_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Fly Mode  = ON
    retval = DmisCommand.SetToggleString (2, FLY_MODE_TYPE, 0)
  ' Set Radius Type  = 3
    retval = DmisCommand.PutText ("3", RADIUS_TYPE, 0)
  
  Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Dimension Text  = TEXT
    retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
  ' Set Dimension Text Options  = OPTIONS
    retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
  ' Set Show Headings  = HEADINGS
    retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
  ' Set Show Symbols  = SYMBOLS
    retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
  ' Set Standard Deviation  =  
    retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
  ' Set Dimension Heading Item 1 = NOM
    retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
  ' Set Dimension Heading Item 2 = TOL
    retval = DmisCommand.SetToggleString (2, DIM_HEADING, 2)
  ' Set Dimension Heading Item 3 = MEAS
    retval = DmisCommand.SetToggleString (3, DIM_HEADING, 3)
  ' Set Dimension Heading Item 4 = DEV
    retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
  ' Set Dimension Heading Item 5 = OUTTOL
    retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)
  
  Set DmisCommand = DmisCommands.Add(GET_PROBE_DATA, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Filename  = P4_4BY40
    retval = DmisCommand.PutText ("P4_4BY40", FILE_NAME, 0)
  
  Set DmisCommand = DmisCommands.Add(SET_ACTIVE_TIP, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = T1A90B90
    retval = DmisCommand.PutText ("T1A90B90", ID, 0)
  ' Set Tip I  = -1
    retval = DmisCommand.PutText ("-1", TIP_I, 0)
  ' Set Tip J  = 0
    retval = DmisCommand.PutText ("0", TIP_J, 0)
  ' Set Tip K  = 0
    retval = DmisCommand.PutText ("0", TIP_K, 0)
  ' Set Theoretical Angle  = 90
    retval = DmisCommand.PutText ("90", THEO_ANGLE, 0)
  
  [B]Set DmisCommand = DmisCommands.Add(CONTACT_VECTOR_POINT_FEATURE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Theoretical X  = 50
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"50"[/COLOR], THEO_X, 0)
  ' Set Theoretical Y  = 100
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"100"[/COLOR], THEO_Y, 0)
  ' Set Theoretical Z  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], THEO_Z, 0)
  ' Set Theoretical I  = 0
    retval = DmisCommand.PutText [COLOR="#FF0000"]("0"[/COLOR], THEO_I, 0)
  ' Set Theoretical J  = 0
    retval = DmisCommand.PutText [COLOR="#FF0000"]("0"[/COLOR], THEO_J, 0)
  ' Set Theoretical K  = 1
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"1"[/COLOR], THEO_K, 0)
  ' Set Report Vector I  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_I, 0)
  ' Set Report Vector J  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_J, 0)
  ' Set Report Vector K  = 1
    retval = DmisCommand.PutText ("1", REPORTVEC_K, 0)
  ' Set Update Vector I  = 1
    retval = DmisCommand.PutText ("1", UPDATEVEC_I, 0)
  ' Set Update Vector J  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_J, 0)
  ' Set Update Vector K  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_K, 0)
  ' Set Measured X  = 50
    retval = DmisCommand.PutText ("50", MEAS_X, 0)
  ' Set Measured Y  = 100
    retval = DmisCommand.PutText ("100", MEAS_Y, 0)
  ' Set Measured Z  = 0
    retval = DmisCommand.PutText ("0", MEAS_Z, 0)
  ' Set Measured I  = 0
    retval = DmisCommand.PutText ("0", MEAS_I, 0)
  ' Set Measured J  = 0
    retval = DmisCommand.PutText ("0", MEAS_J, 0)
  ' Set Measured K  = 1
    retval = DmisCommand.PutText ("1", MEAS_K, 0)
  ' Set Target X  = 50
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"50"[/COLOR], TARG_X, 0)
  ' Set Target Y  = 100
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"100"[/COLOR], TARG_Y, 0)
  ' Set Target Z  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_Z, 0)
  ' Set Target I  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_I, 0)
  ' Set Target J  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_J, 0)
  ' Set Target K  = 1
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"1"[/COLOR], TARG_K, 0)
  ' Set Update Vector I  = 1
    retval = DmisCommand.PutText ("1", UPDATEVEC_I, 0)
  ' Set Update Vector J  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_J, 0)
  ' Set Update Vector K  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_K, 0)
  ' Set Report Vector I  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_I, 0)
  ' Set Report Vector J  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_J, 0)
  ' Set Report Vector K  = 1
    retval = DmisCommand.PutText ("1", REPORTVEC_K, 0)
  ' Set Id  = PNT1
    retval = DmisCommand.PutText ("[COLOR="#FF0000"]PNT1[/COLOR]", ID, 0)
  ' Set Coordinate Type  = CARTESIAN
    retval = DmisCommand.SetToggleString (1, COORD_TYPE, 0)
  ' Set Relative Measure Feature X  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDX, 0)
  ' Set Relative Measure Feature Y  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDY, 0)
  ' Set Relative Measure Feature Z  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDZ, 0)
  ' Set Noms Mode  = NOMINALS
    retval = DmisCommand.SetToggleString (3, FIND_NOMS_TYPE, 0)
  ' Set Surface Thickness Type  = THICKNESS_NONE
    retval = DmisCommand.SetToggleString (3, THICKNESS_TYPE, 0)
  ' Set Surface Thickness  = 0
    retval = DmisCommand.PutText ("0", F_THICKNESS, 0)
  ' Set Auto Wrist  = NO
    retval = DmisCommand.SetToggleString (1, AUTO_PH9, 0)
  ' Set Void Detection  = NO
    retval = DmisCommand.SetToggleString (1, VOID_DETECT, 0)
  ' Set Graphic Analysis  = NO
    retval = DmisCommand.SetToggleString (1, GRAPH_ANALYSIS, 0)
  ' Set Feature Locator BMP  = NO
    retval = DmisCommand.SetToggleString (1, LOCATOR_BMP, 0)
  ' Set Feature Locator WAV  = NO
    retval = DmisCommand.SetToggleString (1, LOCATOR_WAV, 0)
  ' Set Feature Locator Text  = 
    retval = DmisCommand.PutText ("", COMMENT_FIELD, 0)
  ' Set Measurement Strategy  = DEFAULT
    retval = DmisCommand.PutText ("DEFAULT", MEASUREMENT_STRATEGY, 0)
  ' Set Display Probe Parameters  = YES
    retval = DmisCommand.SetToggleString (2, DISPLAY_PROBE_PARAMETERS, 0)
  ' Set Display Advanced Parameters  = YES
    retval = DmisCommand.SetToggleString (2, DISPLAY_ADVANCED_PARAMETERS, 0)
  ' Set Avoidance Move  = BOTH
    retval = DmisCommand.SetToggleString (2, MOVE_TYPE, 0)
  ' Set Avoidance Move Distance  = 25
    retval = DmisCommand.PutText ("25", F_AUTOMOVE, 0)
  ' Set Display Hits  = NO
    retval = DmisCommand.PutText ("NO", DISPLAY_HITS, 0)[/B]
  
End Sub

Sub Main

  Part1

  DmisPart.RefreshPart
End Sub





    Edited for more info
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement