wayne_myles 发表于 2019-1-18 08:25:08

版主 删帖吧!

本帖最后由 wayne_myles 于 2019-1-18 16:55 编辑

求一键求和 框选标注!! 把框选得到标注值全部求和
框选标注 把框选得到所有标注数值求和
求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 发表于 2019-1-18 08:47:12

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

wayne_myles 发表于 2019-1-18 10:16:13

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

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

mikewolf2k 发表于 2019-1-18 10:42:29

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

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

Andyhon 发表于 2019-1-18 12:35:30

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

wayne_myles 发表于 2019-1-18 12:39:26

本帖最后由 wayne_myles 于 2019-1-18 13:44 编辑

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)
         )
页: [1]
查看完整版本: 版主 删帖吧!