0 Members and 1 Guest are viewing this topic.
Quote from: Dommy2Hotty on August 23, 2012, 02:07:24 PMCode: [Select](defun c:BlockRename () (vl-load-com) (setq bname (vla-get-EffectiveName (vlax-ename->vla-object (car(entsel "\nSelect block: "))))) (command "rename" "block" bname pause) );DEFUNA minor upgrade for you Dommy on the house:Code - Auto/Visual Lisp: [Select](defun c:blockrename ( / *error* ent ) (setq *error* '(( m ) (princ))) (while (progn (setvar 'errno 0) (setq ent (car (entsel "\nSelect Block: "))) (cond ( (= 7 (getvar 'errno)) (princ "\nMissed, try again.") ) ( (= 'ename (type ent)) (if (/= "INSERT" (cdr (assoc 0 (entget ent)))) (princ "\nSelected object is not a Block.") ) ) ) ) ) (if ent (command "_.-rename" "_B" (vla-get-effectivename (vlax-ename->vla-object ent)) "\\")) (princ))(vl-load-com) (princ)
Code: [Select](defun c:BlockRename () (vl-load-com) (setq bname (vla-get-EffectiveName (vlax-ename->vla-object (car(entsel "\nSelect block: "))))) (command "rename" "block" bname pause) );DEFUN
(defun c:BlockRename () (vl-load-com) (setq bname (vla-get-EffectiveName (vlax-ename->vla-object (car(entsel "\nSelect block: "))))) (command "rename" "block" bname pause) );DEFUN
'(( m ) (princ))
OK, I'm lost. What's happening here:Code: [Select]'(( m ) (princ))