I need a LISP file that outputs the design speeds of an alignment

[Shubz26]

I need a LISP file that outputs the design speeds of an alignment with start and end chainages. How can I do this? The LISP below takes me up to "Count=2", but no actual values.

(vl-load-com)

(setq e (car (entsel)))
(setq vlaobj (vlax-ename->vla-object e))
(setq CX1 (vlax-get-property vlaobj 'DesignSpeeds))
(vlax-dump-object CX1)

)

[Jeff_M · Accepted solution]

You are close to having what you need. Just loop through the DesignSpeeds:

(vlax-for ds cx1
  (princ (strcat "\nStation: " (rtos (vlax-get ds 'Station)) "  Speed: " (rtos (vlax-get ds 'value))))
  )

Note: If you add a t to the dump object function it will also list the methods available.

(vlax-dump-object CX1 t)

[Shubz26 · Accepted solution]

Thanks!

I eventually figured out that I needed to loop through the Items. I found a way to do it in another code I found online:

(vl-load-com)

(setq e (car (entsel)))
(setq vlaobj (vlax-ename->vla-object e))
(setq CX1 (vlax-get-property vlaobj 'DesignSpeeds))
(vlax-dump-object CX1)

(vlax-for for-item
(vlax-get vlaobj 'DesignSpeeds)
(vlax-dump-object for-item))