Topic: Mech vs Vanilla Version Number

[MeasureUp]

...
Perhaps something like:

Code: [Select]

(defun woohoo2 (/ p caption)
  (setq caption (vla-get-caption (vlax-get-acad-object)))
  (if (setq p (vl-string-position (ascii "-") caption))
    (substr caption 1 (1- p))
    caption
  )
)
(woohoo2)

Something improved.
I also like "woohoo". 

[alanjt]

Code: [Select]

(defun foo (/)
  (vl-list->string
    (reverse
      (cddddr (member 91 (reverse (vl-string->list (vla-get-caption (vlax-get-acad-object))))))
    )
  )
)