kamig 发表于 2022-7-6 07:59:04

如何在提款中增加价值

如何计数。dwghello bro，
 
请告诉我图纸中的计数。在图纸示例中，我有更多的100个值100 L/s 223 L/s 525 L/s
我想要这个的总价值
 
看待
卡姆兰·萨利姆

pBe 发表于 2022-7-6 08:13:38

(defun c:addv ( / Total ss e)
(vl-load-com)
(if (setq total 0 ss (ssget "_X" '((0 . "TEXT")(1 . "*#*L/s"))))
   (progn
       (repeat (setq i (sslength ss))
       (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
       (setq total (+ (atoi(vl-string-right-trim
                                       " L/s"
                                       (vla-get-textstring e)
                                       )
                                     ) total)))
               (alert (strcat "Total=\t" (itoa total))))
          (princ "\nNone Found:")
         )(princ)
)
 
编辑：剪切粘贴、剪切粘贴、修剪过多。修剪修剪

Tharwat 发表于 2022-7-6 08:14:21

香草
 

(defun c:addv (/ Total ss i sn)
(if (setq total 0
         ss    (ssget'((0 . "*TEXT") (1 . "*#*L/s")))
   )
   (progn
   (repeat (setq i (sslength ss))
       (setq sn (ssname ss (setq i (1- i))))
       (setq total
            (+ (atoi
                   (substr (cdr (assoc 1 (entget sn)))
                           1
                           (- (strlen (cdr (assoc 1 (entget sn)))) 3)
                   )
               )
               total
            )
       )
   )
   (princ (strcat "\nTotal :" (itoa total)))
   )
   (princ "\nNone Found:")
)
(princ)
)

pBe 发表于 2022-7-6 08:27:33

你究竟躲到哪里去了？

Tharwat 发表于 2022-7-6 08:35:16

我中暑很厉害，睡了一个星期。
 
谢谢你问我的朋友。

kamig 发表于 2022-7-6 08:40:37

谢谢老板，很好
但是，如果你能改进代码，结果就不会出现在屏幕上，这对我们很有帮助

pBe 发表于 2022-7-6 08:47:10

(alert (strcat "Total=\t" (itoa total))))
 
相反
 

(princ (strcat "\nTotal " (itoa total)))

kamig 发表于 2022-7-6 08:56:45

谢谢兄弟，

pBe 发表于 2022-7-6 09:02:42

 
很乐意帮忙
 
干杯，卡米格
页: [1]
查看完整版本: 如何在提款中增加价值