AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[已解決]求~~文字數字加總計算的lsp? - 頁 2 Io15011 [已解決]求~~文字數字加總計算的lsp? - 頁 2 2020-310 [已解決]求~~文字數字加總計算的lsp? - 頁 2 Oiu15010 [已解決]求~~文字數字加總計算的lsp? - 頁 2 2020-211 [已解決]求~~文字數字加總計算的lsp? - 頁 2 Oo-2-110 [已解決]求~~文字數字加總計算的lsp? - 頁 2 BPl3tjj

[已解決]求~~文字數字加總計算的lsp?

+23
白金之星
阿之
ltea57055
pc200098
jess198109
cheyuan1983
regina
tooth525
阿強
惡魔紫
wwsh3
YU HSIANG
YLCHEN
ysl yang
Tiger&蘋果爸
tarpon
王小美
NaNa
bruce79
lsj
ginse0727
iccs
27 posters

2頁(共2頁) 上一頁  1, 2

向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty [已解決]求~~文字數字加總計算的lsp?

發表 由 iccs 2010-09-05, 21:32

主題回顧 :

小弟是從事水電工程繪圖的~一直有管料統計的困擾,請問大家,是否有文字數字加總計算的lsp呢? 簡述如下圖:
[已解決]求~~文字數字加總計算的lsp? - 頁 2 50200305

是否有那種當我框選文字(文字內容為數字時),lsp能自動幫我加總總和(300+2580+87148+65550=?)的程式呢? 感謝大家~


iccs 在 2010-09-06, 19:22 作了第 1 次修改
iccs
iccs
初級會員
初級會員

文章總數 : 50
年齡 : 40
來自 : 高雄
職業 : 消防設計
愛好 : 電腦、電影、上網
個性 : 龜毛
使用年資 : 10年
使用版本 : AutoCAD 2016
積分 : 1
經驗值 : 4724
威望值 : 21
注冊日期 : 2009-04-28
串連貼紙成功 男 金牛座 雞

回頂端 向下


