[分享]：【CAD数字文本计算】：数字相乘，并标注

coco25825 · 发表于 2008-9-3 18:26:24

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

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

×

(DEFUN C:chen1()
(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)
)

zml84 · 发表于 2008-9-10 19:53:21

见演示

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

[分享]：【CAD数字文本计算】：数字相乘，并标注

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

相关帖子