[LISP函数]：如何提取数值

00lg · 发表于 2005-5-14 12:25:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

小弟有一问题想请教
就是在图里有几个带有前缀的数字应该如何提取数值进行运算？
例如“L=560.22”“L=566.37”“L=463.86”

如果用下面的就只能提取单纯是数字的数值。如“560.22”

(setq aent (entsel "\n请选择数字 "))
(setq a (entget (car aent)))
(setq a1 (atof(cdr(assoc 1 a))))

这时候的a1就是提取出来的数值了。
有后缀也行，如“560.22M”
我想是不是关键在assoc这一步上？向各位老大请教了!

ljpnb · 发表于 2005-5-14 12:36:42

(setq a1 (atof(cdr(assoc 1 a))))这样能提取数值？？？？

xyp1964 · 发表于 2005-5-14 12:58:26

试试：
[php]
(defun c:test (/ e)
  (while (/= e "TEXT")
(while (not (setq s1 (entsel))))
(setq e (cdr (assoc 0 (entget (car s1)))))
  )
  (setq a (cdr (assoc 1 (entget (car s1)))))
  (if (= (substr a 1 2) "L=")
(setq a (atof (substr a 3)))
(setq a (atof a))
  )
  a
)[/php]

00lg · 发表于 2005-5-16 22:11:49

但是为什么要有一段(setq e (cdr (assoc 0 (entget (car s1)))))呢？

xyp1964 · 发表于 2005-5-17 01:42:55

最初由 00lg 发布
[B]但是为什么要有一段(setq e (cdr (assoc 0 (entget (car s1)))))呢？ [/B]

必须选到“TEXT”图元。

userzhluserzhl · 发表于 2005-7-8 22:17:29

试过了不行呀，我用的是XP+2005！

vang8866 · 发表于 2005-7-26 13:48:18

atof M 是字符不是数字，atof 就会只取数字不会取字符的

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：如何提取数值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块