[分享]：CAD中数字运算

hushui1973 · 发表于 2009-1-7 16:43:37

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

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

×

转发的

caddog · 发表于 2009-1-7 22:06:04

功能是怎样的啊？能说详细点么

winabcd · 发表于 2009-1-8 15:36:34

是计算1+1=2的吗？
楼主最好说明是做什么数字运算的。

zml84 · 发表于 2009-1-8 19:28:03

[php]
(defun SS-TEXT-GETREAL (SS / LST I)
(setq LST '()
I 0
)
(repeat (sslength SS)
(setq LST (cons (read (cdr (assoc 1 (entget (ssname SS I))))) LST))
(setq I (1+ I))
)
(reverse LST)
)

(defun C:++ ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '+ (SS-TEXT-GETREAL SS))))
)
(princ)
)
(defun C:-- ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '- (SS-TEXT-GETREAL SS))))
)
(princ)
)
(defun C:** ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '* (SS-TEXT-GETREAL SS))))
)
(princ)
)
(defun C:// ()
(if (setq SS (ssget '((0 . "TEXT"))))
(princ (eval (cons '/ (SS-TEXT-GETREAL SS))))
)
(princ)
)
[/php]
http://zml84.blog.sohu.com/93678331.html

sexgjgj · 发表于 2009-1-8 20:12:41

谢谢

mtc · 发表于 2009-1-8 20:39:01

不知道有什么用！

landing · 发表于 2009-1-12 23:59:56

我没有钱，但我想要能给我吗？

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

[分享]：CAD中数字运算

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

相关帖子

简化四则运算