Parse Numbers; Get string from *TEXT

역쉬 없는게 없는 LEEMAC님~~

Parse Numbers | Lee Mac Programming

;; Parse Numbers  -  Lee Mac
;; Parses a list of numerical values from a supplied string.

(defun LM:parsenumbers ( str )
    (   (lambda ( l )
            (read
                (strcat "("
                    (vl-list->string
                        (mapcar
                           '(lambda ( a b c )
                                (if (or (< 47 b 58)
                                        (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                                        (and (= 46 b) (< 47 a 58) (< 47 c 58))
                                    )
                                    b 32
                                )
                            )
                            (cons nil l) l (append (cdr l) '(()))
                        )
                    )
                    ")"
                )
            )
        )
        (vl-string->list str)
    )
)

(setq str (LM:parsenumbers "1a-2.3b4c56"))
;(1 -2.3 4 56)

 

 

get TEXT content????

;Get string from *Text
(setq txt (vla-get-TextString (vlax-ename->vla-object (car (entsel)))))