VB Script, Using PutText to enter an expression

I want to write a script that can modify the THEO and TARG values of a feature to be an expression, such as "1+0" or "2*VX+4". So far I can change the values to other values but if I give it an expression it always seems to evaluate it first and insert the result rather than the expression itself.

Not sure if what I want to do is possible but after scouring the forum for any examples I am sure that if it is possible someone on here will know how to do it.

Parents

dph51 over 7 years ago

How'd you that? I could probably help but by the time I type up my solution someone will have posted a better one hahaha! But I'll go ahead and try to help out someone who is constantly sharing their knowledge with others, Mr. dph51.

Post your code if you don't mind. I'll guide you/correct it if needed.

code
extracts theos and shows on screen

Sub Main()
Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDCommand

Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPARTPROGRAMS = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands

Dim cmd As Object
Dim fcntr As Integer
Dim FeatureList$(99999)
Dim TX, TY, TZ, NewTX, NewTY, NewTZ As Variant

fcntr = 0

For Each cmd in PCDCommands
If cmd.IsDCCFeature or cmd.IsMeasuredFeature Then
FeatureList(fcntr) = cmd.id

MSG = "feature ID = " & FeatureList(fcntr)

TX = cmd.GetText(THEO_X, 0)
TY = cmd.GetText(THEO_Y, 0)
TZ = cmd.GetText(THEO_Z, 0)
NewTX = TX & "+0"
NewTY = TY & "+0"
NewTZ = TZ & "+0"

MSG = MSG & chr(10) & chr(10) & "XTheo = " &TX
MSG = MSG & chr(10) & chr(10) & "YTheo = " &TY
MSG = MSG & chr(10) & chr(10) & "ZTheo = " &TZ
MSG = MSG & chr(10) & chr(10) & "NewXTheo = " &NewTX
MSG = MSG & chr(10) & chr(10) & "NewYTheo = " &NewTY
MSG = MSG & chr(10) & chr(10) & "NewZTheo = " &NewTZ

MsgBox MSG

End If

Next cmd

Set PCDApp = nothing
Set PCDPartPrograms = nothing
Set PCDPartProgram = nothing

Reply

dph51 over 7 years ago

How'd you that? I could probably help but by the time I type up my solution someone will have posted a better one hahaha! But I'll go ahead and try to help out someone who is constantly sharing their knowledge with others, Mr. dph51.

Post your code if you don't mind. I'll guide you/correct it if needed.

code
extracts theos and shows on screen

Sub Main()
Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDCommand

Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPARTPROGRAMS = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands

Dim cmd As Object
Dim fcntr As Integer
Dim FeatureList$(99999)
Dim TX, TY, TZ, NewTX, NewTY, NewTZ As Variant

fcntr = 0

For Each cmd in PCDCommands
If cmd.IsDCCFeature or cmd.IsMeasuredFeature Then
FeatureList(fcntr) = cmd.id

MSG = "feature ID = " & FeatureList(fcntr)

TX = cmd.GetText(THEO_X, 0)
TY = cmd.GetText(THEO_Y, 0)
TZ = cmd.GetText(THEO_Z, 0)
NewTX = TX & "+0"
NewTY = TY & "+0"
NewTZ = TZ & "+0"

MSG = MSG & chr(10) & chr(10) & "XTheo = " &TX
MSG = MSG & chr(10) & chr(10) & "YTheo = " &TY
MSG = MSG & chr(10) & chr(10) & "ZTheo = " &TZ
MSG = MSG & chr(10) & chr(10) & "NewXTheo = " &NewTX
MSG = MSG & chr(10) & chr(10) & "NewYTheo = " &NewTY
MSG = MSG & chr(10) & chr(10) & "NewZTheo = " &NewTZ

MsgBox MSG

End If

Next cmd

Set PCDApp = nothing
Set PCDPartPrograms = nothing
Set PCDPartProgram = nothing

Children

No Data