[求助]如何得知任一block内的图元数量

Aled

请问各位高手，如何藉由autolisp得知任一block内的图元数量？我目前知道的方法就是explode后再一个个数。请问有其它较为便捷的方法吗？谢谢！

NetBee

先用tblobjname读块定义对象，

然后用entnext遍历该块就行了

注意处理嵌套块就行。

无痕

如果炸开，不用一个个数

(command ".explode" (car(entsel)) "")

(sslength(ssget "p"))

highflybir

2.   (vla-get-count
3.     (vla-item
4.       (vla-get-blocks
5.         (vla-get-activedocument
6.           (vlax-get-acad-object)
7.         )
8.       )
9.       (cdr (assoc 2 (entget (car (entsel)))))
10.     )
11.   )

复制代码

如果用vlisp则可以这么写。
注意了！可能炸开后的实体数量并不一定是block内的图元数量。
（因为插入块如果是不均匀比例缩放块，则多段线等物体会分解成几个物体-这显然不是我们需要的）

自贡黄明儒

这段代码太有价值了。写得很好，我略改一下。

     ;块计数
(defun countblock (/ blockname count)
  (setq blockname (cdr (assoc 2 (entget (car (entsel))))))
  (setq count (vla-get-count (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blockname)))
  (alert (strcat "块" blockname "组成元素为: " (itoa count) " 个"))
)

 

;;;--------------------------------------------------------------------------------
;;;从块选择集中选择指定块名的对象，并返回结果选择集

(defun C:sbn
       (/ ssObjects listEntityDXF strBlockName intCountSingleBlock)

   (setvar "cmdecho" 0)   ;不显示命令提示

;;;块统计
  (defun intCountSingleBlock (ssOriginal  strTargetBlockName
         /    strEntityName
         listEntityDXF  strBlockName
         intSingleBlockCount
         k
        )
    (setq intSingleBlockCount
    0
   k -1
    )
    (repeat (sslength ssOriginal) ; 循环与所选择的对象数量相等的次数
      (setq strEntityName (ssname ssOriginal (setq k (1+ k))))
     ; strEntityName，取得第k个对象名
      (setq listEntityDXF (entget strEntityName))
      (setq strBlockName (cdr (assoc 2 listEntityDXF)))
      (if (= strBlockName strTargetBlockName)
 (setq intSingleBlockCount (1+ intSingleBlockCount))
      )
    )
    intSingleBlockCount
  )

;;;获取整个图形作为选择集
  (setq ssObjects
  (ssget "X" '((0 . "insert") (100 . "AcDbBlockReference")))
  )     ; 创建选择集 ssObjects
;;;获取块名
  (setq listEntityDXF (entget (car (entsel "\n拾取一个块:"))))
  (setq strBlockName (cdr (assoc 2 listEntityDXF)))
  (setq intCountSingleBlock
  (intCountSingleBlock ssObjects strBlockName)
  )
  (alert (strcat "块" strBlockName "数量为: " (itoa intCountSingleBlock) " 个"))
  (gc)
 (princ)
)

highflybir

如果希望得到嵌套块：可用如下代码：

3. (defun c:test (/ *BLK ENT NAM OBJ)
4.   (setq *BLK
5.   (vla-get-blocks
6.     (vla-get-activedocument
7.       (vlax-get-acad-object)
8.     )
9.   )
10.   )
11.   (if (setq ent (car (entsel)))
12.     (progn
13.       (setq obj (vlax-ename->vla-object ent))
14.       (setq nam (vla-get-objectname obj))
15.       (if (= nam "AcDbBlockReference")
16.         (progn
17.    (setq nam (vla-get-name obj))
18.           (princ "\n块内图元数量是（包含嵌套块）:")
19.           (princ (getnum (vla-item *blk nam) *blk))
20.         )
21.       )
22.     )
23.   )
24.   (princ)
25. )
26. (defun GetNum (obj *BLK  / i name)
27.   (setq i 0)
28.   (vlax-for n obj
29.     (setq name (vla-get-objectname n))
30.     (setq i (1+ i))
31.     (if (= name "AcDbBlockReference")
32.       (setq i (+ (GetNum (vla-item  *blk (vla-get-name n)) *BLK) i -1))
33.     )
34.   )
35.   i
36. )

(defun c:test (/ *BLK ENT NAM OBJ)   (setq *BLK   (vla-get-blocks     (vla-get-activedocument       (vlax-get-acad-object)     )   )   )   (if (setq ent (car (entsel)))     (progn       (setq obj (vlax-ename->vla-object ent))       (setq nam (vla-get-objectname obj))       (if (= nam "AcDbBlockReference")         (progn    (setq nam (vla-get-name obj))           (princ "\n块内图元数量是（包含嵌套块）:")           (princ (getnum (vla-item *blk nam) *blk))         )       )     )   )   (princ) ) (defun GetNum (obj *BLK  / i name)   (setq i 0)   (vlax-for n obj     (setq name (vla-get-objectname n))     (setq i (1+ i))     (if (= name "AcDbBlockReference")       (setq i (+ (GetNum (vla-item  *blk (vla-get-name n)) *BLK) i -1))     )   )   i )