Visual LISP, AutoLISP and General Customization

[#1]

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*"))))

[#2]

---

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.

• No Selection Sets (use of ssget, ssname, ssdel etc)
• No Command calls (command "_.line" ... etc)
• No ent* methods (entmod, entupd etc)
• No access to System Variables (getvar, setvar, vla-getvariable, vla-setvariable etc)

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

[#3 · Accepted solution]

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))