[已解決]如何讓具有相同block名稱,相同屬性值的block數量加總

問題:如何讓具有相同block名稱,相同屬性值的block數量加總

以下是我的lsp執行後只會一個一個列示不會把相同的相加
到底錯在那? 請各位前輩指導一下謝謝

;BOXBOM.lsp 取出block內含二個屬性值的資料
(defun c:BOXBOM()
(setq bon (getstring "\nEnter BOM file name:"));請輸入bom檔名
(setq fl1 (open bon "a"));將block屬性值寫出至檔案
(setq til "BlockName BoxName Size");bom檔案標題
(write-line til fl1);將bom標題寫出至檔案
(setq sl1 (entsel "\Select block to BOM:"));選擇欲輸出bom之block
(setq la1 (cdr (assoc 8 (entget (car sl1)))));取出block之所在層
(setq bn (cdr (assoc 2 (entget (car sl1)))));取出block name
(setq sl2 (ssget "X" (list (cons 0 "INSERT") (cons 8 la1) (cons 2 bn))));建立具相同block name選集
(setq nn (sslength sl2));計算選集內block數量
(setq nx1 0);預設取出選集內第1個圖元
(repeat nn ;重覆執行次數
(setq sl3 (ssname sl2 nx1));取出選集第1個圖元
(setq sl4 (entnext sl3));取出包含在第1個圖元內的第一個圖元
(setq sl5 (entnext sl4));取出包含在第1個圖元內的第二個圖元
(setq bom1 (cdr (assoc 2 (entget sl3))));取出block name ex:block name EBBOX
(setq bom2 (cdr (assoc 1 (entget sl4))));取出block中第一個屬性值 ex:size W30xH60xD10
(setq bom3 (cdr (assoc 1 (entget sl5))));取出block中第二個屬性值 ex:name PA1
(setq bom4 (strcat bom1 " " bom3 " " bom2));結合block屬性值串列
(write-line bom4 fl1);將block屬性值寫出至檔案
(setq nx1 (+ nx1 1));取出選集內第n個圖元加1之圖元
)
(close fl1)
)

(prompt "-----------------< C:BOXBOM >--------------------")
(prin1)


若可以的話請把測試圖檔也post上來吧

pizg 寫到:若可以的話請把測試圖檔也post上來吧

測試圖檔test.dwg
程式結果test1 文字檔用記事本或word都可開
block name都為相同equ1
但屬性值相同的無法累計相加block數量

檔案怎麼傳呀

結果用貼的
BlockName Size High
EQU1 5" 25
EQU1 5" 25
EQU1 2" 30
EQU1 2" 30
EQU1 2" 30
EQU1 2" 30
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20

EQU1==>>BLOCK NAME
2"==>>SIZE屬性
30==>>HIGH屬性

tarpon 寫到:

Spoiler（用來隱藏帖子內容）:

檔案怎麼傳呀

Spoiler（用來隱藏帖子內容）:

[教學]檔案上傳至Windows Live空間,並分享方法

或以下
「教學」上傳檔案到免費硬碟空間
「教學」發表主題附加檔案下載網址使用方法

以上教學,皆來自論壇指南

tarpon 寫到:

pizg 寫到:若可以的話請把測試圖檔也post上來吧

測試圖檔test.dwg
程式結果test1 文字檔用記事本或word都可開
block name都為相同equ1
但屬性值相同的無法累計相加block數量

檔案怎麼傳呀

結果用貼的
BlockName Size High
EQU1 5" 25
EQU1 5" 25
EQU1 2" 30
EQU1 2" 30
EQU1 2" 30
EQU1 2" 30
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20
EQU1 4" 20

EQU1==>>BLOCK NAME
2"==>>SIZE屬性
30==>>HIGH屬性

EQU1 5" 25 2
EQU1 2" 30 4
EQU1 4" 20 8


這是你要的顯示結果嗎 ?

阿希 寫到:
EQU1 5" 25 2
EQU1 2" 30 4
EQU1 4" 20 8


這是你要的顯示結果嗎 ?

是的就是這樣

tarpon 寫到:

阿希 寫到:
EQU1 5" 25 2
EQU1 2" 30 4
EQU1 4" 20 8


這是你要的顯示結果嗎 ?

是的就是這樣

提供一個測試檔來吧 ~ 有空來挑戰看看

阿希 寫到:

tarpon 寫到:

阿希 寫到:
EQU1 5" 25 2
EQU1 2" 30 4
EQU1 4" 20 8


