[求助]按块的名称求块的数量

sailer

请编写一个程序，点击某个块就可以求出这种块类型的数量？


谢谢！

meflying

(defun c:CalBlk( / ent ents blkname)
(setq ent (car (entsel)))
(if ent
(progn
(setq ents (entget ent))
(if (= (cdr (assoc 0 ents)) "INSERT")
(progn
(setq blkname (cdr (assoc 2 ents)))
(princ (strcat "\n块名:" blkname "," "数量:"))
(princ (sslength (ssget "x" (list '(0 . "INSERT") (cons 2 blkname)))))
)
)
)
)
(princ)
)
(prompt "Enter CALBLK to launch the program!")

zxj_76

zxj_76

用其中的“取图块统计个数”功能！

xyp1964

某书中的现成程序： 可以统计块（含块中块）的数量并制表。 ★★★★★★★★★★★★★★★★★★★ ;;;ktj.lsp (defun c:ktj()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\n左上角: "))
(setq ww (getdist pt1 "\n宽度 <50>: "))
(if (null ww) (setq ww 40.0))
(setq hh (getdist pt1 "\n每格高度 <8>: "))
(if (null hh) (setq hh 8.0))
(setq pt2 (polar pt1 0 ww))
(setq pt3 (polar pt2 (* pi 1.5) hh))
(setq pt4 (polar pt1 (* pi 1.5) hh))
(command "pline" pt1 pt2 pt3 pt4 "c")
(setq pt5 (polar pt1 0 (/ ww 2)))
(setq pt6 (polar pt5 (* pi 1.5) hh))
(command "line" pt5 pt6 "")
(command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 "图块名称")
(command "text" "m" (inters pt5 pt3 pt2 pt6) (/ hh 2) 0 "数量")
(setq blk (tblnext "block" t))
(while blk
(setq blkn (assoc 2 blk))
(setq blk_key (substr (cdr blkn) 1 1))
(if (/= blk_key "*")
(progn
(setq ss (ssget "X" (list blkn)))
(if (null ss)
(setq ssn 0)
(setq ssn (sslength ss))
)
(setq blknn (cdr blkn))
(setq pt1 pt4 pt5 pt6 pt2 pt3)
(setq pt4 (polar pt1 (* pi 1.5) hh))
(setq pt6 (polar pt5 (* pi 1.5) hh))
(setq pt3 (polar pt2 (* pi 1.5) hh))
(command "pline" pt2 pt3 pt4 pt1 "")
(command "line" pt5 pt6 "")
(command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 blknn)
(command "text" "m" (inters pt5 pt3 pt2 pt6) (/ hh 2) 0 (itoa ssn))
)
)
(setq blk (tblnext "block"))
)
(setvar "osmode" os)
(prin1)
) ★★★★★★★★★★★★★★★★★★★

fengche1915@

BUXINGHAISHI BUXING

再见熊猫衣服

xyp1964 发表于 2004-7-27 23:32
某书中的现成程序：

根本不用这么麻烦，小菜选择易，很容易的，能够马上全选所有同名块，一下就能看到有多少个相同的块了。

再见熊猫衣服

楼主，小菜选择易，了解一下。

linque06

这个我用VBA自编了一个小程序。不过似乎楼上大神编得更好。