BCOUNT-动态块

CADEC70 · 发表于 2008-2-13 09:54:54

如果我单独做，我可以数出我的积木。如果是动态块，怎么数你的块呢？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ronjonp · 发表于 2008-2-13 10:04:34

这是其中一位“迟到者”的一半答案...

      (if names
        (progn
          (setq        names (acad_strlsort names)
                names (reverse names)
          )
          (mapcar '(lambda (x)
                     (mapcar '(lambda (y)
                                (if (= (vla-get-effectivename y) x)
                                  (setq lst (cons y lst))
                                )
                              )
                             ss
                     )
                     (if lst
                       (setq str (strcat "\n"
                                         x
                                         " ........... "
                                         (itoa (length lst))
                                         str
                                 )
                             lst nil
                       )
                     )
                   )
                  names
          )
          (princ str)
        )
      )
    )
    (princ "\nNo blocks...")
  )
  (princ)
)