I need to write some code to count blocks inserted on the drawing.... I want to count also dynamic blocks... most of the time dynamic blocks are anonymous... so I'd need to check the EffectiveName.
This line gets the blocks in the block table...
... but how do I get the blocks actually inserted in the dwg?
(setq blks (vla-get-blocks odoc))
Will a regular lisp expressions (like below) work with ObjectDBX... (drawing file not open)?
(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 "`*U*"))))
Solved! Go to Solution.
Solved by Hallex. Go to Solution.
@mdhutchinson wrote:I need to write some code to count blocks inserted on the drawing.... I want to count also dynamic blocks... most of the time dynamic blocks are anonymous... so I'd need to check the EffectiveName.
This line gets the blocks in the block table...
... but how do I get the blocks actually inserted in the dwg?
(setq blks (vla-get-blocks odoc))
Will a regular lisp expressions (like below) work with ObjectDBX... (drawing file not open)?
(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 "`*U*"))))
No you cant.
You can however use
(vlax-for layout (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
(vlax-for i (vla-get-block layout)
do your thing...... )
)
HTH
I have one from oldies, but don't remember how it works
with limited test it looks good though
(defun C:DYBC (/ acapp blkinfo blkname counts dbxdoc first fn group odbx opendoc qty) (setq acapp (vlax-get-acad-object)) (if (and (setq fn "C:\\Test\\dynamics.dwg") (setq fn (findfile fn))) (progn (setq odbx (vla-getinterfaceobject acapp (strcat "ObjectDBX.AxDbDocument." (itoa (atoi (getvar "acadver")))))) (setq opendoc (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-open (list odbx fn))))) (if opendoc (progn (setq dbxdoc odbx) (vlax-for lt (vla-get-layouts dbxdoc) (vlax-for blkobj (vla-get-block lt) (if (eq (vla-get-objectname blkobj) "AcDbBlockReference") (progn (setq blkname (vla-get-effectivename blkobj)) (setq blkinfo (cons (cons blkname 1) blkinfo))) ))) (setq counts nil) (while (setq first (caar blkinfo)) (setq qty (vl-remove-if '(lambda (b) (not (eq (car b) first))) blkinfo)) (setq group (cons first (apply '+ (mapcar 'cdr qty))) counts (cons group counts)) (setq blkinfo (vl-remove-if '(lambda (x) (member x qty)) blkinfo)) ) ) ) (if odbx (vl-catch-all-apply 'vlax-release-object (list odbx))) (alert (vl-princ-to-string counts)) ) ) (princ) ) (princ "\n\t---\tStart command with DYBC\t---") (prin1) (or(vl-load-com)(princ))
Can't find what you're looking for? Ask the community or share your knowledge.