版主 删帖吧!

wayne_myles

求一键求和 框选标注!! 把框选得到标注值全部求和
框选标注 把框选得到所有标注数值求和  
求lsp这一过程
谢谢诸位大大!!!

自己动手搜索了一个 大家一起学习下
http://bbs.mjtd.com/forum.php?mo ... hlight=%C7%F3%BA%CD
;;;=============标注求和caa.lsp===================================================
(defun c:caa ( / ss i sum ssone0 ssone a1 a2)
          (setq ss (ssget '((0 . "DIMENSION"))))
          (setq i 1)
          (setq ent (entget(ssname ss 0)))
          (setq a1 (cdr(assoc 1 ent)))
   (if (or (= a1 "") (= a1 "<>"))  
   (setq sum (cdr(assoc 42 ent)))   
   (setq sum (atof a1)) )
   (repeat (1- (sslength ss))  
   (setq ssone (entget (ssname ss i)))  
   (setq a1 (cdr (assoc 1 ssone)))
        (if (or (= a1 "") (= a1 "<>"))   
        (setq a2 (cdr (assoc 42 ssone)))  
        (setq a2 (atof a1))   )     
        (setq sum (+ sum a2))  
                        (setq i (1+ i)) ) (princ "\n******所选标注和为")
                 (princ sum)
        (princ "******")   
        ;(command "text" "s" "standard"  pause "3" "0" (rtos sum 2 2))
        (princ)
           )

1784290342

你都回复了快400贴了，这种小程序你自个应该就搞定了，不能什么都靠别人啊，不然怎么提高？

wayne_myles

1784290342 发表于 2019-1-18 08:47
你都回复了快400贴了，这种小程序你自个应该就搞定了，不能什么都靠别人啊，不然怎么提高？

呵呵太菜了 论坛里人才挤挤

mikewolf2k

1784290342 发表于 2019-1-18 08:47
你都回复了快400贴了，这种小程序你自个应该就搞定了，不能什么都靠别人啊，不然怎么提高？

伸手党太多，只想着不劳而获，没有就怪没大神。甚至人家白给了编译的程序，还要伸手要源码。

Andyhon

http://bbs.mjtd.com/thread-100603-1-1.html
...
本版块力求打造成为会员们答疑解惑的技术交流平台，帮助大家提高Lisp编程技巧和水平。
...

wayne_myles

mikewolf2k 发表于 2019-1-18 10:42
伸手党太多，只想着不劳而获，没有就怪没大神。甚至人家白给了编译的程序，还要伸手要源码。

我可没有怪大神 !我就问问好吧!
自己动手搜索了一个 大家一起学习下
http://bbs.mjtd.com/forum.php?mo ... hlight=%C7%F3%BA%CD
;;;=============标注求和caa.lsp===================================================
(defun c:caa ( / ss i sum ssone0 ssone a1 a2)
          (setq ss (ssget '((0 . "DIMENSION"))))
          (setq i 1)
          (setq ent (entget(ssname ss 0)))
          (setq a1 (cdr(assoc 1 ent)))
   (if (or (= a1 "") (= a1 "<>"))  
   (setq sum (cdr(assoc 42 ent)))   
   (setq sum (atof a1)) )
   (repeat (1- (sslength ss))  
   (setq ssone (entget (ssname ss i)))  
   (setq a1 (cdr (assoc 1 ssone)))
        (if (or (= a1 "") (= a1 "<>"))   
        (setq a2 (cdr (assoc 42 ssone)))  
        (setq a2 (atof a1))   )     
        (setq sum (+ sum a2))  
                        (setq i (1+ i)) ) (princ "\n******所选标注和为")
                 (princ sum)
        (princ "******")   
        ;(command "text" "s" "standard"  pause "3" "0" (rtos sum 2 2))
        (princ)
           )