[编程申请]：怎样在cad的数值字符串计算成数值？谢谢！

zelotous · 发表于 2006-7-25 13:15:55

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

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

×

在CAD中，例如文字(1+2+1*3)/2+6*1，编写一个程序，效果是，单击以上文字，就可以出来结果。
(1+2+1*3)/2+6*1=9。谢谢！！

zxq0220 · 发表于 2006-7-25 21:50:02

[php]
(DEFUN C:TEST ()
(WHILE (SETQ S1 (ENTSEL "\nSelect a text to calculate :"))
  (SETQ ENT (ENTGET (CAR S1)))
  (IF (= (CDR (ASSOC 0 ENT)) "TEXT") (PROGN
(SETQ TXT (CDR (ASSOC 1 ENT)))
(PRINC (C:CAL TXT))
(PRINC "\n")
  ))
)
(PRINC)
)
[/php]

zelotous · 发表于 2006-7-25 22:41:19

谢谢,有没有vba的,我现在正在学vba,遇到这个问题.谢谢.

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

[编程申请]：怎样在cad的数值字符串计算成数值？谢谢！

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

相关帖子

浏览过的版块