Parse Numbers; Get string from *TEXT
역쉬 없는게 없는 LEEMAC님~~
Parse Numbers | Lee Mac Programming
Parse Numbers Function Syntax (LM:parsenumbers ) Current Version 1.0 Donate Arguments Symbol Type Description str String String from which to extract numerical values Returns Type Description List List of numbers found in supplied string, else nil Function
www.lee-mac.com
;; 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????
how do i get the TEXT content and put it as elevation on objects i'll be slecting? (defun c:q1 (/ txt1 q1 ss) (setq ss (ssget "_C" '((0 . "*TEXT")))) (cdr (assoc 1 (entget (ssname ss (setq txt1 0))))) (prompt "\nSELECT OBJECTS") (setq sss (ssget "_:L")) (c
www.cadtutor.net
;Get string from *Text
(setq txt (vla-get-TextString (vlax-ename->vla-object (car (entsel)))))