求CAD标注求和的程序

930110534 · 发表于 2015-1-22 21:46:41

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

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

×

1.如题。工作中经常要对门洞长度进行标注，最后还要统计所有门洞的总长度，有哪位大神可以给个标注求和的源代码，感激不尽！！

zxq0220 · 发表于 2015-1-23 08:16:20

(defun c:tt ()
(setq sum 0.0)
(if (setq ss (ssget '((0 . "DIMENSION"))))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i))))))
(setq txt (cdr(assoc 1 ent)))
(setq val (cdr(assoc 42 ent)))
(setq sum (+ sum (if (or (= txt "") (wcmatch txt "*<>*")) val) (atof txt))))
)
)
(princ sum)
(princ)
)

930110534 · 发表于 2015-2-9 15:35:42

大神，您好，感激不尽！

登录/注册后可看大图

可以帮我再检查下吗？使用时提示语法错误。

amwkto2011 · 发表于 2015-3-11 14:26:21

930110534 发表于 2015-2-9 15:35
大神，您好，感激不尽！可以帮我再检查下吗？使用时提示语法错误。

(defun c:Tt (/ EN GET LEN NN NS STR X XF Y)
  (princ "\n功能 [框选标注求和]")
  (and (setq get (ssget '((0 . "DIMENSION"))))
  (progn
  (setq Len (sslength get))
  (repeat Len
(setq nn (ssname get (setq Len (1- Len)))
   en (entget nn)
   xf (cdr (assoc 42 en))
   ns (cons xf ns)
)
  )
  (setq str
   (substr
   (apply
      'strcat
      (list
         (apply
   'strcat
   (mapcar '(lambda (x) (strcat "+" x))
   (mapcar '(lambda (y) (rtos y 2 2)) ns)
   )
         )
         (strcat "=" (rtos (apply '+ ns) 2 2))
      )
   )
   2
   )
  )
  (princ (strcat "\n☆☆☆ 表达式 < " str "mm > ☆☆☆"))
   )
  )
  (princ)
)

李勇志 · 发表于 2015-3-11 17:32:30

第一个插件第8行多了一个”）“
(setq sum (+ sum (if (or (= txt "") (wcmatch txt "*<>*")) val ) (atof txt))))

如果有兴趣量身定制自己的插件，欢迎光临鄙店，我们将会为您提供最优质的服务，谢谢
http://item.taobao.com/item.htm? ... &id=44087801664

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

[求助] 求CAD标注求和的程序

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

相关帖子

点评