該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

這個可以統計各種塊的數量(基于塊名)，但是不能生成表格。

(prompt "\n命令為: BC ,用法如下: ")

(prompt "\n先選擇要統計的塊,然后選擇要統計的區域,結束后按F2顯示出統計數量.")

;;;*****************************

;;;highflybird 2007-2-8 kunming

;;;主程序-----------------------

;;;*****************************

(defun C:BC (/ ss1 ss2 NamLst BList str1 str2)

(graphscr)

(prompt "\n請選擇要統計的塊:")

(if (setq ss1 (ssget '((0 . "INSERT"))))

(progn

(prompt "\n請選擇要統計的區域:")

(if (setq ss2 (ssget '((0 . "INSERT"))))

(progn

(setq NamLst (Name-list ss1))

(setq BList (Name-count ss2 NamLst))

(princ "\n塊名")

(princ (setq str1 "..............................."))

(princ "數量")

(princ "\n--------------------------------------")

(foreach n BList

(princ "\n")

(princ (setq str2 (car n)))

(princ (substr str1 (1+ (strlen str2)) (strlen str1)))

(princ "....")

(princ (cdr n))

)

)

(princ "\n所選區域沒有要統計的塊!")

)

)

(princ "\n你沒有選擇要統計的塊!")

)

(princ)

)

;;;圖塊名列表函數

(defun Name-list (ss1 / i l EName EList BName NList)

(setq l (sslength ss1))

(setq i 0 NList nil)

(while (< i l)

(setq EName (ssname ss1 i)) ;取得圖元名

(setq EList (entget EName)) ;取得圖元表

(setq BName (cdr (assoc 2 EList)));取得圖塊名

(if (not (member BName NList)) ;如果表中沒有圖塊名

(setq NList (cons BName NList)) ;添加到表中

)

(setq i (1+ i)) ;計數器加1

)

NList

)

;;;計數函數

(defun Name-count (ss2 NamLst / blist i l ename elist bname oldcount newcount)

(setq Blist (mapcar '(lambda (x) (cons x 0)) NamLst)) ;計數器歸零

(setq i 0 l (sslength ss2))

(while (< i l) ;對選擇區域循環

(setq ename (ssname ss2 i)) ;取得圖元名

(setq elist (entget ename)) ;取得圖元表

(setq bname (cdr (assoc 2 elist))) ;取得圖塊名

(if (member bname NamLst) ;如果是要統計的塊

(setq OldCount (assoc bname Blist) ;取得塊數量

NewCount (1+ (cdr OldCount)) ;計數器加1

Blist (subst (cons bname NewCount) OldCount Blist);替代原數量

)

)

(setq i (1+ i))

)

BList

)

總結

以上是生活随笔為你收集整理的块内拉升lisp_求大神告知，如何用LISP实现块数量分类统计程序，最好统计后列出表格。谢谢了。...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。