Topic: Problems with vlax-curve-getPointAtDist

[cadplayer]

Hello!

I need some guys some can test this method

Code: [Select]

(defun c:xx()
  (setq curve-obj (vlax-ename->vla-object (car (entsel "\m Select Polyline!"))))
  (while (setq p (vlax-curve-getPointAtDist curve-obj (getdist "\n Enter a distance: ")))
    (command-s "_point" p)
    )
  )
My problem is: the method works wrong in my AutoCAD Civil3d 2016 SP1.0 installation
After run command: xx
Select a Polyline and than give some distance values
it should set points exactly after distance value along the Polyline.
In my case it don΄t do that. It sets all points on startpoint from Polyline and random to the endpoint from Polyline.
Have somebody the same result, please give me a call.

[roy_043]

This is a classic OSMODE issue.
Because you use command calls the OSMODE value has an impact on the end result.

[MP]

This is a classic OSMODE and/or SNAPMODE issue.

Because you use command calls the OSMODE and SNAPMODE values may have an impact on the end result.

Save their values, set them to 0 before executing your command calls, restoring their original values when done.

This/Fixed.

[cadplayer]

Oh thank you, I thougt I have done it in my program I use this method.

[roy_043]

@ MP: I am not seeing this issue with SNAPMODE. Note: I use BricsCAD.

[Lee Mac]

Easiest fix would be:

Code: [Select]

(command-s "_.point" "_non" (trans p 0 1))
Or better, use entmake:

Code: [Select]

(entmake (list '(0 . "POINT") (cons 10 p)))

[cadplayer]

Perfect, thanx Lee!

[MP]

@ MP: I am not seeing this issue with SNAPMODE. Note: I use BricsCAD.

You're correct, I should never post in the middle of the night when messed up from insomnia. You'd think I'd know that after all these years ... apologies for the tangent. Leaving errant post intact for thread continuity.