[编程交流] LISP fn返回外部参照计数a

(defun C:XREFCNT (/ i x)
(setq i 0)
(vlax-for x
        (vla-get-blocks
                (vla-get-ActiveDocument (vlax-get-acad-object))
                )
        (if (eq (vla-get-IsXref x) :vlax-true)
                (setq i (1+ i))
                )
        )
i
)

(if XREFCNT > 0)
(alert
(strcat "Number of External Reference Drawings = " (itoa (strcat XREFCNT)))
)

(itoa (strcat XREFCNT))

(itoa (strcat (XREFCNT)))

(defun C:XREFCNT (/ i x)

(defun XREFCNT (/ i x)

   (if (> (setq c (XREFCNT)) 0)
    (alert (strcat "Number of External Reference Drawings = " (itoa c)))
    )

(defun XREFCNT (/ i x)
(setq i 0)
(vlax-for x
        (vla-get-blocks
                (vla-get-ActiveDocument (vlax-get-acad-object))
                )
        (if (eq (vla-get-IsXref x) :vlax-true)
                (setq i (1+ i))
                )
        )
i
)
; SETS XREF PATHS TO "RELATIVE" IF IN DRAWING
(if (> (setq c (XREFCNT)) 0)
        ; (alert (strcat "Number of External Reference Drawings = " (itoa c)))
        (command "-XREF" "T" "*" "R")
        )

(defun c:XREFCNT2 (/ i x)
(setq i 0)
        (vlax-for x
        (vla-get-blocks
                (vla-get-ActiveDocument (vlax-get-acad-object))
                )
        (if (eq (vla-get-IsXref x) :vlax-true)
                (setq i (1+ i))
                )
)
(if (> i 0)
        (alert (strcat "Number of External Reference Drawings = " (rtos i 2 0)))
        (alert "No Xrefs")
       )
)
(c:XREFCNT2)

(if
(vl-string-search "company_name_here" (strcat(getvar 'dwgprefix)))
(progn
        (if (> (setq c (XREFCNT)) 0)
                (Command ".script" "XRef_company_name_here_Paths_Fix.scr")
                )
        (setq StyleSheet "company_name_here.ctb")
        )
)