0 Members and 1 Guest are viewing this topic.
(DEFUN C:ISOBLK (/ BBLK BLK BLKNAME CNT N) (setq Blkname (getstring "\nPlease enter blockname to isolate: ")) (setq Blk (ssget "X" (list (cons -4 "<NOT") (cons 2 Blkname) (cons -4 "NOT>") ) ) ) (setq Cnt (sslength blk)) (setq n 0) (while (< n Cnt) (setq Bblk (vlax-ename->vla-object (ssname blk n))) (vlax-put-property Bblk 'visible 0) (setq n (1+ n)) ) (setq Blk NIL) (princ))(DEFUN C:SEEALL (/ ALL CNT N NALL) (setq All (ssget "X")) (setq Cnt (sslength All)) (setq n 0) (while (< n Cnt) (setq Nall (vlax-ename->vla-object (ssname All n))) (vlax-put-property Nall 'visible 1) (setq n (1+ n)) ) (setq All NIL) (princ))
(setq Blkname (getstring "\nPlease enter blockname to isolate: "))
(setq Blkname (getstring T "\nPlease enter blockname to isolate: "))
Thanks for the comments Daron. I might look into a VBA version if things are quiet at work today.
Mark, ah.. that's interesting. Nope, I didn't know that but I do now.Daron, I had tried e-mailing you through the swamp gui but there wasn't an option for an attachment.I have now been enlightened !