[分享]：【CAD文字工具】数字相乘

coco25825 · 发表于 2008-9-3 18:31:55

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

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

×

(DEFUN C:chu1()
(setq jd (getint "input 精度<0>:"))
(if (= jd nil) (setq jd 0))
(princ "\nselect object:")
(setq s (ssget))
(setq n (sslength s))
(setq k 0 )(setq mm 0.0)
(while (< k n)
   (setq name (ssname s k))
   (setq a (entget name))
   (setq t (assoc '0 a))
   (setq t (cdr t))
   (if (= t "TEXT") (PROGN
      (setq tx (assoc '1 a))
      (setq tx (cdr tx))
      (setq tx (atof tx))
      (if (= k 0) (setq MM TX))
      (if (/= k 0) (setq mm (/ mm tx)))
      ))
   (setq k (+ k 1))
)
(setq mm (rtos mm 2 jd))
(setq po (getpoint "input point----:"))
(command "text" po ""  "" mm)
)

feige12 · 发表于 2008-9-9 14:26:09

楼主不能解释一下吗？

coco25825 · 发表于 2008-9-18 10:02:41

加载后，输入命令，点击一个数字，再点击要乘的数字

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

[分享]：【CAD文字工具】数字相乘

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

相关帖子