lisp needed

[DEEPAKRAJ]

Dear tharwat

its some what useful.
but if we want to check one by one .
can you do the lisp which can cross check standard blocks and present block so nonstandard blocks could be highlighted.

[Tharwat]

Dear tharwat

but if we want to check one by one .
can you do the lisp which can cross check standard blocks and present block so nonstandard blocks could be highlighted.

Could you tell me how can I filter the selected blocks to standard and nonstandard blocks ?

[DEEPAKRAJ]

Dear tharwat,

this is useful .

i want a help from you can i get a lisp which can cross check the blocks from the standard file to my file and highlight the nonstandard blocks.
which will be very useful

[Tharwat]

It is not that easy to check between two files for their blocks at all and it is out of my ability .

one solution .

you can extract the name of all your standard blocks from the main drawing by a routine and after that you can use these names to check for current blocks in a drawing and divide them into two lists of standard and nonstandard by another routine also of course .

[DEEPAKRAJ]

your solution is good .
can you guide me how to do it....

[Tharwat]

First let us extract all names of your drawing that contains the standard blocks .

(defun c:BlockList (/ ss i Block blockNames)
  ;;; Tharwat 07. March . 2012 ;;;
  (if (setq ss (ssget "_x" '((0 . "INSERT"))))
    (progn
      (repeat (setq i (sslength ss))
        (if (not (member (setq Block
                                (cdr (assoc 2 (entget (ssname ss (setq i (1- i)))))
                                )
                         )
                         blockNames
                 )
            )
          (setq blockNames (cons Block blockNames))
        )
      )
      (print blocknames)
    )
    (princ)
  )
  (princ)
)

[dbroada]

It is not that easy to check between two files for their blocks at all and it is out of my ability .

one solution .

you can extract the name of all your standard blocks from the main drawing by a routine and after that you can use these names to check for current blocks in a drawing and divide them into two lists of standard and nonstandard by another routine also of course .

although that can only check that the names match. It is far harder (or at least outside my ability) to check that the block definitions are identical in both places which I thought was the task requested.

[DEEPAKRAJ]

i did this then what should i do

[Tharwat]

i did this then what should i do

did you see all your standards block names prompted in the command line ?

Try this one which is better than the above one to check all blocks definitions and not only the inserted ones .

(defun c:BlockList (/ ss Block blockNames)
;;; Tharwat 07. March . 2012 ;;;
  (while (setq ss (tblnext "BLOCK" (null ss)))
    (if (not (member (setq Block
                            (cdr (assoc 2 ss))
                     )
                     blockNames
             )
        )
      (setq blockNames (cons Block blockNames))
    )
  )
  (if blocknames
    (print blocknames)
  )
  (princ)
)

And after that save the name of blocks that would be listed in the command line to include them later on in the second routine .

But be patient , I have many things to do at the office and would write one for you as soon as I have time to do .

Tharwat

[Tharwat]

Consider this code as a draft at this moment

(defun c:Test (/
               BlockList
               stand
               non
               ss
               Blockname
               StandardBlockname
               nonstandardBlockname
              )
  ;;; Tharwat 07. March. 2012 ;;;
  (setq BlockList '("Block1" "Block2"));;; Put the block name that you got from the first routine instead of the block names
  (if (and (setq ss (ssget "_x" '((0 . "INSERT"))))
           (setq stand 0)
           (setq non 0)
      )
    (repeat (setq i (sslength ss))
      (setq
        Blockname (cdr (assoc 2 (entget (ssname ss (setq i (1- i))))))
      )
      (cond ((member Blockname BlockList)
             (progn
               (setq stand (1+ stand))
               (setq standardBlock (cons Blockname standardBlock))
             )
            )
            (t
             (progn
               (setq non (1+ non))
               (setq nonstandardBlock (cons Blockname nonstandardBlock))
             )
            )
      )
    )
    (princ)
  )
  (if Blockname
    (alert (progn
             (strcat " You have : < "
                     (itoa stand)
                     " > Standard Blocks inserted into this drawing "
             "\n"
             (strcat " You have : < "
                     (itoa non)
                     " > Nonstandard Blocks inserted into this drawing "
             )
           )
    )
           )
    )
  (princ)
)