[已解決]如何建立Lisp可判斷文字內容與屬性後匯整並插入文字

代碼:

(defun C:TTR () ;/ sum eset enlist oldht len ln total pt)
;(princ "\n \n \nSelect Text: ")
(princ
"\n \n \n請選取多個看起來像數字的文字 Text, 來加總求和 : "
)
(if (setq eset (ssget))
(progn
(setq len (sslength eset)
ln (- len 1)
total 0
)
(while (>= (setq len (- len 1)) 0)
(setq en (ssname eset len)
enlist (entget en)
)
(if (= "TEXT" (cdr (assoc 0 enlist)))
(progn
(if (= len ln)
(princ
"\n \n \n...請稍候....正在計算選取內容..."
)
)
(setq sum (atof (cdr (assoc 1 enlist))))
(setq total (+ total sum))
)
(setq ln (- ln 1))
)
)
(princ "\n \nTotal = ")
(princ total)
;(setq pt (getpoint "\nInsertion Point: "))
(setq pt (getpoint "\n[ 數值總和 ] 文字的插入點 : "))
(command "text" "c" pt "" "" (rtos total 2))
)
(princ "\n \n....*錯誤*.. 沒有選擇動作! \n ")
)
(princ)
)

Atsai 寫到:4#20@20^340*10
4#340*2
340*20
20^340*10
x跟*可以當成乘數，目前只能吃這幾種文字格式。
205+340*8，這種類型，我的認知：205的組數1，340的組數8，這我就不處理了。

pc200098 寫到:

Atsai 寫到:4#20@20^340*10
4#340*2
340*20
20^340*10
x跟*可以當成乘數，目前只能吃這幾種文字格式。
205+340*8，這種類型，我的認知：205的組數1，340的組數8，這我就不處理了。

205+340*8 意思是205+340的搭接有8組
所以能改成205的8組，340的8組嗎? 非常感謝!!!

Atsai 寫到:4#20@20^340*10
4#340*2
340*20
20^340*10
x跟*可以當成乘數，目前只能吃這幾種文字格式。
205+340*8，這種類型，我的認知：205的組數1，340的組數8，這我就不處理了。

205+340*8 意思是205+340的搭接有8組
所以能改成205的8組，340的8組嗎? 非常感謝!!!


這個應該是你要的結果，測試看看吧！