ODBX_LIB/odbx_get/odbx_getnbblock.lsp at main · Fraiddd/ODBX_LIB · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
; ANSI-Windows 1252
; Autolisp, Visual Lisp
;|
    odbx_getnbblock.lsp 1.0

    Count the number of blocks.

    Place the files, odbx_getnbblock.lsp and odbx_fct.lsp, in an Autocad approved folder.

    Use APPLOAD to load them.

    Enter odbx_getnbblock in Autocad, enter the block name and choose folder.

    Drawings are not open.

    Tested on Windows 10 and Autocad 2015.

    No copyright: (!) 2021 by Frédéric Coulon.
    No license: Do with it what you want.

|;
;Dependencies
(vl-load-com)
;(load "fct.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:odbx_getnbblock (/ axdoc lfil dir bloc tot stot)
    (setq bloc (getstring "What Block?")
          tot 0
    )
        ; Choose folder.
    (if (and (setq dir (getdir))
              ; dwg liste.
            (setq lfil (vl-directory-files dir "*.dwg" 1)))
        ; Loop over files.
      (progn
        (foreach f lfil
            (setq stot 0)
            (if (setq axdoc (getaxdbdoc (strcat dir f)))
              (progn
                ; Sorting objects.
                (vlax-for obj (vla-get-modelspace axdoc)
                    (and (= (vla-get-ObjectName obj) "AcDbBlockReference")
                         (or (= (vla-get-name obj) bloc)
                             (= (vla-get-effectivename obj) bloc))
                         (setq stot (+ 1 stot))
                    )
                )
                (if (> stot 0)
                  (progn
                    (princ (strcat "\n  " f ": " (itoa stot) " Blocks"))
                    (setq tot (+ tot stot))
                    (vlax-release-object axdoc)
                  )
                  (princ (strcat "\n  " f ": No Block named " bloc))
                )
              )
              (princ (strcat "\n" f ": Illegible or corrupt."))
            )
        )
        (princ (strcat "\n  Total : " (itoa tot) " Blocks"))
        (textscr)
      )
      (princ "\nHave you lost your way?")
    )
(princ)
)

;É;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;