如何在测试中仅获取数字,例如:
EL 950.66m或
EL 946.05
我只想得到上面的数字,在lisp中使用它。。。
抱歉的代码lol,我不知道怎么做。。。
- (defun c:Televation ( / ss sss )
- (setq ss (ssget "_:L" '((0 . "TEXT") (1 . "*#*"))))
- (setq txtcont (cdr (assoc 1 (entget (ssname ss 0)))))
- (setq sss (ssget "_:L"))
- (command"_.CHANGE" sss "" "_P" "_E" txtcont "")
- )
PS:我用这个改变来改变每个物体的高度,不管它是多段线、直线、文字、引线、图案填充等等。。。
所以你们知道为什么我只需要这些数字,把它作为我想要改变的每个物体的高度 |