lisp needed

[DEEPAKRAJ]

Lads,

First of all a pleasant and happy day for every one,
i need a lisp which can check for standard blocks used in the drawings.

for example.

if i have drawing of standard block. and i am working in a drawing. i need to check whether i have used the blocks are standard.

[ReMark]

What is the definition for a standard block?

What happens if the person used a non-standard block?

[DEEPAKRAJ]

Dear Remark,

i need to check whether i have used standard block name.
for example if the standard block name is 12345.
i need to check whether i have used the same block 12345.

because i am using more than 100 blocks. i need to cross check the name of blocks.

thanks in advance

[ReMark]

This sounds familiar. I think there might be a lisp routine here that does something like that but I cannot recall which one it might be at the moment. Have you checked the Lisp forum?

[DEEPAKRAJ]

yes i have checked the lisp form i didnt get anything.

[designerstuart]

what format does that need to be in?
as in, do you need to see a list of all the block names, or do you suggest a block name and autocad tells you if it is already in the drawing?

[DEEPAKRAJ]

dear designer,

there is cad standard check where we insert .dws for checking layers,linetypes,text style,dimstyle etc.
but there is no cad standard checker for blocks.
i need some what like this lisp for check standard blocks.

thanks in advance.

[dbroada]

I think you need to spend more time defining your question.

Are you checking whether a block name has been used?
Are you checking that the block in your drawing called 12345 is the same as the block named 12345 stored in your standard library?
Are you looking for something else?

I have never used the dws solution but I assume it checks the drawing against a standard list. This is not the same as checking a much more complex item such as a block.

[Cad64]

I have moved this request to the Autolisp section.
It is important to post in the correct area of the forum so the right people will see your question.

[Tharwat]

Is this what you mean ... ?

(defun c:TesT (/ name found lookfor)
  ;;; Tharwat 06. March. 2012 ;;;
  (if (and
        (setq name (getstring t "\n Name of Block :"))
        (setq found (tblsearch "BLOCK" name))
      )
    (if (setq lookfor (ssget "_x" (list '(0 . "INSERT") (cons 2 name))))
      (cond ((eq (sslength lookfor) 1)
             (alert (strcat "You have : < "
                            (itoa (sslength lookfor))
                            " >  Block in this drawing "
                    )
             )
            )
            (t
             (alert (strcat "You have : < "
                            (itoa (sslength lookfor))
                            " >  Blocks in this drawing "
                    )
             )
            )
      )
      (alert
        (strcat
          " block name : < "
          name
          " > is found is Block Table but not inserted into this drawing yet "
        )
      )
    )
    (cond ((eq name "")
           (princ)
          )
          (t
           (alert " Block is not existed into this drawing ")
          )
    )
  )
  (princ)
)