VB API - Line does not appear at correct place

Question

When drawing a simple line using the sample VB API code, a line appears in the drawing but the wrong place consistently.

Using the code below, a line is expected from 0,0 to 20,0

Dim start As IpfcPoint3D
Dim finish As IpfcPoint3D

model = creoSession.CurrentModel

start = New CpfcPoint3D
start.Set(0, 0)
start.Set(1, 0)
start.Set(2, 0)

finish = New CpfcPoint3D
finish.Set(0, 20)
finish.Set(1, 20)
finish.Set(2, 0)

geom = (New CCpfcLineDescriptor).Create(start, finish)
lineInstructions = (New CCpfcDetailEntityInstructions).Create(geom, Nothing)
drawing.CreateDetailItem(lineInstructions)

When I check the coordinates again, they show correct values.

MessageBox.Show("Start = " & start.Item(0).ToString & " x " & start.Item(1).ToString & vbCrLf &
"End = " & finish.Item(0).ToString & " x " & finish.Item(1).ToString
)

Am I missing any transformation?

TusharS · Accepted Answer

Thank you for the reply @YaroslavSin and my sincere apologies for the delay.

The hint is helpful, but it will be immensely helpful if you could also point to how the online/offline help could be accessed and any code snippet for the transformation of screen coordinates to drawing coordinates.

I have tried this meanwhile:

' define line start and end point
Dim startPt As IpfcPoint3D
Dim endPt As IpfcPoint3D

startPt = New CpfcPoint3D
startPt.Set(0, 0)
startPt.Set(1, 0)
startPt.Set(2, 0)

endPt = New CpfcPoint3D
endPt.Set(0, 20)
endPt.Set(1, 20)
endPt.Set(2, 0)

Dim scrTrans As IpfcScreenTransform = (New CCpfcScreenTransform).Create(startPt, endPt, Nothing)

Can you please tell, with code, how to transform these points to drawing coordinates.

Thanks, in advance.

Best,

Tushar

Prasad_G · Answer

Did you find solution for this? Regards,Prasad

VB API - Line does not appear at correct place

7 replies

Windchill Satisfaction Survey

Take the Survey ↗

Windchill Satisfaction Survey

Take the Survey ↗

Sign up

Please use your PTC eSupport account.

Welcome to the PTC Community

Please use your PTC eSupport account.