block count only in current space/layout

[VBOYAJI]

I came across this handy lisp routines that count blocks. The problem i have that it also counts the blocks in the paperspace. I would like for someone to modify this lisp routine to only count in current drawing. for example, if i am in model space, count only blocks in model space. and If i am in paper layout, count only blocks in a paper layout.

You can either modify the lisp routines or create your own. Thank You

[Wanderer]

I came across this handy lisp routines that count blocks. The problem i have that it also counts the blocks in the paperspace. I would like for someone to modify this lisp routine to only count in current drawing. for example, if i am in model space, count only blocks in model space. and If i am in paper layout, count only blocks in a paper layout.

You can either modify the lisp routines or create your own. Thank You

Hi there... just wanted to let you know that I've removed the attachment, as AUGI doesn't allow the posting of copyrighted material.

I'm sure someone will still be able to help you with the information contained in this thread.

Thank you.

here is the header info
CADALYST 01/05 Tip2015: BLCX.lsp Block counter (c) Alexander Smirnov
This program counts blocks, gives out the reporting, +
;;; and also can export the data to MS Excel. +
;;; +
;;; Type BLCX in command line to run. +
;;; +
;;; Supported O/S: Windows 2000/XP +
;;; Suppported MS Excel Versions: MS Office 97/2003 +
;;; Supported AutoCAD Versions: AutoCAD 2000/2005 +
;;; +
;;; Writen by Fantom (Alexander Smirnov) asmirnov@inbox.lv +
;;; +
;;; Version 1.0 Dec 09, 2004

[VBOYAJI]

Fine, I get it now. No more posting codes that written by someone else. I am clear now. Even though i made it clear it wasn't my code. One last thing, i got this code from AUGI member, from AUGI website. Any how, can someone tell me how to resolve the issue i was facing in my original thread.

Thank You

[Jeff_M]

Looking at the code as posted to the Cadalyst website (under Hot Tip Harry's Feb05 code) it was originally written for the user to select the blocks. Based on what your question was, I'd venture a guess that someone changed the (ssget '((0 . "INSERT"))) to (ssget "x" '((0 . "INSERT"))) to select ALL blocks.....if that's the case, just change the same line to: (ssget "x" (list '(0 . "INSERT") (cons 410 (getvar "ctab")))) this will select All blocks ONLY in the current Tab.

HTH,
Jeff

[fixo]

I came across this handy lisp routines that count blocks. The problem i have that it also counts the blocks in the paperspace. I would like for someone to modify this lisp routine to only count in current drawing. for example, if i am in model space, count only blocks in model space. and If i am in paper layout, count only blocks in a paper layout.

You can either modify the lisp routines or create your own. Thank You

Give this my routine that was written some time ago for my mate
but I think that it is what you need
Change all by suit

Thank you

f.

[VBOYAJI]

I tried in doing that, but it seems that i am getting an error.
this what i am doing,
**********current code**********

  (if(setq blSet(ssget '((0 . "INSERT"))))

**********This is the change i made according to your suggestion:**********

  (ssget "x" (list '(0 . "INSERT") (cons 410 (getvar "ctab"))))

Looking at the code as posted to the Cadalyst website (under Hot Tip Harry's Feb05 code) it was originally written for the user to select the blocks. Based on what your question was, I'd venture a guess that someone changed the (ssget '((0 . "INSERT"))) to (ssget "x" '((0 . "INSERT"))) to select ALL blocks.....if that's the case, just change the same line to: (ssget "x" (list '(0 . "INSERT") (cons 410 (getvar "ctab")))) this will select All blocks ONLY in the current Tab.

HTH,
Jeff

[ Moderator Action = ON ]Copyright material removed[ Moderator Action = OFF ]

[Opie]

I tried in doing that, but it seems that i am getting an error.
this what i am doing,
**********current code**********

  (if(setq blSet(ssget '((0 . "INSERT"))))

**********This is the change i made according to your suggestion:**********

  (ssget "x" (list '(0 . "INSERT") (cons 410 (getvar "ctab"))))

[ Moderator Action = ON ]Copyright material removed[ Moderator Action = OFF ]

I think if you place the (if at the beginning of the line of code you modified, it should work.

(if(ssget "x" (list '(0 . "INSERT") (cons 410 (getvar "ctab"))))

[VBOYAJI]

It tried and did not work, I was wondering if you can download the lisp routine and try it.
Here is the website:
http://new.cadalyst.com/code/browsey...?fullyear=2005

By the way, I appreciate your help very much.

Thank You

vboyaji

I think if you place the (if at the beginning of the line of code you modified, it should work.

(if(ssget "x" (list '(0 . "INSERT") (cons 410 (getvar "ctab"))))

[Jeff_M]

It tried and did not work, I was wondering if you can download the lisp routine and try it.
Here is the website:
http://new.cadalyst.com/code/browsey...?fullyear=2005

By the way, I appreciate your help very much.

Thank You

vboyaji

I downloaded the original, changed the one line to this:

(if(setq blSet(ssget "X" (LIST '(0 . "INSERT")(CONS 410 (GETVAR "CTAB")))))

and it worked fine......when you say "it did not work", did it give an error message or just not do anything?

Jeff

[VBOYAJI]

It worked fine.
Thank you