這是你要的顯示結果嗎 ?

是的就是這樣

提供一個測試檔來吧 ~ 有空來挑戰看看

測試檔請服用
http://www.badongo.com/file/23732643

第2載點

http://www.badongo.com/file/23738582
試看看吧,不知道上傳成功與否

第2載點

想抓你的圖來測試你的程式看看...但是要怎麼下載啊....連到網址上...也不知道要怎麼載下來...

ginse0727 寫到:想抓你的圖來測試你的程式看看...但是要怎麼下載啊....連到網址上...也不知道要怎麼載下來...

「教學」從免費硬碟空間下載檔案

ＰＳ．有時候這個網站，不好抓檔案～可能要過一天在下載～

謝謝,下載下來了....再來測試看看...

程式作了些修改,試看看是否合您的意.

代碼:

;BOXBOM.lsp 取出block內含二個屬性值的資料
(defun c:BOXBOM()
  (setq bom (getstring "\nEnter BOM file name:")) ;請輸入bom檔名
  (setq   file (getfiled "數量統計" (strcat "C:Documents and Settings/" bom ".num") "num" 1))
;(setq fl1 (open bon "a"));將block屬性值寫出至檔案
  (setq til "BlockName BoxName Size")      ;bom檔案標題
;(write-line til fl1);將bom標題寫出至檔案
  (setq sl1 (entsel "\Select block to BOM:"))    ;選擇欲輸出bom之block
  (setq la1 (cdr (assoc 8 (entget (car sl1))))) ;取出block之所在層
  (setq bn (cdr (assoc 2 (entget (car sl1)))))    ;取出block name
  (setq   sl2 (ssget "X" (list (cons 0 "INSERT") (cons 8 la1) (cons 2 bn))));建立具相同block name選集
  (setq nn (sslength sl2))         ;計算選集內block數量
  (setq nx1 0)               ;預設取出選集內第1個圖元
  (setq   bom_list nil list_sum nil)
  (repeat nn               ;重覆執行次數
    (setq sl3 (ssname sl2 nx1))         ;取出選集第1個圖元
    (setq sl4 (entnext sl3))         ;取出包含在第1個圖元內的第一個圖元
    (setq sl5 (entnext sl4))         ;取出包含在第1個圖元內的第二個圖元
    (setq bom1 (cdr (assoc 2 (entget sl3))))   ;取出block name ex:block name EBBOX
    (setq bom2 (cdr (assoc 1 (entget sl4))))   ;取出block中第一個屬性值 ex:size W30xH60xD10
    (setq bom3 (cdr (assoc 1 (entget sl5))))   ;取出block中第二個屬性值 ex:name PA1
    (setq bom4 (strcat bom1 "\t  " bom3 " " bom2)) ;結合block屬性值串列
    (setq bom_list (cons bom4 bom_list))
;;;(setq bom_list_sum(sum_list bom_list))
    (setq nx1 (+ nx1 1))         ;取出選集內第n個圖元加1之圖元
  )
  (calcublk bom_list)
  (setq fl1 (open file "w"))         ;將block屬性值寫出至檔案
  (write-line til fl1)            ;將bom標題寫出至檔案
  (write-line "==========================" fl1)
  (foreach blk_num list_sum
    (princ (car blk_num) fl1)
    (princ "  " fl1)
    (princ (cdr blk_num) fl1)
    (princ "\n" fl1)
  )
;(write-line list_sum fl1);將block屬性值寫出至檔案
  (close fl1)
  (command "notepad" file)
)
(prompt "-----------------< C:BOXBOM >--------------------")
(prin1)


