如何在提款中增加价值

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)))
                 [b][color=darkred](alert (strcat "Total=\t" (itoa total)))[/color][/b])
          (princ "\nNone Found:")
         )(princ)
 )

编辑：剪切粘贴、剪切粘贴、修剪过多。修剪修剪

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

香草

copy


(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

copy

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

相反

copy

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

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

谢谢兄弟，

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

很乐意帮忙

干杯，卡米格

[编程交流] 如何在提款中增加价值

发表回复

精选推荐