[已解決]求~~文字數字加總計算的lsp?
+32
urania0401
sireny238
Tina Yen
zxc2525123
linxyz168
winnie
Yulunwei
yuting120
monkeyx2
白金之星
阿之
ltea57055
pc200098
jess198109
cheyuan1983
regina
tooth525
阿強
惡魔紫
wwsh3
YU HSIANG
YLCHEN
ysl yang
Tiger&蘋果爸
tarpon
王小美
NaNa
bruce79
lsj
霖
ginse0727
iccs
36 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第2頁(共2頁)
[已解決]求~~文字數字加總計算的lsp?
主題回顧 :
小弟是從事水電工程繪圖的~一直有管料統計的困擾,請問大家,是否有文字數字加總計算的lsp呢? 簡述如下圖:
是否有那種當我框選文字(文字內容為數字時),lsp能自動幫我加總總和(300+2580+87148+65550=?)的程式呢? 感謝大家~
小弟是從事水電工程繪圖的~一直有管料統計的困擾,請問大家,是否有文字數字加總計算的lsp呢? 簡述如下圖:
是否有那種當我框選文字(文字內容為數字時),lsp能自動幫我加總總和(300+2580+87148+65550=?)的程式呢? 感謝大家~
iccs 在 2010-09-06, 19:22 作了第 1 次修改
iccs- 初級會員
- 文章總數 : 50
年齡 : 43
來自 : 高雄
職業 : 消防設計
愛好 : 電腦、電影、上網
個性 : 龜毛
使用年資 : 10年
使用版本 : AutoCAD 2016
積分 : 1
經驗值 : 5874
威望值 : 21
注冊日期 : 2009-04-28
stevelin likes this post
回復: [已解決]求~~文字數字加總計算的lsp?
tooth525 寫到:改好了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)))
)
(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- 初級會員
- 文章總數 : 49
年齡 : 39
來自 : 台南市
職業 : 機械製圖
愛好 : 電玩
個性 : 執著
使用年資 : 12
使用版本 : 2013&2016
積分 : 1
經驗值 : 5287
威望值 : 53
注冊日期 : 2011-03-10
stevelin, ailoveu911 and Alan_Tsai like this post
回復: [已解決]求~~文字數字加總計算的lsp?
終於看到有關運算的lsp了
不過我想要的是相乘的...
算線切割面積用的
不過我想要的是相乘的...
算線切割面積用的
ltea57055- 初級會員
- 文章總數 : 54
年齡 : 31
來自 : 台灣嘉義
職業 : 模具工程師
愛好 : 玩遊戲,看影片、漫畫
個性 : 休閒過生活
使用年資 : 8年
使用版本 : 2005/2016
AutoCAD基礎篇等級 : 10星級
積分 : 1
經驗值 : 2945
威望值 : 84
注冊日期 : 2017-08-17
回復: [已解決]求~~文字數字加總計算的lsp?
文字數字加總計算的lsp無法下載...
工作遇到瓶頸...
請問可以分享嗎
工作遇到瓶頸...
請問可以分享嗎
阿之- 一般會員
- 文章總數 : 21
年齡 : 50
來自 : 桃園
職業 : 繪圖
愛好 : 跑步
個性 : 三八
使用年資 : 10
使用版本 : 2010
經驗值 : 3590
威望值 : 0
注冊日期 : 2015-04-24
回復: [已解決]求~~文字數字加總計算的lsp?
很實用 謝謝
____________________________________________________________________________________
白金之星- 初級會員
- 文章總數 : 248
年齡 : 47
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 6106
威望值 : 9
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
monkeyx2- 一般會員
- 文章總數 : 5
年齡 : 32
來自 : 澳門
職業 : 電機
愛好 : autocad
個性 : autocad
使用年資 : 0
使用版本 : 2018
經驗值 : 2310
威望值 : 0
注冊日期 : 2018-08-16
回復: [已解決]求~~文字數字加總計算的lsp?
非常實用,感謝分享~~
yuting120- 一般會員
- 文章總數 : 16
年齡 : 46
來自 : 宜蘭
職業 : 建築設計
愛好 : 編織
個性 : 安靜
使用年資 : 10
使用版本 : 2012
經驗值 : 2218
威望值 : 12
注冊日期 : 2019-01-14
回復: [已解決]求~~文字數字加總計算的lsp?
爬了很多舊文發現很多好用的工具來去試用,謝謝分享
Yulunwei- 一般會員
- 文章總數 : 14
年齡 : 33
來自 : 台北
職業 : 營造
愛好 : 郊遊
個性 : 熱情
使用年資 : 5
使用版本 : 2021
經驗值 : 2520
威望值 : 36
注冊日期 : 2018-03-26
winnie- 一般會員
- 文章總數 : 98
年齡 : 44
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 10年
使用版本 : 2008
經驗值 : 5917
威望值 : 6
注冊日期 : 2009-11-25
回復: [已解決]求~~文字數字加總計算的lsp?
謝謝分享 數字加總很實用的程式。
linxyz168- 專屬會員
- 文章總數 : 59
年齡 : 46
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 4545
威望值 : 12
注冊日期 : 2013-03-31
請問一下 如引用這lsp時 執行要輸入指令為?? 不是很懂lsp..
pc200098 寫到: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)))
)
(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
linxyz168- 專屬會員
- 文章總數 : 59
年齡 : 46
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 4545
威望值 : 12
注冊日期 : 2013-03-31
ac12365400 and a32112333 like this post
回復: [已解決]求~~文字數字加總計算的lsp?
linxyz168 寫到:請問一下 如引用這lsp時 執行要輸入指令為?? 不是很懂lsp..
- 代碼:
Defun C:++
把++改成你想要的指令名,然後重新載入即可使用。
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: [已解決]求~~文字數字加總計算的lsp?
請問這個代碼要怎麼用? 沒有看到載點呢......
我看網路教學是把代碼貼到記事本 然後改副檔名 用AP載入
但我用了都失敗
求各位教學一下!
我看網路教學是把代碼貼到記事本 然後改副檔名 用AP載入
但我用了都失敗
求各位教學一下!
zxc2525123- 一般會員
- 文章總數 : 10
年齡 : 29
來自 : 台中
職業 : 建築師
愛好 : 看電影
個性 : 內向
使用年資 : 8
使用版本 : 2020
經驗值 : 1103
威望值 : 0
注冊日期 : 2022-01-04
回復: [已解決]求~~文字數字加總計算的lsp?
請問....加總出來的總和能取小數後一位數嗎? 因為我使用時發現數量為整數, 請問該如何修改程式呢?
煩請前輩協助解惑...感激不盡
煩請前輩協助解惑...感激不盡
Tina Yen- 一般會員
- 文章總數 : 11
年齡 : 37
來自 : 台中
職業 : 機電相關
愛好 : 閱讀,運動
個性 : 樂觀,隨和
使用年資 : 2年
使用版本 : 2016
經驗值 : 2128
威望值 : 24
注冊日期 : 2019-03-28
回復: [已解決]求~~文字數字加總計算的lsp?
zxc2525123 寫到:請問這個代碼要怎麼用? 沒有看到載點呢......
我看網路教學是把代碼貼到記事本 然後改副檔名 用AP載入
但我用了都失敗
求各位教學一下!
我看網路教學是把代碼貼到記事本 然後改副檔名 用AP載入--->對
但是,您在複製代碼後,需再次確認內容是否與前輩們提供的程式代碼一致喔,
因為我在做的時候是有跑出很多問號 (說是文字碼不同的關係),
所以我有把問號刪掉改用空格 (空白鍵)取代
或許您也可以再嘗試看看喔! 因為我這樣處理後,用AP載入是可以使用的:")
希望有協助到您
Tina Yen- 一般會員
- 文章總數 : 11
年齡 : 37
來自 : 台中
職業 : 機電相關
愛好 : 閱讀,運動
個性 : 樂觀,隨和
使用年資 : 2年
使用版本 : 2016
經驗值 : 2128
威望值 : 24
注冊日期 : 2019-03-28
回復: [已解決]求~~文字數字加總計算的lsp?
最近弄到電力系統
需要數字的重複計算
反覆按計算機有點煩亂
試試小工具
需要數字的重複計算
反覆按計算機有點煩亂
試試小工具
sireny238- 一般會員
- 文章總數 : 10
年齡 : 29
來自 : 台中市龍井區
職業 : 設備繪圖
愛好 : 繪圖
個性 : 內向慢熟
使用年資 : 1
使用版本 : 2018
經驗值 : 1309
威望值 : 0
注冊日期 : 2021-06-17
urania0401- 一般會員
- 文章總數 : 12
年齡 : 49
來自 : 五股區
職業 : 水電繪圖
愛好 : 模型
個性 : 安靜
使用年資 : 初學
使用版本 : 初學
經驗值 : 3380
威望值 : 0
注冊日期 : 2015-10-12
回復: [已解決]求~~文字數字加總計算的lsp?
數字加總常常應用於電纜長度計算、管見計算,線槽計算,雖然對前輩們來說不難,但畢竟給我很大的幫助,感謝分享。
分享個lsp,是從對岸 明經找到的。可以連小數點也能計算,顯示在指令欄位。
分享個lsp,是從對岸 明經找到的。可以連小數點也能計算,顯示在指令欄位。
- 附件
jkop- 一般會員
- 文章總數 : 78
年齡 : 43
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 2993
威望值 : 12
注冊日期 : 2017-09-13
58dddff likes this post
回復: [已解決]求~~文字數字加總計算的lsp?
最近正想要這樣的功能就有人寫出來了,真棒
kaods- 初級會員
- 文章總數 : 56
年齡 : 51
來自 : 台中
職業 : 建築師
愛好 : 工作
個性 : 好
使用年資 : 30
使用版本 : 2022
經驗值 : 5339
威望值 : 18
注冊日期 : 2010-12-04
hongren24- 一般會員
- 文章總數 : 12
年齡 : 28
來自 : 高雄
職業 : 景觀
愛好 : 無
個性 : 無
使用年資 : 3年
使用版本 : 2017
經驗值 : 1128
威望值 : 15
注冊日期 : 2021-12-29
回復: [已解決]求~~文字數字加總計算的lsp?
感謝大大分享 很實用~~
HsuRuby- 一般會員
- 文章總數 : 10
年齡 : 34
來自 : 桃園區
職業 : 繪圖工程師
愛好 : 看電影
個性 : 積極
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 907
威望值 : 0
注冊日期 : 2022-07-14
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第2頁(共2頁)
這個論壇的權限:
您 無法 在這個版面回復文章