0 Members and 1 Guest are viewing this topic.
...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)
(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)
(defun foo (/) (vl-list->string (reverse (cddddr (member 91 (reverse (vl-string->list (vla-get-caption (vlax-get-acad-object)))))) ) ))