[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 pc200098 2017-01-05, 23:20

tooth525 寫到:
tooth525 寫到:請問若有符號與數量時該怎麼改呢
[已解決]求~~文字數字加總計算的lsp? - 頁 2 <a href=[已解決]求~~文字數字加總計算的lsp? - 頁 2 Suml" />
改好了
代碼:
(DEFUN C:++()
(setq s1 (ssget) sslen (sslength s1) I (1- sslen) d1 0 d2 0)
(while (>= I 0)
 (setq s2 (ssname s1 I)
       ent (cdr (assoc 1 (entget s2)))      
 )  
 (progn  
   (setq wd ent)
   (if (= "$" (substr wd 1 1))
       (setq wd (substr wd 2))
   )  
   (prompt "  取得: ")(princ wd)
   (c+++)
   (prompt "=")(princ d1)
   (setq d2 (+ d1 d2))
   (setq I (1- I))
 );p
);w
  (prompt "  合計= ")(princ d2)
  (setq inspt (getpoint "\nESC結束或寫入點: "))
  (command "text" inspt "0" (strcat "$" (rtos d2 2 0)))
  (prin1)
)
(DEFUN C+++(/ da db no0 no1 non ns naa nab)
   (setq da nil db nil no0 1 naa nil non (strlen wd) ns 1 no1 0)
   (setq d1 (atof wd));add
     (while  (< no0 (+ non 2))
       (setq naa (substr wd no0 1))
       (if (or (= "+" naa) (= "-" naa) (= "*" naa) (= "X" naa) (= "x" naa) (= "/" naa)(= """" naa))
          (progn
           (if da
               (progn
                  (setq db (atof (substr wd ns no1)))
  (cond ((= "+" nab)
                         (setq d1 (+ da db))
                        )
                        ((= "-" nab)
                         (setq d1 (- da db))
                        )
 ((= "X" nab)
                         (setq d1 (* da db))
                        )
                        ((= "x" nab)
                         (setq d1 (* da db))
                        )
 ((= "*" nab)
                         (setq d1 (* da db))
                        )
                        ((= "/" nab)
                         (setq d1 (/ da db))
                        )
                  )
  (setq da d1)
               );progn yes da
               (if (= no0 1) (setq da d1) (setq da (atof (substr wd ns no1))))
           );if da
          (setq no1 -1 ns (+ no0 1) nab naa)
          );progn
       );if
       (setq no1 (+ no1 1) no0 (+ no0 1))
   );while  
)

回應tooth525大,因您改好的代碼在插入文字時因沒指定文字高度,所以插入文字功能被迫中斷
我改好讓使用者在插入文字時自訂文字高度,並整理排列
有需要的拿去使用吧~

代碼:
(Defun C:++()
  (setq s1 (ssget) sslen (sslength s1) I (1- sslen) d1 0 d2 0)
  (while (>= I 0)
    (setq s2 (ssname s1 I)
  ent (cdr (assoc 1 (entget s2)))
  );setq
    (progn
      (setq wd ent)
      (if (= "$" (substr wd 1 1))
      (setq wd (substr wd 2))
 );if
  (prompt "  取得: ")(princ wd)(c+++)(prompt "=")(princ d1)
  (setq d2 (+ d1 d2))
  (setq I (1- I)
 );setq
      );progn
    );while
  (prompt "  合計= ")
  (princ d2)
  (setq inspt1 (getpoint "\nESC結束或寫入點: "))
  (setq texthigh (getreal "\n請輸入文字高度:"))
  (command "text" inspt1 texthigh "0" (rtos d2 2 0))
  (prin1)
  );Defun

(Defun C+++(/ da db no0 no1 non ns naa nab)
  (setq da nil db nil no0 1 naa nil non (strlen wd) ns 1 no1 0)
  (setq d1 (atof wd));add
    (while  (< no0 (+ non 2))
      (setq naa (substr wd no0 1))
      (if (or (= "+" naa) (= "|" naa)  (= "-" naa) (= "*" naa) (= "X" naa) (= "x" naa) (= "/" naa) (= """" naa))
          (progn (if da (progn (setq db (atof (substr wd ns no1)
      )
     )
  (cond
    ((= "+" nab)(setq d1 (+ da db)))
    ((= "|" nab)(setq d1 (+ da db)))
    ((= "-" nab)(setq d1 (- da db)))
    ((= "X" nab)(setq d1 (* da db)))
    ((= "x" nab)(setq d1 (* da db)))
    ((= "*" nab)(setq d1 (* da db)))
    ((= "/" nab)(setq d1 (/ da db)))
    )
  (setq da d1)
  );progn yes da
   (if (= no0 1) (setq da d1) (setq da (atof (substr wd ns no1))))
   );if da
    (setq no1 -1 ns (+ no0 1) nab naa)
    );progn
 );if
      (setq no1 (+ no1 1) no0 (+ no0 1))
      );while
  );Defun
pc200098
pc200098
初級會員
初級會員

文章總數 : 46
年齡 : 35
來自 : 台南市
職業 : 機械製圖
愛好 : 電玩
個性 : 執著
使用年資 : 12
使用版本 : 2013&2016
積分 : 1
經驗值 : 4120
威望值 : 56
注冊日期 : 2011-03-10
男 天秤座 牛

Alan_Tsai likes this post

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 ltea57055 2017-08-19, 01:35

終於看到有關運算的lsp了
不過我想要的是相乘的... 暈倒
算線切割面積用的
ltea57055
ltea57055
初級會員
初級會員

文章總數 : 54
年齡 : 28
來自 : 台灣嘉義
職業 : 模具工程師
愛好 : 玩遊戲,看影片、漫畫
個性 : 休閒過生活
使用年資 : 8年
使用版本 : 2005/2016
AutoCAD基礎篇等級 : 10星級
積分 : 1
經驗值 : 1795
威望值 : 84
注冊日期 : 2017-08-17
男 摩羯座 猴

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 阿之 2019-02-15, 17:54

文字數字加總計算的lsp無法下載...

工作遇到瓶頸... 頭暈目眩

請問可以分享嗎 感動
阿之
阿之
一般會員
一般會員

文章總數 : 21
年齡 : 47
來自 : 桃園
職業 : 繪圖
愛好 : 跑步
個性 : 三八
使用年資 : 10
使用版本 : 2010
經驗值 : 2440
威望值 : 0
注冊日期 : 2015-04-24
女 獅子座 虎

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 白金之星 2019-05-23, 13:40

很實用 謝謝
avatar
白金之星
初級會員
初級會員

文章總數 : 243
年齡 : 44
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 4927
威望值 : 3
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
男 白羊座 蛇

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 monkeyx2 2019-07-25, 17:30

愛你唷~啾咪
monkeyx2
monkeyx2
一般會員
一般會員

文章總數 : 5
年齡 : 29
來自 : 澳門
職業 : 電機
愛好 : autocad
個性 : autocad
使用年資 : 0
使用版本 : 2018
經驗值 : 1160
威望值 : 0
注冊日期 : 2018-08-16
男 雙魚座 猴

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 yuting120 2019-11-22, 10:05

非常實用,感謝分享~~
yuting120
yuting120
一般會員
一般會員

文章總數 : 13
年齡 : 42
來自 : 宜蘭
職業 : 建築設計
愛好 : 編織
個性 : 安靜
使用年資 : 10
使用版本 : 2012
經驗值 : 1053
威望值 : 12
注冊日期 : 2019-01-14
女 天秤座 馬

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 Yulunwei 2020-05-07, 04:50

爬了很多舊文發現很多好用的工具來去試用,謝謝分享
Yulunwei
Yulunwei
一般會員
一般會員

文章總數 : 14
年齡 : 30
來自 : 台北
職業 : 營造
愛好 : 郊遊
個性 : 熱情
使用年資 : 5
使用版本 : 2021
經驗值 : 1370
威望值 : 36
注冊日期 : 2018-03-26
男 射手座 馬

回頂端 向下

[已解決]求~~文字數字加總計算的lsp? - 頁 2 Empty 回復: [已解決]求~~文字數字加總計算的lsp?

發表 由 winnie 2021-01-31, 17:41

謝謝分享!
winnie
winnie
贊助會員
贊助會員

文章總數 : 57
年齡 : 41
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 一年
使用版本 : 2008
經驗值 : 4578
威望值 : 0
注冊日期 : 2009-11-25
2D基礎函授 顧問外掛程式 經典問與答讀者 女 白羊座 猴

回頂端 向下

2頁(共2頁) 上一頁  1, 2

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[已解決]求~~文字數字加總計算的lsp? - 頁 2 Uos15010 [已解決]求~~文字數字加總計算的lsp? - 頁 2 BPl3tjj [已解決]求~~文字數字加總計算的lsp? - 頁 2 Ziao1510 [已解決]求~~文字數字加總計算的lsp? - 頁 2 Oo-2-110 [已解決]求~~文字數字加總計算的lsp? - 頁 2 Oooo-110 [已解決]求~~文字數字加總計算的lsp? - 頁 2 2020-211