(defun calcublk   (#bom_list)               ;統計圖塊數量
  (setq list_sum '())
  (setq num 0)
  (setq n (length #bom_list))
  (setq lista #bom_list)
  (while lista
    (setq blk (car lista))
    (setq blk1 (cadr lista))
    (if   (= blk blk1)
      (progn
   (setq num (1+ num))
   (setq lista (cdr lista))
      )
      (progn
   (setq num (1+ num))
   (setq list_sum (cons (list blk num) list_sum))
   (setq lista (cdr lista))
   (setq num 0)
      )
    )
  )
  (setq list_sum (list_sort list_sum))
  (princ "sum_list:")
  (prin1 list_sum)
  (prin1)
)

(defun list_sort (#list_sum)               ;;;串列排序
  (setq listaa (mapcar '(lambda (lista) (car lista)) #list_sum))
  (setq   listbb (mapcar '(lambda (x) (assoc x #list_sum))
            (acad_strlsort listaa)
         )
  )
)


不好意思,圖塊的計算程式有問題....我再更正一下程式內容,再上傳...

程式已經測試過了,執行計算上應該沒問題了,
一些讀寫檔做了些修改,有什麼問題的話再提出來討論吧!

;BOXBOM.lsp 取出block內含二個屬性值的資料
(defun c:BOXBOM()
(setq bom (getstring "\nEnter BOM file name:")) ;請輸入bom檔名
(setq file (getfiled "數量統計" (strcat "C:/Documents and Settings/" bom ".num") "num" 1))
;(setq fl1 (open bon "a"));將block屬性值寫出至檔案
(setq til "BlockName BoxName Size") ;bom檔案標題
;(write-line til fl1);將bom標題寫出至檔案
(setq sl1 (entsel "\Select block to BOM:")) ;選擇欲輸出bom之block
(setq la1 (cdr (assoc 8 (entget (car sl1))))) ;取出block之所在層
(setq bn (cdr (assoc 2 (entget (car sl1))))) ;取出block name
(setq sl2 (ssget "X" (list (cons 0 "INSERT") (cons 8 la1) (cons 2 bn))));建立具相同block name選集
(setq nn (sslength sl2)) ;計算選集內block數量
(setq nx1 0) ;預設取出選集內第1個圖元
(setq bom_list nil blk_sum nil blk_sum_list nil)
(repeat nn ;重覆執行次數
(setq sl3 (ssname sl2 nx1)) ;取出選集第1個圖元
(setq sl4 (entnext sl3)) ;取出包含在第1個圖元內的第一個圖元
(setq sl5 (entnext sl4)) ;取出包含在第1個圖元內的第二個圖元
(setq bom1 (cdr (assoc 2 (entget sl3)))) ;取出block name ex:block name EBBOX
(setq bom2 (cdr (assoc 1 (entget sl4)))) ;取出block中第一個屬性值 ex:size W30xH60xD10
(setq bom3 (cdr (assoc 1 (entget sl5)))) ;取出block中第二個屬性值 ex:name PA1
(setq bom4 (strcat bom1 "\t " bom3 " " bom2)) ;結合block屬性值串列
(setq bom_list (cons bom4 bom_list))
(setq nx1 (+ nx1 1)) ;取出選集內第n個圖元加1之圖元
)
(setq bom_list (acad_strlsort bom_list))
(calcublk bom_list)
(setq fl1 (open file "w")) ;將block屬性值寫出至檔案
(write-line til fl1) ;將bom標題寫出至檔案
(write-line "==========================" fl1)
(foreach blk_num list_sum
(princ (car blk_num) fl1)
(princ " " fl1)
(princ (cdr blk_num) fl1)
(princ "\n" fl1)
)
;(write-line list_sum fl1);將block屬性值寫出至檔案
(close fl1)
(command "notepad" file)
)
(prompt "-----------------< C:BOXBOM >--------------------")
(prin1)


(defun calcublk (#bom_list) ;統計圖塊數量
(setq list_sum '())
(setq num 0)
(setq n (length #bom_list))
(setq lista #bom_list)
(while lista
(setq blk (car lista))
(setq blk1 (cadr lista))
(if (= blk blk1)
(progn
(setq num (1+ num))
(setq lista (cdr lista))
)
(progn
(setq num (1+ num))
(setq list_sum (cons (list blk num) list_sum))
(setq lista (cdr lista))
(setq num 0)
)
)
)
(setq list_sum (list_sort list_sum))
(princ "sum_list:")
(prin1 list_sum)
(prin1)
)

(defun list_sort (#list_sum) ;;;串列排序
(setq listaa (mapcar '(lambda (lista) (car lista)) #list_sum))
(setq listbb (mapcar '(lambda (x) (assoc x #list_sum))
(acad_strlsort listaa)
)
)
)

感謝阿希及ginse0727的大力幫忙
謝謝站上各位指導終於解決了

很方便的程式,謝謝分享!!

終於...我爬了一個下午終於看到我夢寐以求的LISP(在爬的過程中也學到很多好用的東西)，但我用BOXBOM開啟，發現要我輸入 BOM FILE NAME(請問是隨便命名嗎?)，然後我是存在桌面上，接下來要我選取BLOCK到bom，之後下面就顯示....錯誤:損壞的引數類型:STRINGP NIL，請問我是哪個環節出問題了?